Einzelnen Beitrag anzeigen

ColeZero

Registriert seit: 6. Sep 2007
18 Beiträge
 
#1

TPaintBox zeichnet Bitmap nicht

  Alt 24. Jul 2010, 00:30
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:
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:

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

Geändert von ColeZero (24. Jul 2010 um 00:38 Uhr)
  Mit Zitat antworten Zitat