NonVCL - Hintergrundfarbe eines "Labels" ändern

[Flocke]

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.

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

[Luckie]

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

[turboPASCAL]

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

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

Äh...

Zitat von turboPASCAL:

Edit5ID_RandomText: { Farbe des Editfeldes aendern }

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

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

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

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 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 von Olli:

GetSysColor und GetSysColorBrush

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