ich würde gerne wahlweise einen Haken (statt Text ist erledigt)
Code: Alles auswählen
OEM 437 chr(251)
Gibt es da bereits eine Lösung wie z.B. beim € - Zeichen?
Moderator: Moderatoren
Code: Alles auswählen
OEM 437 chr(251)
Code: Alles auswählen
PROCEDURE MAIN
LOCAL oCrt := SetAppWindow()
oCrt:fontName := "WingDings" // das crasht
? CHR(252)
? "alles OK äöüÄÖÜß"
? CHR(213)
WAIT
RETURN
im Hybrid-Modus könntest du andere Fonts verwendenoError:args :
-> VALTYPE: O CLASS: RootCrt
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: N
oError:cargo : NIL
oError:description : Member-Variable ist für dieses Objekt unbekannt
oError:filename :
oError:genCode : 26
oError:operation : fontName
oError:osCode : 0
oError:severity : 2
oError:subCode : 2240
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
Code: Alles auswählen
PROCEDURE APPSYS
#define DEF_ROWS 43
#define DEF_COLS 80
#define DEF_FONTHEIGHT 16
#define DEF_FONTWIDTH 8
LOCAL oCrt, nAppType := AppType()
LOCAL aSizeDesktop, aPos
DO CASE
// Anwendung wurde im PM Modus gelinkt, eine XbpCrt Instanz
// ist zu erzeugen.
CASE nAppType == APPTYPE_PM
aSizeDesktop := AppDesktop():currentSize()
aPos := { (aSizeDesktop[1]-(DEF_COLS * DEF_FONTWIDTH)) /2, ;
(aSizeDesktop[2]-(DEF_ROWS * DEF_FONTHEIGHT)) /2 }
// XbpCRT-Fenster erzeugen
oCrt := XbpCrt():New ( NIL, NIL, aPos, DEF_ROWS, DEF_COLS )
oCrt:FontWidth := DEF_FONTWIDTH
oCrt:FontHeight := DEF_FONTHEIGHT
oCrt:title := AppName()
* oCrt:FontName := "Alaska Crt" // OK
* oCrt:FontName := "Courier" // nicht alle Zeichen
* oCrt:FontName := "Arial" // falsche Zeichen
oCrt:FontName := "Terminal" //
oCrt:Create()
oCrt:PresSpace()
SetAppWindow ( oCrt )
CASE nAppType == APPTYPE_VIO .OR. nAppType == APPTYPE_NOVIO
...
ENDCASE
RETURN
PROCEDURE MAIN
? "alles OK äöüÄÖÜß"
? CHR(213)
WAIT
RETURN
UNICODE im CRT Fenster kannst du ganz vergessenMichaMB hat geschrieben:im Netz habe ich gefunden:
OEM 437 Zeichen FB = U+221A
https://msdn.microsoft.com/en-us/goglobal/cc305156
aber wie programmiert man das ?