NonVCL - Hintergrundfarbe eines "Labels" ändern

[turboPASCAL]

Hi,

Bin gerade dabei ein bissel mit SetLayeredWindowAttributes und NonVCL zu spielen wass auch gut funktioniert, was ich gern wissen möchte ist wie man bei einem Static Text die Hintergrundfarbe ändern kann.

SendMessage(GetDlgItem(hwnd, edt_Edit), PBM_SETBKCOLOR, 0, RGB(255,0,0) {clWindowText}); So will es nicht. Jemand 'ne Idee ?

[Flocke]

Normalerweise schickt ein Static-Control eine WM_CTLCOLOR Meldung an das Vaterfenster. Dort musst du die abfangen und verarbeiten (dabei gibst du einen HBrush und eine Farbe zurück).

[turboPASCAL]

Hm, hilft mir jetzt nicht wirklich weiter, ich wies nicht wie das zu realisieren ist.
Muss ich da jetzt die WM_PAINT des Controls abfangen/überschreiben ?

[Olli]

Leider hat Flocke wohl ein veraltetes PSDK. Jedenfalls gibt es keine einheitliche Nachricht mehr, sondern vielmehr eine pro Control-Typ. Für Static lautet sie WM_CTLCOLORSTATIC. Diese mußt du abfangen und bearbeiten, wobei du aus dem Fensterhandle in lParam mit GetDlgCtrlID die ID des Controls herausbekommst um die Nachricht eben nur für bestimmte Controls zu "überschreiben".

Als Rückgabewert nimmst du den Brush mit der Hintergrundfüllung. Ansonsten wParam als DC benutzen und mit SetTextColor, SetBkColor und SetBkMode.

[turboPASCAL]

Hm... also ungefähr so wie du es in deinem absolut veraltetem und nicht mehr zu gebrauchenden sondern eher das von Luckie zu benutzendem Tutorial mit dem/der HyperlinkWndProc gemacht hast.

thx euch beiden.

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

[turboPASCAL]

Zitat von Luckie:

Aus meiner Dialogvorlage

Sollte ich das übersehen haben ? Danke.

[Flocke]

Zitat von Olli:

Leider hat Flocke wohl ein veraltetes PSDK.

Ja, das in meinem Kopf 8)
Sorry dafür (aber eine Suche nach WM_CTLCOLOR hätte ihm Aufklärung gebracht).

Zitat von Luckie:

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;

Gibt das kein Ressourcen-Leck? Du erzeugst doch jedes Mal einen HBRUSH.

Zitat von MSDN:

The system does not automatically destroy the returned brush. It is the application's responsibility to destroy the brush when it is no longer needed.

[NicoDE]

Er hätte auch einen System-Brush verwenden können (z.B.: GetStockObject(NULL_BRUSH)).

[Luckie]

Zitat von Flocke:

Gibt das kein Ressourcen-Leck? Du erzeugst doch jedes Mal einen HBRUSH.

Zitat von MSDN:

The system does not automatically destroy the returned brush. It is the application's responsibility to destroy the brush when it is no longer needed.

An welcher Stelle sollte ich ihn denn wieder zerstören? Ich kenne die Stelle aus dem PSDK, nur wüßte ich nicht, wo ich ihn wieder zerstören sollte.

@Nico: Der Brush ist aber nicht weiß. Aber der ist es: WHITE_BRUSH. Gute Idee, wieder Ressourcen gespart.