Eigene Scrollbar bei Treeview / List usw. verwenden...

[Bernd Höhner]

Danke. das ist nicht schlecht, aber ich bekomme das Message Handling noch nicht richtig hin.
Man muss alle Calls an die FlatSB_... Calls weiterleiten.

Ein Memofeld mit neuem Scrollbar sollte so aussehen:

Delphi-Quellcode:

ScrollWnd := Memo1.Handle
if (InitializeFlatSB(ScrollWnd)) then
  begin
    FlatSB_SetScrollProp(ScrollWnd, WSB_PROP_HBKGCOLOR,$00FF0000,false);
    oldproc := Memo1.WindowProc;
    Memo1.WindowProc := NewMethod;
  end;

In New Method wird auf Messages wie WM_HSCROLL, SBM_ENABLE_ARROWS, SBM_GETSCROLLINFO usw.. reagiert, um nach FlatSB_... weiterzuleiten. Das ist doch richtig, oder ?

Der Effekt ist, das die Scrollbars zwar flat sind (der untere ist auch blau), aber irgendwie funktionieren sie nicht, und werden von std.-sb's überdeckt..

Hast Du vielleicht ein Beispiel zur Hand ?

Gruss,
bErnd