terça-feira, 24 de novembro de 2009

Colocar margem em um memo

Procedure TForm1.Button1Click(Sender: TObject);
var
R : TRect;
MargenIzquierdo:integer;
MargenDerecho:integer;
begin
MargenIzquierdo:=20;
MargenDerecho:=10;

R := Memo1.ClientRect;
R.Left:=R.Left + MargenIzquierdo;
R.Top:=R.Top + 2;
R.Bottom:=R.Bottom - 2;
R.Right:=R.Right-MargenDerecho;
SendMessage(Memo1.Handle, EM_SETRECT, 0, Longint(@R));
end;

Nenhum comentário:

Postar um comentário