procedure TForm2.SpeedButton5Click(Sender: TObject);
var a,s: integer;
begin
for a:= 1 to 500 do begin
for s:= 1 to 500 do begin
if q[a,s] <> 1 then form4.Image1.Canvas.Pixels[a,s]:= clBlack;
if (q[a,s] = 1) or (q[a,s] = 101) then form4.Image1.Canvas.Pixels[a,s]:= clBlue;
if q[a,s] = 3 then form4.Image1.Canvas.Pixels[a,s]:= clWhite;
if q[a,s] = 0 then form4.Image1.Canvas.Pixels[a,s]:= clRed;
if q[a,s] = 8091 then form4.Image1.Canvas.Pixels[a,s]:= clNavy;
if q[a,s] = 117 then form4.Image1.Canvas.Pixels[a,s]:= clMaroon;
if (q[a,s] = 333) or (q[a,s] = 777) then form4.Image1.Canvas.Pixels[a,s]:= clTeal;
end;
end;
end;
вот код (то до чего я дорос) он рисует карту, по виду она меня очень даже устраивает, но скорости нет совершенно.
|