Einzelnen Beitrag anzeigen

Benutzerbild von titanic
titanic

Registriert seit: 17. Mai 2008
4 Beiträge
 
#4

Re: Edit-Feld an Text anpassen

  Alt 18. Mai 2008, 01:51
Hallo 64Jabor,

hier: http://www.groupsrv.com/computers/about67968.html

gibt es Informationen über das bestimmen der Breite/Höhe eines strings unter den umständen eines Richedit's oder jeder anderen Funktion/Prozedur, die 'GetDC' aufruft.

Canvas kann was :
Delphi-Quellcode:
Canvas := TCanvas.Create;
try
Canvas.Handle := GetDC(0);
try
Height := Canvas.TextHeight('asdf');
Width := Canvas.TextWidth('asdf');
finally
ReleaseDC(0, Canvas.Handle);
Canvas.Handle := 0;
end;
finally
Canvas.Free;
end;
sieht doch gut aus (man muss darauf achten Height und Width als Variablen zu deklarieren , sonst werden Height und Width der Form benutzt ).

Gute Nacht

Titanic
  Mit Zitat antworten Zitat