Ir al contenido


Foto

[TRUCO DELPHI] Margenes en un TMemo.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:41

[TRUCO DELPHI] Margenes en un TMemo.


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. R : TRect;
  4. LeftMargin:integer;
  5. RightMargin:integer;
  6. begin
  7. LeftMargin:=20;
  8. RightMargin:=10;
  9.  
  10. R := Memo1.ClientRect;
  11. R.Left:=R.Left + LeftMargin;
  12. R.Top:=R.Top + 2;
  13. R.Bottom:=R.Bottom - 2;
  14. R.Right:=R.Right-RightMargin;
  15. SendMessage(Memo1.Handle, EM_SETRECT,
  16. 0, Longint(@R));
  17. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.