XbpFont() - habe ich da etwas verpasst?

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
georg
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2823
Registriert: Fr, 08. Feb 2008 21:29
Hat sich bedankt: 95 Mal
Danksagung erhalten: 13 Mal

XbpFont() - habe ich da etwas verpasst?

Beitrag von georg »

Hallo,


es handelt sich um ein Programm, das auf einem XbpDialog() aufbaut und mit GUI=YES und LINK_FLAGS=/PM:PM erstellt wurde.

Code: Alles auswählen

   oFont := XbpFont():new()
   oFont:familyName := "Lucida Console Standard"
   // oFont:height := 16
   // oFont:width := 8
   oFont:create()
Nach dem Ausführen von :create() ist der FamilyName "MS Sans Serif", nehme ich den Kommentar vor den beiden Zeilen mit den Grössenangaben weg, bekomme ich "Arial" als Font. :confused2:

Ich habe es auch mit :generic := .F. und :vector := .F. und :antiAliased := .F. versucht, keine Änderung.
Liebe Grüsse aus der Eifel,

Georg S. Lorrig
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.
Benutzeravatar
brandelh
Foren-Moderator
Foren-Moderator
Beiträge: 15688
Registriert: Mo, 23. Jan 2006 20:54
Wohnort: Germersheim
Hat sich bedankt: 65 Mal
Danksagung erhalten: 33 Mal
Kontaktdaten:

Re: XbpFont() - habe ich da etwas verpasst?

Beitrag von brandelh »

Bei mir heißt das nur "Lucida Console"
Gruß
Hubert
georg
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2823
Registriert: Fr, 08. Feb 2008 21:29
Hat sich bedankt: 95 Mal
Danksagung erhalten: 13 Mal

Re: XbpFont() - habe ich da etwas verpasst?

Beitrag von georg »

Hallo, Hubert -


habe ich beides ausprobiert, mit dem gleichen Ergebnis. Bei mir in der Systemsteuerung heisst die Schriftart "Lucida Console Standard".

Aber egal, welche Schriftart ich versuche, ich lande immer wieder bei "Arial" oder "MS Sans Serif".
Liebe Grüsse aus der Eifel,

Georg S. Lorrig
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.
Benutzeravatar
brandelh
Foren-Moderator
Foren-Moderator
Beiträge: 15688
Registriert: Mo, 23. Jan 2006 20:54
Wohnort: Germersheim
Hat sich bedankt: 65 Mal
Danksagung erhalten: 33 Mal
Kontaktdaten:

Re: XbpFont() - habe ich da etwas verpasst?

Beitrag von brandelh »

Ich habe dieses Beispiel abgeändert:

...\XPPW32\source\samples\basics\font // je nach Version anderer Grundpfad

Code: Alles auswählen

// HB Lucida Console
   oFont := XbpFont():new( oPS ):create( "26.Lucida Console" )
   GraSetfont( oPS, oFont )
   GraStringAt( oPS, {20,20}, "Lucida Console" ) // HB

   msgbox("Test HB: >"+oFont:familyName+"<")
Rückgabe ...
LucidaConsole.png
LucidaConsole.png (32.04 KiB) 4032 mal betrachtet
Eventuell passen deine Höhe und Breite nicht, ich nutze immer die Punktangabe Syntax

Das Andere Programm im Verzeichnis, speichert alle Fonts in einer DBF ...
Gruß
Hubert
Antworten