tLabel should care about WordWrap property

attached patch repair it

Darek
Index: include/customlabel.inc
===================================================================
--- include/customlabel.inc     (wersja 8935)
+++ include/customlabel.inc     (kopia robocza)
@@ -365,7 +365,11 @@
     FillChar(TR,SizeOf(TR),0);
     With TR do begin
       Alignment := Self.Alignment;
-      WordBreak := True;
+      if wordWrap then begin
+        WordBreak := True;
+      end else begin
+        SingleLine:=true;
+      end;
       Clipping := True;
       ShowPrefix := ShowAccelChar;
       SystemFont:=false;

Reply via email to