Comennt trouver Memo.height en Pixel ?Résolu

Question

Hi
le code peut trouver Largeur in Pixel
mais je voudrais aussi l hauteur  (Memo.height) !

 
function GetMemolenghtInPixcel(oMemo : TMemo): Integer;
var
i       : Integer;
 
myCanvas : TCanvas;
begin
result := 0;
 
myCanvas := TCanvas.Create;
myCanvas.Font.Assign(oMemo.Font);
myCanvas.Handle := GetDC(oMemo.Handle);
 
for i:=0to oMemo.Lines.Count-1dobegin
if myCanvas.TextWidth(oMemo.Lines[i]) > result then
result := myCanvas.TextWidth(oMemo.Lines[i]);
end;
 
myCanvas.Free;
end;

Caribensila · Accepted Answer

Salut,

abs(Memo.Font.Height) * Memo.Lines.Count

Bacterius · Answer

Bonsoir,
... Memo.Height = sa hauteur
... Memo.Width = sa largeur
... tout ça en pixels
Pourquoi réinventer la roue ?

Cordialement, Bacterius !

Taktaky · Answer

j ai trouvée une fonction mais je ne sais pas comment ?

ici

 j ai essayerai  comme ça :
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:=IntToStr(GetRichEditTextExtent(RichEdit1.Width));
end;

Bacterius · Answer

Bonjour,
je ne comprends pas ce que tu veux faire !
Edit1.Text := IntToStr(Memo1.Height);
Edit2.Text := IntToStr(Memo1.Width);

Voila !
Explique ton problème lol (ce que tu veux faire, pourquoi, etc ...)

Cordialement, Bacterius !

Taktaky · Answer

Salut
je ne voudrais pas les Dimension de Memo:
Edit1.Text := IntToStr(Memo1.Height);
Edit2.Text := IntToStr(Memo1.Width);

cette Dimenssions sont const ; )
mais je voudrais les Dimension de Texte en memo en Pixel
Width = la plus largeur de Texte en Memo
Height = ???  peut être font.Height x (nombre de lignes)

Taktaky · Answer

c'est bonne idée merci : )
je voudrais aussi utiliser le même chose avec Richedit
Le problème avec Rechedit est le Font. Le Font
(Memo.Font.Height) est ne pas le mémé dans toutes les Lignes 

merci

Comennt trouver Memo.height en Pixel ?

6 réponses

Votre réponse

Discussions similaires