Special character
Posted: Thu Mar 08, 2007 2:21 pm
www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Enrico,EnricoMaria wrote:Please build a simple PRG showing the problem.
Code: Select all
FUNCTION Main()
/* RC File:
1 24 "themed.manifest"
SPECIALCHAR DIALOG 51, 72, 254, 85
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Special Char"
FONT 8, "MS Sans Serif"
{
EDITTEXT 101, 13, 10, 230, 45, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
PUSHBUTTON "Char Map", 102, 41, 67, 50, 14
PUSHBUTTON "Paste", 103, 100, 67, 50, 14
PUSHBUTTON "End", 104, 162, 67, 50, 14
}*/
LOCAL oDlg, oGet, cNote := Space( 100 ), oClp, oBt1, oBt2, oBt3, oFont
DEFINE FONT oFont NAME "Arial" SIZE 0, - 11
DEFINE DIALOG oDlg RESOURCE "SpecialChar" FONT oFont
DEFINE CLIPBOARD oClp OF oDlg
REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO
REDEFINE BUTTON oBt1 ID 102 ACTION WinExec( "CHARMAP.EXE" )
REDEFINE BUTTON oBt2 ID 103 ACTION ( oGet:Paste( oCLp:GetText() ), oDlg:Refresh() )
REDEFINE BUTTON oBt3 ID 104 ACTION OdLG:END()
Activate Dialog oDlg
oClp:END()
Return Nil
Code: Select all
1 24 "themed.manifest"
James,James Bott wrote:I am not having that problem here.
FWH 2.7 Aug 2006 build/xHarbour
Antonio,Antonio Linares wrote:Please download the EXE from here and test it
Antonio,Ugo wrote:the problem is present in GET without MEMO!
Code: Select all
LOCAL oDlg, oGet, cNote := "", oClp, oBt1, oBt2, oBt3, oFont, oIni
DEFINE FONT oFont NAME "Arial" SIZE 0, - 11
DEFINE DIALOG oDlg RESOURCE "SpecialChar" FONT oFont
DEFINE CLIPBOARD oClp OF oDlg
INI oIni File "MemoTest.ini"
GET cNote SECTION "Test" ENTRY "Memo" OF oIni DEFAULT Space( 100 )
REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO
REDEFINE BUTTON oBt1 ID 102 ACTION WinExec( "CHARMAP.EXE" )
REDEFINE BUTTON oBt2 ID 103 ACTION ( oGet:Paste( oCLp:GetText() ), oDlg:Refresh() )
REDEFINE BUTTON oBt3 ID 104 ACTION OdLG:END()
Activate Dialog oDlg
oClp:END()
SET SECTION "Test" ENTRY "Memo" TO cNote OF oIni
ENDINI
Return Nil
any suggestions?Ugo wrote:Is possible to save the special character into the DBF and INI files?
Enrico,EnricoMaria wrote:Do you have any problems saving special characters to DBF or INI files?
Yes:can I see a little sample?
Code: Select all
FUNCTION Main()
/* RC File:
1 24 "themed.manifest"
SPECIALCHAR DIALOG 51, 72, 203, 112
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Special Char"
FONT 8, "MS Sans Serif"
{
EDITTEXT 101, 13, 10, 180, 45, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
PUSHBUTTON "Char Map", 102, 16, 90, 50, 14
PUSHBUTTON "Paste", 103, 75, 90, 50, 14
PUSHBUTTON "End", 104, 137, 90, 50, 14
EDITTEXT 105, 13, 68, 83, 12
}*/
LOCAL oDlg, oGet, cNote := "", cNot1 := Space(20), oClp, oBt1, oBt2, oBt3, oFont, oIni
DEFINE FONT oFont NAME "Arial" SIZE 0, - 11
DEFINE DIALOG oDlg RESOURCE "SpecialChar" FONT oFont
DEFINE CLIPBOARD oClp OF oDlg
INI oIni File "MemoTest.ini"
GET cNote SECTION "Test" ENTRY "Memo" OF oIni DEFAULT Space( 100 )
GET cNot1 SECTION "Test" ENTRY "Memo1" OF oIni DEFAULT Space( 20 )
REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO
REDEFINE GET oGet VAR cNot1 ID 105 OF oDlg
REDEFINE BUTTON oBt1 ID 102 ACTION WinExec( "CHARMAP.EXE" )
REDEFINE BUTTON oBt2 ID 103 ACTION ( oGet:Paste( oCLp:GetText() ), oDlg:Refresh() )
REDEFINE BUTTON oBt3 ID 104 ACTION OdLG:END()
Activate Dialog oDlg
oClp:END()
SET SECTION "Test" ENTRY "Memo" TO cNote OF oIni
SET SECTION "Test" ENTRY "Memo1" TO cNot1 OF oIni
ENDINI
Return Nil