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