Richedit oder memo Höhe in Pixel ermitteln?

[thomas2009]

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 ?

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;