[lazarus] [patch] paint disabled label and panel

[darekm]

Index: include/customlabel.inc
===================================================================
--- include/customlabel.inc    (wersja 9610)
+++ include/customlabel.inc    (kopia robocza)
@@ -350,9 +350,10 @@
begin
  R := Rect(0,0,Width,Height);
  With Canvas do begin
-    Color := Self.Color;
+    if enabled then   Color := Self.Color
+               else   Color := clNone;
    Font := Self.Font;
-    if Color<>clNone then
+    if (Color<>clNone) and not Transparent then
      FillRect(R);
{
    If BorderStyle <> sbsNone then begin
Index: include/custompanel.inc
===================================================================
--- include/custompanel.inc    (wersja 9610)
+++ include/custompanel.inc    (kopia robocza)
@@ -111,6 +122,15 @@
    TS.Opaque:= false;
    TS.Clipping:= false;
    TS.SystemFont:=Canvas.Font.IsDefault;
+    If not Enabled then begin
+      Canvas.Font.Color := clBtnHighlight;
+      OffsetRect(ARect, 1, 1);
+      Canvas.TextRect(ARect, ARect.Left, ARect.Top, Caption, TS);
+      Canvas.Font.Color := clBtnShadow;
+      OffsetRect(ARect, -1, -1);
+    end
+    else Canvas.Font.Color := Font.Color;
+
    Canvas.TextRect(ARect,ARect.Left,ARect.Top, Caption, TS);
  end;


_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives