1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #include <Graphics.hpp> 6 #pragma hdrstop 7 8 #include "Unit1.h" 9 //--------------------------------------------------------------------------- 10 #pragma package(smart_init) 11 #pragma resource "*.dfm" 12 TForm1 *Form1; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 //--------------------------------------------------------------------------- 19 20 void __fastcall TForm1::Button1Click(TObject *Sender) 21 { 22 AnsiString pf; 23 24 switch(Image1->Picture->Bitmap->PixelFormat) { 25 case 26 pf1bit: pf = ". Monochrome"; 27 case 28 pf4bit: pf = ". 16 Colors"; 29 case 30 pf8bit: pf = ". 256 Colors"; 31 case 32 pf15bit: pf = ". 32768 Colors"; 33 case 34 pf16bit: pf = ". 65536 Colors"; 35 case 36 pf24bit: pf = ". 16 Million Colors"; 37 case 38 pf32bit: pf = ". 4.2 Billon of Colors!"; 39 default : 40 pf = ". Custom color scheme"; 41 } 42 ShowMessage(pf); 43 } 44 //---------------------------------------------------------------------------