как сделать image в клетку

[s2df]

как сделать image в клетку?

[phomm]

Телепаты в слишком далёком отпуске, чтобы уловить на расстоянии, чего Вам надо.

Клетку чего?
стринггрида ? вот врисовывает во все клетки картинку.

procedure TForm1.StringGrid1Cell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Canvas.Stretchdraw(Rect, MySuperPuperKartinko);
end;

в клеточку штриховку сделать ?

const count = 10;
...
for i := 1 to Count  do
begin
image1.canvas.moveto(image1.width div count * i, 0);
image1.canvas.lineto(image1.width div count * i, image1.height);
image1.canvas.moveto(0, image1.height div count * i);
image1.canvas.lineto(image1.width, image1.height div count * i);
end;

[Stilet]

StringGrid1.Canvas.Stretchdraw(Rect , MySuperPuperKartinko);

Не, наверно нужно заливать картинкой не каждую клетку а всю канву. Я так думаю...

[s-andriano]

Сообщение от s2df

как сделать image в клетку?

Через равные интервалы нарисовать сначала сетку из вертикальных линий, а потом - такую же из горизонтальных.

Примечание: можно сначала рисовать горизонтальные и только потом - вертикальные.