Witam i pozdrawiam serdecznie :)
Czy ktoś z Was wie może jak pokolorować komponent TScroolBar?
Z góry Dziękuje
Witam i pozdrawiam serdecznie :)
Czy ktoś z Was wie może jak pokolorować komponent TScroolBar?
Z góry Dziękuje
jak chcesz mieć ładny ScroolBar to stwórz własny a nie przerabiaj ten standardowy bo tworząc swój masz więcej możliwości a ze standardowym za wiele nie zrobisz
Dołączę się do tematu, ponieważ mam podobny problem. Jak mogę zmienić wygląd paska przewijania w komponencie TListview?
Zmiana koloru paska w ListView (znalezione w necie):
uses
CommCtrl;
InitializeFlatSB (ListView1.Handle);
FlatSB_SetScrollProp(ListView1.Handle, WSB_PROP_HSTYLE,FSB_ENCARTA_MODE, true);
FlatSB_SetScrollProp(ListView1.Handle, WSB_PROP_VSTYLE, FSB_ENCARTA_MODE, True);
FlatSB_SetScrollProp(ListView1.Handle, WSB_PROP_HBKGCOLOR , clBlue, true);
FlatSB_SetScrollProp(ListView1.Handle, WSB_PROP_VBKGCOLOR , clBlue, true);
Też znalazłem ten kod, ale on tylko zmienia tło paska przewijania a belka nabiera szarego, niezbyt ładnego koloru.
Powinno się dać przez napisanie zdarzenia WMPaint, ale nie testowałem z TScrollBar. Kod jest wzięty z TComboBox
Trzeba napisać własny komponent dziedziczący z TScrollBar
w private
procedure WMPaint(var Message: TWMPaint);message WM_PAINT;
a później
procedure TNazwaKlasy.WMPaint(var Message: TWMPaint);
var
PS: TPaintStruct;
DC: HDC;
Canvas: TCanvas;
begin
if (Assigned(strzalka) and (strzalka.Width>0)) then
begin
DC := Message.DC;
if DC = 0 then DC := BeginPaint(Handle, PS);
Canvas := TCanvas.Create;
try
Canvas.Handle := DC;
Canvas.Font.Name := Font.Name;
Canvas.Font.Size := Font.Size;
with Canvas do
begin
end;
finally
if Message.DC = 0 then EndPaint(Handle, PS);
end;
Canvas.Free;
end else
inherited;
end;
Zapytam krótko
Mogę uzyskać taki efekt np w listview?
http://img115.imageshack.us/my.php?image=pasekpd2.jpg
edit:
i drugie pytanko: Jak go mogę wyłączyć? By nie był widoczny na komponencie a przewijałbym np pokrętłem.
Zapytam krótko
Mogę uzyskać taki efekt np w listview?
Tak. Komponent VCLSkin: http://www.link-rank.com/