Richedit oder memo Höhe in Pixel ermitteln?

Hallo

über den RichEdit.Font konnte man seine Breite in Pixel ermitteln
Ich versuche auch die höhe genauso zu berechnen !
Die höhe können wir über Font und Zeilen zahl Ermitteln oder ?

zusammenfalten · markieren

Delphi-Quellcode:

			function GetLongestTextInPixcelInRichEdit(oRichedit : TRichEdit): Integer;

var

         i       : Integer;

         oCanvas : TCanvas;

begin

         result := 0;

         oCanvas := TCanvas.Create;

         oCanvas.Font.Assign(oRichedit.Font);

         oCanvas.Handle := GetDC(oRichedit.Handle);

         for i:=0 to oRichedit.Lines.Count-1 do begin

             if oCanvas.TextWidth(oRichedit.Lines[i]) > result then

                result := oCanvas.TextWidth(oRichedit.Lines[i]);

         end;

         oCanvas.Free;

end;

Richedit oder memo Höhe in Pixel ermitteln?

Richedit oder memo Höhe in Pixel ermitteln?

Forumregeln