[step]

Такая вот проблема .. Рисую сетку на image1.canvas
как сделать так чтобы при изменении размеров окна и соответственно image1 происходила перерисовка новой сетки на более большой размер.. ?

вот что получается при запуске в маленьком окне:

а это уже при разворачивании окна:


ниже код процидуры прорисовки сетки

procedure TForm1.FormPaint(Sender: TObject);

function cx(X: integer): integer;
begin
Result:=X;
end;
function cy(Y: integer): integer;
begin
Result:=image1.Height-Y;
end;


var
i: integer;
h: integer;
w: integer;
s: integer; // отступ поля

greedstep: integer;
begin

with image1.Canvas do
begin
greedstep:=20;
S:=20;
h:=round(image1.Height/greedstep)*greedstep; // Выста поля сетки
w:=round(image1.Width/greedstep)*greedstep; // Ширина поля

pen.Color:=130;
pen.Width:=1;
pen.Style:=psDot;
for i:=round(s/greedstep) to round ((h-s)/greedstep) do
begin
moveto(cx(s),cy(i*greedstep));
lineto(cx(round(w/greedstep)*greedstep-s),cy(i*greedstep));
end;

for i:=round(s/greedstep) to round ((w-s)/greedstep) do
begin
moveto(cx(i*greedstep),cy(s));
lineto(cx(i*greedstep),cy(round(h/greedstep)*greedstep-s));
end;
end;

end;

[Ross]

Перед тем как рисовать новую сетку, надо прорисовать сетку со старыми параметрами - это сотрёт старую сетку.

[step]

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

Перед тем как рисовать новую сетку, надо прорисовать сетку со старыми параметрами - это сотрёт старую сетку.

не я втом смысле что на форме image1.canvas растягивается вместе с формой , но при растежении image1.canvas не меняет поле для прорисовки сетки т.е сетка почему-то рисуется в таком же маленьком окне , хотя по сути оно должно быть на всю форму( в коде использую значения высоты и ширины image1)..

[Гудвин]

поставь перед прорисовкой rectangle(0,0,image1.width,image1.height);
на всяк случай image.align=alClient ?
З.Ы. у тебя здесь бред реально написан, юзай масштабирование