Delphi-PRAXiS - Delphi TBitmap.Create in Komponente geht nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TBitmap.Create in Komponente geht nicht (https://www.delphipraxis.net/88061-tbitmap-create-komponente-geht-nicht.html)

TBitmap.Create in Komponente geht nicht

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

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 :shock:

SCRaT

Re: TBitmap.Create in Komponente geht nicht

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

Re: TBitmap.Create in Komponente geht nicht

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. :firejump: Das muss man auch erst einmal wissen! Respekt und Danke. Sollte es nicht gehen melde ich mich noch einmal :-)

SCRaT

Re: TBitmap.Create in Komponente geht nicht

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

Re: TBitmap.Create in Komponente geht nicht

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