Bitmaps auf eigener Komponente

[TheMiller]

Hallo,

egal wie ich es versuche, ich kann keine Bitmaps auf meiner Komponente anzeigen lassen. Es wird zwar alles gespeichert, aber nicht angezeigt. Diese Komponente ist vom Typ TCustomControl und ich habe folgenden Code:

Delphi-Quellcode:

constructor TRollOver.Create(AOwner: TComponent);
var
  glyph: TBitmap;
begin
  inherited Create(AOwner);
  glyph:=TBitmap.Create;
  glyph.Width:=30;
  glyph.Height:=30;
  glyph.LoadFromFile('C:\test.bmp');
end;

Bei einer Ableitung von TSpeedButton funktioniert das Anzeigen, aber die Eigenschaft "Width" für das Bild wird nicht übernommen, obwohl ich das eingestellt hatte.

[mkinzler]

1. Mußt du Glyph nicht als loakle Variable sondern als (privaten) Member der Klasse deklarieren.
2. mußt du noch dafür sorgen, daß dein Bitmap beim Zeichenn des Fenster auch auf den Canvas gezeichnet wird.

[TheMiller]

Ok, das habe ich jetzt beides gemacht.

Doch wenn ich

Canvas.Assign(Glyph); eingebe, dann kommt folgende Fehlermeldung:

TBitmap kann nicht zu TControlCanvas zugewiesen werden Hm... weiß nicht weiter. Komme mir ziemlich dumm vor, aber es gibt leider nicht all zu viele TUTs zur OOP...Sorry

[mkinzler]

Tcanvas und TBitmap sind auch nicht kompatibel. Ein Canvas besitzt aber die Methode .Draw()

[TheMiller]

Das habe ich auch schon probiert:

Delphi-Quellcode:

constructor TRollOver.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  glyph:=TBitmap.Create;
  glyph.Width:=30;
  glyph.Height:=30;
  glyph.LoadFromFile('C:\Admin.bmp');
  canvas.Draw(0,0,glyph);
end;

und dabei kommt die Meldung

...ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Element '' hat kein übergeordnetes Fenster

[Khabarakh]

mkinzler hat es schon gesagt: Du musst beim OnPaint-Ereignis zeichnen.

[mkinzler]

Zu diesem Zeitpunkt existiert u.U. der Canvas noch nicht.
Du mußt .Paint() implementieren, so daß dein Bild bei jedem Neuzeichnen deiner Komponente gezeichnet wird.

[TheMiller]

Juhuu!! Das klappt!

Ist ja geil! Danke!