TBitmap.Create in Komponente geht nicht

[scrat1979]

Hallo,

um mich etwas mit Canvas herumzuschlagen schreibe ich mir momentan meine eigene Progressbar. Die funktioniert im Prinzip auch schon tadellos, nur möchte ich jetzt noch einen Gradienten-Stil einfügen. Abgeleitet wurde von TGraphicsControl, wobei ich die Paint-Prozedur überschreibe.
In dieser möchte ich nun intern ein TBitmap erstellen, doch irgendwie funktioniert das überhaupt nicht. Bin ich jetzt schon zu bl*d eine TBitmap-Instanz zu erstellen?

Delphi-Quellcode:

procedure TMyGauge.Paint;
VAR MyRect         : TRect;
    BarRect        : TRect;
    SmallRect      : TRect;
    TempBitmap     : TBitmap;
    Text           : String;
[...]

begin
  // Interne Variablen initialisieren
  TempBitmap := tBitmap.Create;   // <-- Das funktioniert nicht
  MyRect := ClientRect;
  BarRect := ClientRect; InflateRect(BarRect, -1, -1);
  [...]
end;

NUR mit der Variablendeklaration lässt sich der Source einwandfrei compilieren, nur in der Zeile "TempBitmap := tBitmap.Create" kommt die Compilermeldung "[Pascal Error] MyGauge.pas(176): E2003 Undeclared identifier: 'Create'". HOffe Ihr könnt meinen Fehler aufdecken, ich verstehe die Welt nicht mehr

SCRaT

[Hawkeye219]

Hallo SCRaT,

in der USES-Anweisung sollte die Unit Windows vor der Unit Graphics stehen. Bei mehrdeutigen Bezeichnern (hier TBitmap) wird immer der aus der zuletzt aufgeführten Unit verwendet.

Gruß Hawkeye

[scrat1979]

Habe es zwar aus Zeitgründen noch nicht getestet, aber bei mir stehen die Units tatsächlich in der anderen Reihenfolge im Code. Wird wohl daran liegen. Das muss man auch erst einmal wissen! Respekt und Danke. Sollte es nicht gehen melde ich mich noch einmal

SCRaT

[turboPASCAL]

...und vermeide es bitte ein Bitmap im OnPaint zu erstellen. Die Paintrout. wird sehr oft aufgerufen
was zu Leistungseinbusen führen kann.

[scrat1979]

Funktioniert! Lag tatsächlich an den units

@turboPASCAL: Alles klar, ich nehme mir Deinen Tip zu Herzen. Jetzt verstehe ich auch, warum die "anderen" es im Konstruktor erstellen.

Danke Euch beiden...

SCRaT