canvas probleme, oder so

[shmia]

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