Forum: Win32/Win64 API (native code)
by KodeZwerg,
14. Jun 2018
{ TMyScrollBar }
//******************************************************************************
constructor TMyScrollBar.Create(AOwner: TComponent);
begin
inherited;
FHBrush := CreateSolidBrush(ColorToRGB(FBackColor));
end;
//******************************************************************************
destructor TMyScrollBar.Destroy;
Forum: Win32/Win64 API (native code)
by KodeZwerg,
13. Jun 2018
An TE, es wäre generell immer hilfreich etwas Code von sich zu zeigen damit jeder sehen kann wie Du vorgehst um da etwas starthilfe leisten zu können.
So gebe ich Dir ein simples Beispiel, da ich Dein Code nicht kenne wird vieles anders sein als wie bei Dir.
TForm1 = class(TForm)
ScrollBar1: TScrollBar; // <- auf das bezieht es sich
protected
procedure WMCtlColorScrollbar(var...
Forum: Win32/Win64 API (native code)
by KodeZwerg,
13. Jun 2018
Ja das ist was richtig schönes, bei meiner Variante kommt nur ne andere Farbe raus kein komplett Eigenes Design.
Forum: Win32/Win64 API (native code)
by KodeZwerg,
13. Jun 2018
Message CN_CTLCOLORSCROLLBAR kannst Du verwenden. Das gilt für alle Delphis auch die ohne Style.