Отключение скроллбаров

← →
CodeMaster © (2009-02-02 13:22) [0]

Задаю глупый вопрос: Как убрать скроллбары у TListBox.
TListBox храняться в динамическом массиве, и нужно у каждого из них их убрать скроллеры.
ShowScrollBar не помогает
Нашёл в Интернете вот такой пример c TlistView, кстати он работает и на TListBox
FListViewWndProc: TWndMethod;
procedure ListViewWndProc(var Msg: TMessage);
implementation
....
procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, FShowHoriz);
ShowScrollBar(ListView1.Handle, SB_VERT, FShowVert);
FListViewWndProc(Msg); // process message
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FShowHoriz := True; // show the horiz scrollbar
FShowVert := False; // hide vert scrollbar
FListViewWndProc := ListView1.WindowProc; // save old window proc
ListView1.WindowProc := ListViewWndProc; // subclass
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restore window proc
FListViewWndProc := nil;
end;

Мне кажется нужно как-то отредактировать этот код должным образом. Подскажите ПЛЗ. Зарание спасибо

← →
CodeMaster © (2009-02-02 16:58) [1]

Спасиб уже не надо, понял как это сделать: Params.Style:= Params.Style - WS_VSCROLL;

← →
CodeMaster © (2009-02-02 17:11) [2]

Появилась проблема вместе с отключением скроллбара и перестал работать получать информацию ScrollInfo, что делать не подскажите?*

← →
Amoeba © (2009-02-02 17:38) [3]

> вместе с отключением скроллбара и перестал работать получать
> информацию ScrollInfo

Без скроллбара ListBox скроллируется?

← →
Медвежонок Пятачок © (2009-02-02 17:39) [4]

А зачем получать скроллинфо, если скроллбаров уже нет?

← →
Amoeba © (2009-02-02 17:40) [5]

> TListBox храняться в динамическом массиве, и нужно у каждого
> из них их убрать скроллеры.

А нафига приспичило их убирать?

← →
CodeMaster © (2009-02-02 17:44) [6]

> Amoeba © (02.02.09 17:40) [5]
> А нафига приспичило их убирать?

Нужно убрать потому что я хочу прилепить свой скроллбар, а так как не получает данные ScrollInfo мой скроллбар тоже не получает никакой информации.

← →
CodeMaster © (2009-02-02 17:45) [7]

> Amoeba © (02.02.09 17:38) [3]
> Без скроллбара ListBox скроллируется?

Да прокручивание возможно SendMessage(Handle,wm_vscroll, SB_LINEDOWN или SB_LINEUP, 0);

← →
Amoeba © (2009-02-02 18:42) [8]

> Нужно убрать потому что я хочу прилепить свой скроллбар

Больше заняться нечем, кроме как бесполезные рюшечки цеплять?

← →
Palladin © (2009-02-02 18:47) [9]

Ну почему бесполезные :) Увидев "не такие" полосы прокрутки, юзер воскликнет "Ах крут программер!" :)

← →
Palladin © (2009-02-02 18:49) [10]

И будет программеру уважение и почет, а скучным Спольски, Кнуту, Бучу, Дейкстра и тд. позор и презрение, бо не сделали они так же :)

← →
Amoeba © (2009-02-02 18:55) [11]

> Palladin © (02.02.09 18:47) [9]
>
> Ну почему бесполезные :) Увидев "не такие" полосы прокрутки,
> юзер воскликнет "Ах крут программер!" :)

А потом обматерит программера, когда узреет кучу глюков в его шедевре, ибо весь программерский пар ушел в свисток.

← →
CodeMaster © (2009-02-02 19:53) [12]

Делаю я плеер поэтому и нужен красивый скроллбар

← →
CodeMaster © (2009-02-02 19:57) [13]

> И будет программеру уважение и почет, а скучным Спольски,
> Кнуту, Бучу, Дейкстра и тд. позор и презрение, бо не сделали
> они так же :)

Ну почему сразу почёт и уважение, просто сами посудите у плеера собственная оболочка и стандартный скроллбар никак не вписывается в неё.

← →
Palladin © (2009-02-02 19:59) [14]

Ну так есть же куча компонентов для скинообразной оболочки, на кой свой то велосипед изобретать?

http://www.alphaskins.com/index_rus.php

← →
Amoeba © (2009-02-02 20:15) [15]

> CodeMaster © (02.02.09 19:53) [12]
>
> Делаю я плеер

Уже есть легион плееров всех цветов и оттенков, теперь появится на свет еще один, отличающийся от них лишь красивым скроллбаром, и это будет его единственным достоинством при куче недостатков.

← →
CodeMaster © (2009-02-02 20:16) [16]

других недостатков и нет

> отличающийся от них ... красивым скроллбаром

И то не факт.

> других недостатков и нет

100% уверен?

я тестировал пока других багов не нашёл.

Когда программеру больше заняться нечем, он пишет очередной никому нафиг не нужный плеер.

пишу я для себя, остальные если хотят то пускай пользуются - не хотят пусть не пользуются. Меня как-то это не сильно волнует.

Наконец-то реализовал то-что хотел:
type
TSpecialListBox = class(TListBox)
protected
procedure Paint(var Msg: TMessage); message WM_NCPAINT;
public
constructor Create(AOWner: TComponent); override;
destructor Destroy; override;
end;
.........
procedure TSpecialListBox.Paint(Var Msg: Tmessage);
begin
ShowScrollBar(Handle,SB_VERT,False);
ShowScrollBar(Handle,SB_HORZ,False);
end;

> [21] CodeMaster © (02.02.09 23:44)
> Наконец-то реализовал то-что хотел:

Это не плейер.... это какой-то разукрашенный глюк...
Т.е. безграмотная, но возможно пёстрая снаружи, программулина....
:)

> пишу я для себя

чтож так себя не любишь? :)

> {RASkov} © (02.02.09 23:57) [22]
>
> > [21] CodeMaster © (02.02.09 23:44)
> > Наконец-то реализовал то-что хотел:
>
> Это не плейер.... это какой-то разукрашенный глюк...
> Т.е. безграмотная, но возможно пёстрая снаружи, программулина.
> ...
> :)
>
> > пишу я для себя
>
> чтож так себя не любишь? :)

Ну почему же не люблю, конечно люблю ^__^ Мне очень даже нравится мой проект, не считаю то что он хуже чем другие

Отключение скроллбаров Найти похожие ветки