Re: [lazarus] [patch] paint disabled label and panel

[Mattias Gaertner]

On Fri, 14 Jul 2006 23:20:34 +0200
darekm <[EMAIL PROTECTED]> wrote:

> 
> 
> 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;


Thanks. Applied.

Mattias

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