TPaintBox zeichnet Bitmap nicht

**ColeZero**

Schönen Abend zusammen

Ich bin grad am verzweifeln, denn meine TPaintBox will mein TBitmap weder mit Draw noch mit BitBlt.
Und zwar so:

Delphi-Quellcode:

			[...]

var

...

  outBit: TBitmap;

begin

  outBit := TBitmap.Create;

  ...

  //zeichnen Bitmap

  ..

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

  ...

end;

Aber die PaintBox1 rührt sich nicht und bleibt unverändert,
genau so wie mit der BitBlt procedure.

Wenn ich das Ganze aber mit einem TImage mache:

zusammenfalten · markieren

Delphi-Quellcode:

			[...]

var

...

  outBit: TBitmap;

begin

  outBit := TBitmap.Create;

  ...

  //zeichnen Bitmap

  ..

   Image1.Picture.Graphic := outBit;

  ...

end;

..dann klappt das ohne Probleme.

Hab ich bei der Paintbox was vergessen?

Mit freundlichen Grüßen

Update:

Habs nun selbst doch hinbekommen, ich weiß zwar nicht was nun anders ist. Aber ich hab eine eigene Klasse entwickelt von TGraphicsControl abgeleitet, und schon funktioniert das.
Code:

zusammenfalten · markieren

Delphi-Quellcode:

			 TDrawWindow = class(TGraphicControl)

  private

   FbackGround : TBitmap;

  public

    procedure SetBackGround(ABitMap : TBitMap);

  public

   procedure Redraw;

 end;

{ TDrawWindow }

procedure TDrawWindow.Redraw;

begin

  Self.Canvas.Draw(0, 0, FbackGround);

end;

procedure TDrawWindow.SetBackGround(ABitMap: TBitMap);

begin

 FbackGround := ABitMap;

 Redraw;

end;

Natürlich das das nur ne "Grobe" Klasse. Und da fehlt noch einiges

Also Thread kann geschlossen werden

TPaintBox zeichnet Bitmap nicht

TPaintBox zeichnet Bitmap nicht

Forumregeln