Mega Code Archive

 

Categories / Delphi / Forms

 

Forma resim çizdirme

//murat turan var Bitmap: TBitmap; begin Bitmap := TBitmap.Create; try Bitmap.LoadFromFile('MyBitmap.bmp'); Form1.Canvas.Brush.Bitmap := Bitmap; Form1.Canvas.FillRect(Rect(5,5,600,600)); finally Form1.Canvas.Brush.Bitmap := nil; Bitmap.Free; end; //TRANSPARAN RESİM var Bitmap : TBitMap; begin Bitmap := TBitmap.Create; try with Bitmap do begin LoadFromFile('MyBitmap.bmp'); Transparent := True; TransParentColor := BitMap.canvas.pixels[50,50]; Form1.Canvas.Draw(0,0,BitMap);//NORMAL ÇİZ TransparentMode := tmAuto; // Transparent color now is clDefault = TColor($20000000); Form1.Canvas.Draw(50,50,BitMap);//TRANSPARAN ÇİZ end; finally Bitmap.Free; end;