Bitmap Datei in ein TBitmap laden

[ferby]

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???

[Matze]

Moin, das beantwortet nun nicht deine Frage, du könntest es doch einfach so lösen:

PaintBox1.Canvas.Draw(0, 0, Bm);

[ferby]

Hallo,

ich weiß zwar nicht was ich jetzt anders als vorher habe, aber jetzt geht alles


...... ???


Danke

[turboPASCAL]

Hätte mich auch gewundert warum das nicht funktionieren sollte. Wollt greade mal vorschlagen das
du die Bitmapdatei überprüfst...
Im FormDestroy das Bitmap.Free; nicht vergessen, das kann auch solch komische Sachen bringen.