I must use special characters in fields get, mget of fwh and in fields memo or character in the dbf.
During the insertion it is ok, changes as soon as I exit from the field:
Is possible to solve?
Thanks in advance.
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"
Antonio Linares wrote:Your sample is working fine here with FWH 7.01, with and without themes
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 Nil
Enrico,EnricoMaria wrote:Do you have any problems saving special characters to DBF or INI files?
Yes:can I see a little sample?
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 34 guests