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