Скрин экрана

[Кольша]

canvas.lineto
canvas.moveto

[Stilet]

Когда-то обсуждалось похожее: http://www.programmersforum.ru/showthread.php?t=107981
Попробуй переделать под DrawGrid - смысл отрисовывать в ячейках грида очередной кусок изображения со схожими с ячейкой координатами.

[hacknet]

ух сложновато, совсем не пойму( если не сложно можно исходник?
вот нашел вот как их этого получить то что мне нужно

procedure TForm1.FormPaint(Sender: TObject);
var n, m, i, z : integer;
begin
  z := 30;
  n := SpinEdit1.Value;
  m := SpinEdit2.Value;
  // горизонтальные полоски
  Canvas.Pen.Color := clBlack;
  for i:= 0 to n do
  begin
    Canvas.MoveTo(0,     i * z);
    Canvas.LineTo(m * Z, i * z);
  end;
  // вертикальные
  Canvas.Pen.Color := clGreen;
  for i:= 0 to m do
  begin
    Canvas.MoveTo(i*z, 0);
    Canvas.LineTo(i*z, n * Z);
  end;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Repaint;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
Repaint;
end;

[hacknet]

вот еще, получается надо сначала сделать скрин, а потом на него на нести сетку? но только тут не много не так, надо чтоб в квадратиках были их координаты

procedure TForm1.FormPaint(Sender: TObject);
var
x0, y0: integer; // координаты начала координатных осей
dx, dy: integer; // шаг координатной сетки (в пикселях)
h, w: integer; // высота и ширина области вывода координатной сетки
x, y: integer;

lx, ly: real; // метки (оцифровка) линий сетки по X Y
dlx, dly: real; // шаг меток (оцифровки) линий сетки по X и Y
cross: integer; // счетчик не оцифрованных линий сетки
dcross: integer; // количество не оцифрованных линий между оцифрованными
begin
x0 := 30;
y0 := 220; // оси начинаются в точке (40,250)
dx := 40;
dy := 40; // шаг координатной сетки 40 пикселей
dcross := 1; // помечать линии сетки X: 1 - каждую;
// 2 - через одну;
// 3 - через две;
dlx := 0.5; // шаг меток оси X
dly := 1.0; // шаг меток оси Y, метками будут: 1, 2, 3 и т.д.

h := 200;
w := 300;

with form1.Canvas do
begin
cross := dcross;
MoveTo(x0, y0);
LineTo(x0, y0 - h); // ось X
MoveTo(x0, y0);
LineTo(x0 + w, y0); // ось Y

// засечки, сетка и оцифровка по оси X
x := x0 + dx;
lx := dlx;
repeat
MoveTo(x, y0 - 3);
LineTo(x, y0 + 3); // засечка
cross := cross - 1;
if cross = 0 then //оцифровка
begin
TextOut(x - 8, y0 + 5, FloatToStr(lx));
cross := dcross;
end;
Pen.Style := psDot;
MoveTo(x, y0 - 3);
LineTo(x, y0 - h); // линия сетки
Pen.Style := psSolid;
lx := lx + dlx;
x := x + dx;
until (x > x0 + w);

// засечки, сетка и оцифровка по оси Y
y := y0 - dy;
ly := dly;
repeat
MoveTo(x0 - 3, y);
LineTo(x0 + 3, y); // засечка
TextOut(x0 - 20, y, FloatToStr(ly)); // оцифровка
Pen.Style := psDot;
MoveTo(x0 + 3, y);
LineTo(x0 + w, y); // линия сетки
Pen.Style := psSolid;
y := y - dy;
ly := ly + dly;
until (y < y0 - h);
end;
end;

[hacknet]

вот еще, получается надо сначала сделать скрин, а потом на него на нести сетку? но только тут не много не так, нужны координаты для мыши!

procedure TForm1.FormPaint(Sender: TObject);
var
x0, y0: integer; // координаты начала координатных осей
dx, dy: integer; // шаг координатной сетки (в пикселях)
h, w: integer; // высота и ширина области вывода координатной сетки
x, y: integer;

lx, ly: real; // метки (оцифровка) линий сетки по X Y
dlx, dly: real; // шаг меток (оцифровки) линий сетки по X и Y
cross: integer; // счетчик не оцифрованных линий сетки
dcross: integer; // количество не оцифрованных линий между оцифрованными
begin
x0 := 30;
y0 := 220; // оси начинаются в точке (40,250)
dx := 40;
dy := 40; // шаг координатной сетки 40 пикселей
dcross := 1; // помечать линии сетки X: 1 - каждую;
// 2 - через одну;
// 3 - через две;
dlx := 0.5; // шаг меток оси X
dly := 1.0; // шаг меток оси Y, метками будут: 1, 2, 3 и т.д.

h := 200;
w := 300;

with form1.Canvas do
begin
cross := dcross;
MoveTo(x0, y0);
LineTo(x0, y0 - h); // ось X
MoveTo(x0, y0);
LineTo(x0 + w, y0); // ось Y

// засечки, сетка и оцифровка по оси X
x := x0 + dx;
lx := dlx;
repeat
MoveTo(x, y0 - 3);
LineTo(x, y0 + 3); // засечка
cross := cross - 1;
if cross = 0 then //оцифровка
begin
TextOut(x - 8, y0 + 5, FloatToStr(lx));
cross := dcross;
end;
Pen.Style := psDot;
MoveTo(x, y0 - 3);
LineTo(x, y0 - h); // линия сетки
Pen.Style := psSolid;
lx := lx + dlx;
x := x + dx;
until (x > x0 + w);

// засечки, сетка и оцифровка по оси Y
y := y0 - dy;
ly := dly;
repeat
MoveTo(x0 - 3, y);
LineTo(x0 + 3, y); // засечка
TextOut(x0 - 20, y, FloatToStr(ly)); // оцифровка
Pen.Style := psDot;
MoveTo(x0 + 3, y);
LineTo(x0 + w, y); // линия сетки
Pen.Style := psSolid;
y := y - dy;
ly := ly + dly;
until (y < y0 - h);
end;
end;