Zitat von
cherry:
Ist das unschön? oder kann man das so lassen?
Na ja, programmiert nach dem Motto "blos nicht Code Teile wiederverwenden, lieber Copy & Paste"
Delphi-Quellcode:
procedure TEButton.DrawPictureOver;
begin
if (FPictureUseOnlyOne) then
begin
(*
if (FPicture <> nil) then
begin
if (FPicture.Graphic is TIcon) then FPicture.Icon.handle;
Canvas.Draw((Width - FPicture.Width) div 2,(Height - FPicture.Height) div 2 ,FPicture.Graphic);
end; *)
DrawPicture; // das ist doch das Gleiche
end