Delphi - dejar margen en memo

 
Vista:

dejar margen en memo

Publicado por edusus (68 intervenciones) el 12/02/2006 20:31:39
Tengo hecha una aplicación donde ciertos datos se escriben en un memo a partir de texto almacenado en una variable.
¿Cómo puedo hacer para que al escribirse quede un margen en blanco a la izquierda?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:dejar margen en memo

Publicado por edusus (68 intervenciones) el 14/02/2006 16:02:23
He encontrado la respuesta y por si a alguien más le interesa es la siguiente:

var
R : TRect;
Izquierda:integer;
Derecha:integer;
begin
Izquierda:=20;
Derecha:=10;

R := Memo1.ClientRect;
R.Left:=R.Left + Izquierda;
R.Top:=R.Top + 15;
R.Bottom:=R.Bottom - 2;
R.Right:=R.Right-Derecha;
SendMessage(Memo1.Handle, EM_SETRECT,
0, Longint(@R)) ;

end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar