Das nächste Entwicklertreffen findet Anfang Mai in Münster statt - weitere Infos bzw. zur Anmeldung!

XbpFont() - habe ich da etwas verpasst?

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
georg
Foren-Administrator
Foren-Administrator
Beiträge: 2306
Registriert: Fr, 08. Feb 2008 21:29

XbpFont() - habe ich da etwas verpasst?

Beitrag von georg » Do, 11. Apr 2019 15:28

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
Vorsitzender des Deutschsprachige Xbase-Entwickler e. V.
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.

Benutzeravatar
brandelh
Foren-Moderator
Foren-Moderator
Beiträge: 14728
Registriert: Mo, 23. Jan 2006 20:54
Wohnort: Germersheim
Kontaktdaten:

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

Beitrag von brandelh » Do, 11. Apr 2019 15:33

Bei mir heißt das nur "Lucida Console"
Gruß
Hubert

georg
Foren-Administrator
Foren-Administrator
Beiträge: 2306
Registriert: Fr, 08. Feb 2008 21:29

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

Beitrag von georg » Do, 11. Apr 2019 17:36

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
Vorsitzender des Deutschsprachige Xbase-Entwickler e. V.
Redakteur der Wiki des Deutschprachigen Xbase-Entwickler e.V.

Benutzeravatar
brandelh
Foren-Moderator
Foren-Moderator
Beiträge: 14728
Registriert: Mo, 23. Jan 2006 20:54
Wohnort: Germersheim
Kontaktdaten:

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

Beitrag von brandelh » Fr, 12. Apr 2019 8:30

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) 180 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