Thema: Delphi Zeichenbreite verändern

Einzelnen Beitrag anzeigen

Benutzerbild von cs.rumpelstilzchen
cs.rumpelstilzchen

Registriert seit: 16. Sep 2004
Ort: NRW
72 Beiträge
 
Delphi XE4 Professional
 
#1

Zeichenbreite verändern

  Alt 9. Feb 2006, 12:08
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? ) geproggt. Das ging so:

Code:
GETFONT SYSTEM_FONT
FONT "times",HEIGHT 24,WIDTH 10,WEIGHT 800,FAMILY FF_SWISS, QUALITY 2, PITCH FIXED_PITCH TO fnt_13&
FONT "times",HEIGHT 24,WIDTH 12,WEIGHT 800,FAMILY FF_SWISS, QUALITY 2, PITCH FIXED_PITCH TO fnt_12&
FONT "times",HEIGHT 24,WIDTH 23,WEIGHT 800,FAMILY FF_SWISS, QUALITY 2, PITCH FIXED_PITCH TO fnt_14&
Danach konnte man z.B. mittels
Code:
SETFONT fnt_13&
diesen Font benutzen. Mittels
Code:
FREEFONT fnt_13&
konnte man den Font löschen und den Speicher dann wieder freigeben. Die fnt_xx& sind dabei die Font-Handles für Windows.


Geht sowas auch unter Delphi?

THX
Jürgen
Der weiß, daß er nichts weiß, wie alle anderen auch nichts wissen.
Nur weiß er, was die anderen und auch er selbst noch lernen müssen.
(Novalis 1772 - 1801)
  Mit Zitat antworten Zitat