Button Farbe ändern ?

[hoika]

Hallo,

http://bugs.freepascal.org/view.php?id=9285

[Cookienation]

Hallo Hoika,

ich verstehe da nicht ganz, was du mir damit sagen willst.

[Aviator]

Zitat von Cookienation:

Hallo Hoika,

ich verstehe da nicht ganz, was du mir damit sagen willst.

Er will damit sagen, dass bereits ein Bug im BugTracker eingestellt wurde. Allerdings ist es bei Windows so, dass die Buttons von Windows selbst gezeichnet werden und deshalb die Änderung der Color Eigenschaft keine Auswirkung hat. Alles was du tun kannst wäre, dass du dir entweder irgendwo einen anderen TColorButton o.ä. suchst oder dir selbst eine Button Komponente entwickelst.

[himitsu]

Oder Skins verwenden (da werden die Buttons dann nicht von Windows gezeichnet, aber man muß die Farbe über die Skin-Komponente steuern, bzw. einen anderen Skin auswählen)

Oder man schaltet das Theming für diese Button-Instanz aus, dann wird der Button im schönen "alten" Win9x-Style gezeichnet, wo der Button noch auf die Color hört.

[Cookienation]

Zitat von himitsu:

Oder man schaltet das Theming für diese Button-Instanz aus, dann wird der Button im schönen "alten" Win9x-Style gezeichnet, wo der Button noch auf die Color hört.

Wie genau geht das ? :S

[EWeiss]

Winproc überschreiben..
WinHandle = Handle des Button
wp = DC des Button wird von Windows übergeben.
clRed = Der Button ist dann Rot

Delphi-Quellcode:

var
  brush: HBrush;
case Msg of
  WM_CTLCOLORBTN:
    begin
      Color := clRed;
      SetBkMode(wp, TRANSPARENT);
      SetBkColor(wp, Color);

      if (brush <> 0) then
        DeleteObject(brush);

      brush := CreateSolidBrush(Color);
      SetProp(WinHandle, 'brush', brush);
      Result := brush;
      Exit;
  end;
end;

gruss

[Cookienation]

Zitat von EWeiss:

Winproc überschreiben..
WinHandle = Handle des Button
wp = DC des Button wird von Windows übergeben.
clRed = Der Button ist dann Rot

Delphi-Quellcode:

var
  brush: HBrush;
case Msg of
  WM_CTLCOLORBTN:
    begin
      Color := clRed;
      SetBkMode(wp, TRANSPARENT);
      SetBkColor(wp, Color);

      if (brush <> 0) then
        DeleteObject(brush);

      brush := CreateSolidBrush(Color);
      SetProp(WinHandle, 'brush', brush);
      Result := brush;
      Exit;
  end;
end;

gruss

Ich hätte eventuell erwähnen sollen, dass ich ein noch ein Anfänger bin.
Also erstmal ein paar Fragen:

1. Wo soll ich den Code bitte einfügen
2. Ich hab den Code mal ins FormCreate eingefügt. Es gab lauter Errors.
3. Was ist msg