Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
CodeMaster © (2009-02-02 13:22:00)
Задаю глупый вопрос: Как убрать скроллбары у 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-03 05:26:00) [1]

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

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

{RASkov} (2009-02-02 23:57:00) [2]
> [21] CodeMaster © (02.02.09 23:44)
> Наконец-то реализовал то-что хотел:

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

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

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

CodeMaster (2009-02-02 23:44:00) [3]
Наконец-то реализовал то-что хотел:
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;

CodeMaster (2009-02-02 23:02:00) [4]
пишу я для себя, остальные если хотят то пускай пользуются - не хотят пусть не пользуются. Меня как-то это не сильно волнует.

Amoeba (2009-02-02 20:44:00) [5]
Когда программеру больше заняться нечем, он пишет очередной никому нафиг не нужный плеер.

CodeMaster (2009-02-02 20:27:00) [6]
я тестировал пока других багов не нашёл.

Denis__ (2009-02-02 20:24:00) [7]

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

И то не факт.

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

100% уверен?

CodeMaster (2009-02-02 20:16:00) [8]
других недостатков и нет

Amoeba (2009-02-02 20:15:00) [9]

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

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

Palladin (2009-02-02 19:59:00) [10]
Ну так есть же куча компонентов для скинообразной оболочки, на кой свой то велосипед изобретать?

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

CodeMaster (2009-02-02 19:57:00) [11]

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

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

CodeMaster (2009-02-02 19:53:00) [12]
Делаю я плеер поэтому и нужен красивый скроллбар

Amoeba (2009-02-02 18:55:00) [13]

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

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

Palladin (2009-02-02 18:49:00) [14]
И будет программеру уважение и почет, а скучным Спольски, Кнуту, Бучу, Дейкстра и тд. позор и презрение, бо не сделали они так же :)

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

Amoeba (2009-02-02 18:42:00) [16]

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

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

CodeMaster (2009-02-02 17:45:00) [17]

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

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

CodeMaster (2009-02-02 17:44:00) [18]

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

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

Amoeba (2009-02-02 17:40:00) [19]

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

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

Медвежонок Пятачок (2009-02-02 17:39:00) [20]
А зачем получать скроллинфо, если скроллбаров уже нет?

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »