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.

Delphi-Quellcode:

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. :zwinker:

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:

Zitat von Luckie

Aus meiner Dialogvorlage

Sollte ich das übersehen haben ? :gruebel: Danke. :cheers:

[Flocke]

Zitat:

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:

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:

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:

Zitat von Flocke

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

Zitat:

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. :gruebel:

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

[Flocke]

Zitat:

Zitat von Luckie

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. :gruebel:

Also ich hab' dafür immer eine globale Variable genommen (so wie du auch, glaube ich), ganz am Anfang (oder bei der ersten Benutzung) einmal den HBRUSH erzeugt und beim Programmende wieder freigegeben. Ein Stock-Brush ist aber natürlich auch gut (sofern einer genau die Farbe trifft, die du haben willst).

[Luckie]

Ja hatte ich auch erst, aber am Ende ist es sowieso für den Popo. So bald der Prozess beendet wird, zerstört Windows auch den Speicherbereich und von dem Prozess ist nichts mehr im Speicher.

Jetzt sieht das bei mir so aus:

Delphi-Quellcode:

    WM_CTLCOLORSTATIC:
      begin
        case GetDlgCtrlId(lParam) of
          IDC_STC_BANNER: { color the banner white }
            begin
              result := BOOL(GetStockObject(WHITE_BRUSH));
            end;
        else
          Result := False;
        end;
      end;

[Flocke]

Zitat:

Zitat von Luckie

Ja hatte ich auch erst, aber am Ende ist es sowieso für den Popo. So bald der Prozess beendet wird, zerstört Windows auch den Speicherbereich und von dem Prozess ist nichts mehr im Speicher.

Bist du sicher, dass das auch für GDI-Handles gilt? Ich dachte bisher immer, die würden beim Prozessende nicht automatisch freigegeben. :gruebel:

[Luckie]

Der Richter sagt dazu nichts explizit, deswegen bin ich davon ausgegenagen, dass dies auch für GDI Handles gilt.

[turboPASCAL]

:gruebel: Was hab ich da nur wieder für ein Thema angesprochen ? :zwinker:

Was spricht gegen:

Delphi-Quellcode:

WM_CTLCOLORSTATIC:
      begin
        case GetDlgCtrlId(lParam) of
          Edit5ID_RandomText: { Farbe des Editfeldes aendern }
            begin
              SetTextColor(wParam, clBlue);
              SetBkColor(wParam, clWhite);
            end;
          else Result := False;
        end;
      end;

...und wie kann man die Farbe zB. clBtnFace setzen (Ähm... ohne die Unit Graphics die Systemfarben setzen)

Zitat:

Zitat von Luckie

Delphi-Quellcode:

//..
case GetDlgCtrlId(lParam) of
  IDC_STC_BANNER: { color the banner white }
    begin
      result := BOOL(GetStockObject(DKGRAY_BRUSH {WHITE_BRUSH}));
    end;
  else //...

dann wird es bei mir so:

[Flocke]

Zitat:

Zitat von turboPASCAL

Edit5ID_RandomText: { Farbe des Editfeldes aendern }

Wenn das ein Edit-Feld ist, dann musst du WM_CTLCOLOREDIT abfangen - es gibt für jede Control-Klasse eine eigene Meldung.

[turboPASCAL]

:gruebel: Äh...

Zitat:

Zitat von turboPASCAL

Edit5ID_RandomText: { Farbe des Editfeldes aendern }

Ne, Edit5ID_RandomText ist ein Textfeld (Copy&Paste Fehler :drunken: )

Was mich nun noch interesiert ist, wie man auf die Systemfarben ala clHighlight oder so zugreifen kann.
Die Systemfarben sind ja in der Unit Graphics def.

Delphi-Quellcode:

const
  clRed       = $000000FF;
  clGreen     = $0000FF00;
  clBtnFace   = ?
  clHighlight = ?

[Olli]

Zitat:

Zitat von Luckie

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. :gruebel:

Guckst du mal in meine Programme. Ich speicher die Brushes als Property des jeweiligen Fensters ab.

Zitat:

Zitat von Luckie

Der Richter sagt dazu nichts explizit, deswegen bin ich davon ausgegenagen, dass dies auch für GDI Handles gilt.

Sollte aber so sein.

@turbo: Wenn du ein readonly-EDIT hast, dann mußt du übrigens auch diese Nachricht verwenden (also WM_CTLCOLORSTATIC), wenn es read/write ist, nimmste die entsprechende (also WM_CTLCOLOREDIT).

[Olli]

Zitat:

Zitat von turboPASCAL

Die Systemfarben sind ja in der Unit Graphics def.

Delphi-Quellcode:

const
  clRed       = $000000FF;
  clGreen     = $0000FF00;
  clBtnFace   = ?
  clHighlight = ?

GetSysColor und GetSysColorBrush

[turboPASCAL]

Zitat:

Zitat von Olli

GetSysColor und GetSysColorBrush

Ja, natürlich :wall: , so jetzt hab ich mich genug blamiert. :wink: THX.