Mega Code Archive

 

Categories / Delphi / Graphic

 

Create bmp with different PixelFormat

Title: Create bmp with different PixelFormat Use Image1.Picture.Bitmap.PixelFormat: procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.LoadFromFile('factory.bmp'); case ComboBox1.ItemIndex of 1: Image1.Picture.Bitmap.PixelFormat:=pf1bit; 2: Image1.Picture.Bitmap.PixelFormat:=pf8bit; 3: Image1.Picture.Bitmap.PixelFormat:=pf16bit; 4: Image1.Picture.Bitmap.PixelFormat:=pf24bit; end; Image1.Picture.Bitmap.SaveToFile('factory2.bmp'); end;