Gwallunit
2007-04-18 06:38:33
Hey is it possible for scar to read an image code
and then enter it ?
and then enter it ?
2007-04-18 06:38:33
2007-04-18 08:40:28
2007-04-19 01:26:22
program New;
Var
x, y : Integer;
Canvas : TCanvas;
Procedure CopyPast;
begin
Try
Canvas:= GetDebugCanvas;
Canvas.Brush.Color:= clBlack;
Canvas.Brush.Style:= bsSolid;
Canvas.Pen.Color:= clBlack;
Canvas.Rectangle(0, 0, 100, 50);
For y:= 1 to 50 do
For x:= 1 to 100 do
Canvas.Pixels[x, y] := GetColor(x, y);
except
Writeln('ERROR');
end;
end;
begin
CopyPast;
DisplayDebugImgWindow(100, 50);
end.