Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

СкроллБар в ListBox [D6, Win2k, WinXP]


XfroSt ©   (2006-04-26 16:29:00) 

Есть у меня заполенный ListBox, я выбираю нужный его элемент и выделяю его
ListBox.Selected[i] := true;

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

Вопрос можно ли как то в ListBox ещи пододвинуть скроллбар так что бы нужный элемент стал виден ??

Спасибо.


XfroSt   (2006-04-27 09:57:00) [1]

Добавил в исходники новой компоненты из ListBox

function TFlatListBox.GetTopIndex: Integer;
begin
         Result := SendMessage(Handle, LB_GETTOPINDEX, 0, 0);
end;

procedure TFlatListBox.SetTopIndex(const Value: Integer);
begin
        if GetTopIndex <> Value then
   SendMessage(Handle, LB_SETTOPINDEX, Value, 0);
end;


ну и

property TopIndex: Integer read GetTopIndex write SetTopIndex;


И ни чег причем когда пишу

FlatLB.TopIndex := 10;
Flatlb.Selected[10] := true;


То даже не выделяет .. стоит убрать

FlatLB.TopIndex := i;


То выделяет... как думаете в чем может быть загвоздка ?


MBo   (2006-04-26 17:21:00) [2]

Посмотри в исходниках Listbox, как это реализовано, и проверь, работает ли для твоего компонента


XfroSt   (2006-04-26 16:58:00) [3]

хэх ... я использую немного дургой компонент не ListBox а FlatListBox  а там этого нет ... жаль ...

А по другому ни как ?


MBo   (2006-04-26 16:36:00) [4]

TopIndex


Наверх

Титульная страница Поиск, карта сайта Написать письмо