Mega Code Archive

 

Categories / Delphi / Graphic

 

Resim çizdirmek

procedure tform1.grapf; var x,y: Integer; // y,a: Double; begin Image1.Picture.Bitmap := TBitmap.Create; Image1.Picture.Bitmap.Width := Image1.Width; Image1.Picture.Bitmap.Height := Image1.Height; {These three lines could go in Form1.Create instead} for x := 0 to 75 do begin for y:= 0 to 10 do Image1.Picture.Bitmap.Canvas.Pixels[x, y] := clblue; end; end; procedure TForm1.Button1Click(Sender: TObject); " begin grapf end;