Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cs.rumpelstilzchen,
9. Feb 2006
:coder2: Fertig!
So geht's:
MyFont20 := Windows.CreateFont(24, 20, 0, 0, FW_BOLD, 0, 0, 0,
ANSI_CHARSET, OUT_RASTER_PRECIS,
CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY,
FIXED_PITCH + FF_MODERN, 'Courier New');
Danke Marabu für dein Engagement :thumb: .
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cs.rumpelstilzchen,
9. Feb 2006
Hab grad mal die alten GFA-Unterlagen durchgesehen.
Dort wird CreateFont benutzt, und dazu gibt's n nettes Tutorial von Luckie!
Werd ich mir mal ansehen :roteyes: ,
bisweilen Danke!
Sollte noch jemandem was ganz simples zur Lösung einfallen, immer her damit! :coder:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cs.rumpelstilzchen,
9. Feb 2006
Hallo Marabu :hi: , danke für die Antwort!
Das ist mir wohl bekannt, aber mit
Font.Pitch := fpFixed;
stelle ich nur ein, ob der Abstand zwischen den Zeichen variabel (Proportionalschrift) oder fix sein soll. Die Zeichenbreite selbst kann ich damit nicht verändern!
Übrigens meinte ich das GFA-BASIC für Windows! Und die Befehle FONT, SETFONT und FREEFONT kapseln eigentlich nur irgendwelche...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by cs.rumpelstilzchen,
9. Feb 2006
Hallo Leute!
Ich möchte die Zeichenbreite eines Windows-Fonts verändern, finde aber nirgendwo Informationen dazu.
Um Mißverständnissen vorzubeugen: Ich möchte nur die Breite verändern!
Hab das früher schon mal in GFA-BASIC (Kennt das außer mir noch jemand? :lol:) geproggt. Das ging so:
GETFONT SYSTEM_FONT
FONT "times",HEIGHT 24,WIDTH 10,WEIGHT 800,FAMILY FF_SWISS, QUALITY 2, PITCH...