Delphi-PRAXiS - Delphi TStringGrid inner margin

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi TStringGrid inner margin (https://www.delphipraxis.net/62727-tstringgrid-inner-margin.html)

TStringGrid inner margin

hi all

how can i change the margin in TStringGrid component?

see picture below (i mean how to set the space between the grid border and char to 0)

http://www.politea.sk/data/stringgridproblem.jpg

thank you, for your creative solutions...

Re: TStringGrid inner margin

ehm:) wie kann ich den margin zchischen den linien und den symbol auf 0 zetzen, sodas kein freier raum dazwichen ist!

danke

Re: TStringGrid inner margin

Welcome to our community, Silvia.

The gap you object to is produced by the default drawing method of the cell. If you have an event handler for the OnDrawCell() event you can set horizontal and vertical gaps at will:

Delphi-Quellcode:

			procedure TDemoForm.StringGridDrawCell(Sender: TObject; ACol,

  ARow: Integer; Rect: TRect; State: TGridDrawState);

const

  hGap = 0;

  vGap = 0;

begin

  with Sender as TStringGrid do

  begin

    Canvas.FillRect(Rect); 

    TextOut(Canvas.Handle, Rect.Left + hGap, Rect.Top + vGap,

      PAnsiChar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]));

  end;

end;

Kind regards

marabu

Re: TStringGrid inner margin

Great:) thank you soooo much:)))