请问在delphi7下面,如何显示256色的位图文件(bmp)
var
MyJpeg: TJpegImage;
Bmp: TBitmap;
begin
Bmp:= TBitmap.Create;
MyJpeg:= TJpegImage.Create;
Bmp.LoadFromFile( 'c:\2.bmp ');
Bmp.PixelFormat := pf24Bit;
Bmp.Canvas.StretchDraw(Rect(0,0,Bmp.Width,Bmp.Height), image1.Picture.Graphic);
MyJpeg.Assign(Bmp);
MyJpeg.CompressionQuality := 50;
MyJpeg.Compress;
MyJpeg.SaveToFile( 'C:\2.jpg ');
MyJpeg.free;
Bmp.free;
我要的不是像这样的代码!!!
[解决办法]
“在delphi7下面用image控件显示不出来256色的图片”——这是谁告诉你的?
你上面给出的代码中, 根本没有在可视化组件中显示图片的代码，怎么可能会显示出图片来呢？
下面这一句不就可以显示出256色(其实是任意色彩数)的BMP了吗？
Image1.Picture.LoadFromFile( 'c:\2.bmp ');
[解决办法]
可能不是bmp
constantine.student@sina.com
[解决办法]
估计LZ的图片格式是gif，2006和2007支持gif格式，而D7不支持，所以“,在delphi2006/2007里面,是可以用image控件,不用做任何处理就能直接显示256色位图文件的”
