[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    {
    In article 25@mailhost.primenet.com, rkr@primenet.com writes:
    >Is there a way in a TMemo object to set the text margin from the left and or t
    op??
    >
    >Meaning , all the text going down the left side of the memo would start let's
    say,
    >10 pixels over instead of right up against the side of the Memo ??
    >
    }

    procedure TEditForm.SetEditRect;
    Var
      R : TRect;
    begin
      R := DisplayMemo.ClientRect;
      R.Left:=R.Left + kMemoIndent;
      R.Top:=R.Top + 2;
      R.Bottom:=R.Bottom - 2;
      R.Right:=R.Right - kMemoIndent;
      SendMessage(DisplayMemo.Handle, EM_SETRECT, 0, Longint(@R));
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]