画刷设为红色 位图填充后的颜色为灰色,?(50分)

var
rc: Trect;
bmp: Tbitmap;
begin
bmp:= Tbitmap.Create;
bmp.LoadFromFile('e:/bmp.bmp');
rc := Rect(0,0,100,20);
bmp.Canvas.Brush.Style := bssolid;
bmp.Canvas.Brush.Color := clred;
bmp.Canvas.FillRect(rc);
image1.Canvas.CopyRect(bmp.Canvas.ClipRect,bmp.Canvas,bmp.Canvas.ClipRect);
image1.Refresh;
end;

设置一下
bmp.PixelFormat := pf24bit
试试看

呵呵! 感谢levi