۰۵-آذر-۱۳۸۸, ۰۲:۱۰:۰۵
۰۷-اردیبهشت-۱۳۹۱, ۰۰:۳۲:۱۲
سلام . کد زیر رو یه امتحانی بکنید :
کد:
procedure TForm1.Button1Click(Sender: TObject);
var ax:array of array of integer;
bmp:TBitmap;
i,j:integer;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('1.bmp');
SetLength(ax,bmp.Width,bmp.Height);
for j:=0 to bmp.Height-1 do
begin
for i:= 0 to bmp.Width -1 do
begin
ax[i,j]:=bmp.Canvas.Pixels[i,j];
end;
end;
///////////////////////////////////////
for j:=0 to bmp.Height-1 do
begin
for i:= 0 to bmp.Width -1 do
begin
form1.Canvas.Pixels[i,j]:=ax[i,j];
end;
end;
//////////////////////////////////////////
bmp.Free;
end;