Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: Comment mettre une image en fond de fiche ?  Ven 12 Jan - 6:30 | |
| On va créer une bitmap et dire à notre fiche de l'afficher dans le coin en haut à gauche. Si notre image est trop grande, elle sera tronquée, et si elle est petite, le reste de la fiche sera rempli par la couleur de fond. - Code:
-
var
Bitmap: TBitmap;
procedure TMyForm.FormPaint(Sender: TObject);
begin
Canvas.Draw(0, 0, Bitmap);
end;
procedure TMyForm.FormCreate(Sender: TObject);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('MyBitmap.bmp');
end;
procedure TMyForm.FormDestroy(Sender: TObject);
begin
Bitmap.Free;
end;
| |
|
