Hi,
was ist denn das?
Zitat:
constructor TGraphicButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPicture := TBitmap.Create;
Picture := TBitmap.Create;
end;
FBitmap ist die lokale Variable innerhalb deines Objektes und Picture der öffentlicher Verweis darauf, wozu dann
Zitat:
Picture := TBitmap.Create;
das wäre doppeltgemoppelt.
Und warum TBitmap? Normaler Weise sollte es so aussehen:
Delphi-Quellcode:
TGraphicButton = class(TCustomControl)
private
...
FPicture: TPicture;
procedure SetPicture(Value: TPicture);
...
property Picture: TPictureread FPicture write SetPicture;
end;
Damit ist es egal ob die Quelle eine Bitmap, JPEG, PNG oder sonst etwas ist.
Bezüglich des Overheat sollte allerdings von TGraphicControl abgeleitet werden, steht auch so in der Hilfe.