Utiliser les icones/Bmp système

{valeurs possibles:
- IDI_APPLICATION
- IDI_ASTERISK
- IDI_EXCLAMATION
- IDI_HAND
- IDI_QUESTION}
//Icons

procedure TForm1.Button1Click(Sender: TObject);
var
icon:TIcon;

begin
Icon:=TIcon.Create;
icon.Handle:=LoadIcon(0,IDI_HAND);
Canvas.Draw(30,100,icon);
end;

{valeurs possibles
- OBM_BTNCORNERS
- OBM_BTSIZE
- OBM_CHECK
- OBM_CHECKBOXES
- OBM_CLOSE
- OBM_COMBO
- OBM_DNARROW
- OBM_DNARROWD
- OBM_DNARROWI
- OBM_LFARROW
- OBM_LFARROWD
- OBM_LFARROWI
- OBM_MNARROW
- OBM_REDUCE
- OBM_RESTORE
- OBM_REDUCED
- OBM_SIZE
- OBM_UPARROW
- OBM_ZOOM}

//Bitmaps
procedure TForm1.Button2Click(Sender: TObject);
var
bitmap:TBitmap;

begin
bitmap:=TBitmap.Create;
bitmap.Handle:=LoadBitmap(0,makeintresource(OBM_RESTORE));
canvas.Draw(100,100,bitmap);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1456 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Surface
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur