Mega Code Archive

 

Categories / Delphi / Graphic

 

Bitmap üzerine çizim yapmak

procedure TForm1.Button1Click(Sender: TObject); // This example shows drawing directly to the Bitmap var x,y : integer; Bitmap : TBitmap; P : PByteArray; begin Bitmap := TBitmap.create; try Bitmap.LoadFromFile('C:\Program Files\Borland\Delphi 4\Images\Splash\256color\factory.bmp'); for y := 0 to Bitmap.height -1 do begin P := Bitmap.ScanLine[y]; for x := 0 to Bitmap.width -1 do P[x] := y; end; canvas.draw(0,0,Bitmap); finally Bitmap.free; end; end;