Please build a simple PRG showing the problem.
EMG
Ugo,
I am not having that problem here.
FWH 2.7 Aug 2006 build/xHarbour
James
EnricoMaria wrote:Please build a simple PRG showing the problem.
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
1 24 "themed.manifest"James Bott wrote:I am not having that problem here.
FWH 2.7 Aug 2006 build/xHarbour
Ugo,
Your sample is working fine here with FWH 7.01, with and without themes
Antonio Linares wrote:Your sample is working fine here with FWH 7.01, with and without themes
Ugo,
Please download the EXE from here and test it:
Antonio Linares wrote:Please download the EXE from here and test it
Antonio,
the problem is present in GET without MEMO!
Can you confirm?
Ugo wrote:the problem is present in GET without MEMO!
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 NilUgo wrote:Is possible to save the special character into the DBF and INI files?
Do you have any problems saving special characters to DBF or INI files? If yes, can I see a little sample?
EMG
EnricoMaria wrote:Do you have any problems saving special characters to DBF or INI files?Enrico,
can I see a little sample?Yes:
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 NilAs I said you in private email, I can't see the pasted special character here. It immediately becomes "S".
EMG