NonVCL - Hintergrundfarbe eines "Labels" ändern

[Luckie]

Aus meiner Dialogvorlage:

Delphi-Quellcode:

  whitebrush             : HBRUSH = 0;

  WhiteLB                : TLogBrush =
    (
    lbStyle: BS_SOLID;
    lbColor: $00FFFFFF;
    lbHatch: 0
    );

Delphi-Quellcode:

    WM_CTLCOLORSTATIC:
      begin
        case GetDlgCtrlId(lParam) of
          IDC_STC_BANNER: { color the banner white }
            begin
              whitebrush := CreateBrushIndirect(WhiteLB);
              SetBkColor(wParam, WhiteLB.lbColor);
              result := BOOL(whitebrush);
            end;
        else
          Result := False;
        end;
      end;