Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
Delphi 7 Enterprise
|
Re: Wenn . dann Fenster öffnen wie bei Delphi
1. Okt 2004, 15:09
die funktion Canvas.TextHeight bzw. Canvas.TextWidth gibt dir die höhe und breite des angegebenen buchstabens in Pixeln zurück. ich habe W genommen. du könntest auch irgendein anderes zeichen nehmen, da bei Courier New alle buchstaben gleich groß sind.
achtung: wenn du eine schrift mit variabler größe (zB Arial) nimmst, funktioniert der Code leider nicht mehr!
Aenogym
|