设计器

更新图标

funcext/tvclib/tslvcl.tsf

@@ -302,7 +302,7 @@ type TLabel = class(TcustomLabel)
 
     function publishs();override;
     begin
-        return array("name","action","align","anchors","caption","enabled","font",
+        return array("name","action","align","anchors","caption","enabled","font","border",
             "popupmenu","visible","textalign",
             "height","width","left","top","color","bkbitmap","parentcolor","parentfont","transparent",
             "onpopupmenu","onmousedown","onmouseup","onnotification");

funcext/tvclib/utslvclstdctl.tsf

@@ -2328,8 +2328,7 @@ type TcustomLabel = class(TGraphicControl)
     public
     function paint();override;
     begin
-        dc := canvas;
-        dc.font := font;
+        dc := canvas;        
         rc := ClientRect;
         if border then
         begin
@@ -2338,7 +2337,12 @@ type TcustomLabel = class(TGraphicControl)
             rc[2]-= 1;
             rc[3]-= 1;
         end
-        CanvasDrawAlignText(dc,rc,self.Caption,FTextAlign);
+        c := caption;
+        if c then 
+        begin 
+            dc.font := font;
+            CanvasDrawAlignText(dc,rc,c,FTextAlign);
+        end 
         if border then
         begin
             dc.Draw("polyline",array((rc[0],rc[1]),(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),(rc[0],rc[1])));