Damit es bei mir mit "froh" beginnt, könnte ich einen kleinen Tip brauchen
Ich feile mal wieder an meinem kyrillischen Problem und habe an dieser Stelle einen Stillstand.
Ich erzeuge im Programm einen neuen font = ofont mit codepage 204. Diesen Font kann ich im weiteren Programmablauf mit say und get wie erwartet verwenden.
Z.B.
@ 0,0 dcsay "Name " get name font ofont. Es erscheinen kyrillische Schriftzeichen.
So weit so gut.
Ich bekomme es aber leider nicht hin, diesen Font innerhalb eines browse so richtig anzuwenden. Ich habe eine DBF mit deutschen Wörtern und mit der kyrillischen Übersetzung. Funktioniert gut.
Wenn ich mit folgendem Programm durch die Datenbank browse, werden mir die kyrillischen Bezeichnungen "fremdland->fremd" nur als Fragezeichen angezeigt. Wenn ich so ein Feld zum Editieren akitviere - Enter oder Doppelklick - stehen da wie zu erwarten die kyrillischen Zeichen. Die kann ich normal editieren. Sobald ich dieses Feld dann wieder verlasse, schaltet die Anzeige wieder um auf Fragezeichen.
Lt. Handbuch müßte ich mit dcbrowsecol einen Font angeben können. Geht auch mit der Syntax "10.Arial". Wenn ich dort "font ofont" verwende, gibt es eine Fehlermeldung.
Was muss da wohl anstatt der ???? stehen ?
Code: Alles auswählen
proc main
ofont:= xbpfont():new()
ofont:familyname:="Arial"
ofont:codepage:=204 // russisch
ofont:create()
@ 0,0 dcbrowse obrowse size 60,15 ;
edit xbeBRW_ItemSelected ;
mode DCGUI_BROWSE_EDITACROSSDOWN_APPEND ;
font ofont
dcbrowsecol field fremdbez->deutsch header "Deutsch" parent obrowse
dcbrowsecol field fremdbez->land header "Land " parent obrowse
dcbrowsecol field fremdbez->fremd header "Fremd" parent obrowse font ????
@ 5,0 dcpushbutton caption "Ende" size 10,1 action {||DC_Readguievent(DCGUI_EXIT_OK,Getlist)}
dcread gui fit
return