Hallo,
ich möchte eine Bitmapdatei (256 Farben) in ein TBitmap laden
dazu mache ich das:
Delphi-Quellcode:
.
.
.
var
Form1: TForm1;
BM: TBitmap;
.
.
.
procedure TForm1.FormCreate(Sender: TObject);
begin
BM:=TBitmap.Create;
// bm.PixelFormat := pf32Bit; // mit und ohne dieser Zeile gehts nicht....
end;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
bm.LoadFromFile('Neu Bitmap.bmp');
end;
.
.
.
procedure TForm1.FormPaint(Sender: TObject);
begin
BitBlt(paintbox1.Canvas.Handle, 0, 0, bm.Width, bm.Height, bm.Canvas.Handle, 0, 0, SrcCopy);
end;
Es werden immer nur ein kleiner Roter Streifen gemalt obwohl Rot nichteinmal im Bitmap vorkommt...
mache ich was falch???