Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#15

Re: NonVCL - Hintergrundfarbe eines "Labels" ände

  Alt 1. Sep 2005, 16:02
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:
Angehängte Dateien
Dateityp: zip project1.exe_708.zip (16,9 KB, 15x aufgerufen)
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat