Benim sorum ScrollBox nesnesi ile ilgili olacaktı. Geliştirdiğim projede kullandığım bir scrollbox ın dikey kaydırma çubuklarında bazı değişiklikler yapmak istedim. Amacım daha büyük bir scrollbar yapmak ancak yapmış olduğum ayarların hiçbirisi çalışmıyor. Örneğin Thumbsize 100, ButtonSize 50 dememe rağmen herhangi bir değişiklik olmuyor. Bu sebeple yaptığım araştırmalar sonucunda FlatSB_SetScrollProp API sini buldum. Bu api yi aşağıdaki şekilde kullanınca istediğim şekli alıyor, ancak bu seferde herhangi bir mouse move ya da down olayında hemen yanında eski scrollbar çıkıyor. Ben ise eski scrollbarın bir daha çıkmasını istemiyorum.Bu sorunumu nasıl çözebilirim ?
Kod: Tümünü seç
uses commctrl;
InitializeFlatSB(ScrollBox1.Handle);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_CYVSCROLL, 100, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_CXVSCROLL, 50, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_VBKGCOLOR, clRed, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_HBKGCOLOR, clYellow, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_VSTYLE, FSB_REGULAR_MODE, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_CYHSCROLL, 100, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_CXHSCROLL, 100, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_VBKGCOLOR, clYellow, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_HBKGCOLOR, clBlue, True);
FlatSB_SetScrollProp(ScrollBox1.Handle, WSB_PROP_HSTYLE, FSB_REGULAR_MODE , True);
Delphi 7
Windows 7 32 bit