procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Memo1.Hint:=Memo1.Text;
Memo1.ShowHint:=True;
Application.HintPause:=0;
Application.HintHidePause:=10000;
(* Application.HintColor *)
end;
with Memo1 do begin
ShowHint := True;
Hint:= Text;
end;
var i: Integer;
LineHeight: Integer;
begin
LineHeight := Canvas.TextHeight(RichEdit1.Text);
Caption := 'Number Of Visible Line :'+ IntToStr(Height div LineHeight);
function GetMaxVisible(Re: TRichEdit): integer;
var
richDC: HDC; // temporary device context
tm: TTextMetric;
begin
with Re do begin
// get the maximum number of visible lines
richDC := GetDC(Handle);
SelectObject(richDC, Font.Handle);
GetTextMetrics(richDC, tm);
ReleaseDC(Handle, richDC);
result := ClientHeight div tm.tmHeight;
end;
end;
Perform(EM_GETFIRSTVISIBLELINE, 0, 0)kachwahed كتب :تبقى فكرتك غامضة نوعا ما تحتاج الى مثال، وبالمثال يتضح المقال
RichEdit1.MaxLength := MaxInt-2;
var
IndexCurrentLine, PosCurrentLine,
CountVisibleLine, IndexFirstVisible,
IndexLastVisible, PosFirstVisible,
PosLastVisibleLine: Integer;
with RichEdit1 do begin
IndexCurrentLine := GetCaretPos.Y;//or Perform(EM_LINEFROMCHAR, SelStart, 0);
PosCurrentLine := Perform(EM_LINEINDEX, IndexCurrentLine,0);
IndexFirstVisible := Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
PosFirstVisible := Perform(EM_LINEINDEX, IndexFirstVisible,0);
CountVisibleLine := (Height div Abs(Font.Height))-1;
IndexLastVisible := RE_GetLastVisibleLine(RichEdit1);
PosLastVisibleLine:= GetLinesLength(IndexFirstVisible, IndexLastVisible);
end;
function RE_GetLastVisibleLine(RichEdit: TRichEdit): Integer;
const
EM_EXLINEFROMCHAR = WM_USER + 54;
var
r: TRect;
i: Integer;
begin
{
The EM_GETRECT message retrieves the formatting rectangle
of an edit control.
}
RichEdit.Perform(EM_GETRECT, 0, Longint(@r));
r.Left := r.Left + 1;
r.Top := r.Bottom - 2;
{
The EM_CHARFROMPOS message retrieves information about the character
closest to a specified point in the client area of an edit control
}
i := RichEdit.Perform(EM_CHARFROMPOS, 0, Integer(@r.TopLeft));
{
The EM_EXLINEFROMCHAR message determines which
line contains the specified character in a rich edit control
}
Result := RichEdit.Perform(EM_EXLINEFROMCHAR, 0, i);
end;
إقتباس : لم أفهم قصدك ما علاقة maxlength بتحديد حجم النص الظاهرليس تحديد الظاهر وانما جعل حجم المكون يسع النص
إقتباس :يعني أن النص الذي في المكون لا يظهر كله وإنما تظهر بعض الأسطر فقط إذا كان حجم النص أكبر من حجم المكون