Bmp eklemek
Bmp eklemek
Bmp eklemek procedure TfrMain.btnCanvasPic(Sender: TObject); var bBitmap : TBitmap; begin bBitmap := TBitmap.Create; try bBitmap.Handle := LoadBitmap(hInstance, 'ATHENA'); Image1.Width := bBitmap.Width; Image1.Height := bBitmap.Height; Image1.Canvas.Draw(0,0,bBitmap); finally bBitmap.Free; end; end; |
Saat: 04:55 |
Telif Hakları vBulletin® v3.8.9 Copyright ©2000 - 2024, ve
Jelsoft Enterprises Ltd.'e Aittir.