MouseEnter/MouseLeave ohne VCL!

[xaromz]

Hallo,

die Message WM_CTLCOLORSTATIC erwartet als Rückgabewert einen HBrush. Den musst Du also auch zurückgeben:

Delphi-Quellcode:

        if lParam = GetDlgItem(hWnd, ID_STC_WEB) then
        begin
          SetTextColor(wParam, RGB(0, 0, 255));
          // Text-Hintergrund setzen
          SetBkColor(wParam, GetSysColor(COLOR_BTNFACE));
          // Brush zurückliefern
          Brush := GetSysColorBrush(COLOR_BTNFACE);
          Result := Brush;
          SetProp(hWnd, 'Brush', Brush);
        end

Gruß
xaromz

[Luckie]

Ich habe ihn doch zurückgegeben. Aber dein Code funktioniert. Besten Dank noch mal. Jetzt kan nich endlich das Projekt abschlieesen. Puh, war eine schwere Geburt.

[xaromz]

Hallo,

Zitat von Luckie:

Ich habe ihn doch zurückgegeben.

Nö, hast Du nicht . Du hattest einen Farbwert zurückgeliefert (GetSysColor). Gefragt war GetSysColorBrush.

Aber je schwerer die Geburt, desto...na ja, wie auch immer .

Gruß
xaromz

[Luckie]

Na ja jeden falls geht es jetzt. Wenn ich den Code noch etwas aufgeräumt habe, werde ich es hier vorstellen. Fehlt eigentlich nur noch ein kleines Tool, was das Byte-Array für das Icon erstellt.