Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Astuces - Gaphique - Obtenir le format de pixels d'une image en Delphi

Ajouter un composant TButton, TImage, TLabel et TOpenDialog.


function NbCouleurs(Bmp:TBitmap):string;
begin
case Bmp.PixelFormat of
pf1bit:result:='Monochrome';
pf4bit:result:='16 couleurs';
pf8bit:result:='256 couleurs';
pf15bit:result:='32768 couleurs';
pf16bit:result:='65536 couleurs';
pf24bit:result:='16777216 couleurs';
pf32bit:result:='4294967296 couleurs';
pfCustom: result:='Nombre de couleurs inconnues';
end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.Filename);
Label1.Caption:=NbCouleurs(Image1.Picture.Bitmap);
end;
end;


Tous droits réservés - Contacts
Haut de la page