TStringGrid inner margin

[sk.Silvia]

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...

[sk.Silvia]

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

danke

[marabu]

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

[sk.Silvia]

Great thank you soooo much))