VPF::ListBox - Форум программистов

ivan219

Дата 21.4.2006, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

1. Мне нужно убрать полосы прокрутки т.е. чтоб их небыло видно даже когда текста становится много и он выходит за пределы видимой части.

2. Мне надо программно выделять определённую стороку.

--------------------

Мой первый сайт и моя первая программа!!!!!

Yanis

Дата 21.4.2006, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 21.4.2006, 20:17

)

1. Мне нужно убрать полосы прокрутки т.е. чтоб их небыло видно даже когда текста становится много и он выходит за пределы видимой части.

Код


SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true);

Цитата(ivan219 @ 21.4.2006, 20:17

)

2. Мне надо программно выделять определённую стороку.

Код


ListBox1.ItemIndex := 2;

Это сообщение отредактировал(а) Yanis - 21.4.2006, 20:47

--------------------

*щёлк*

ivan219

Дата 21.4.2006, 21:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Спасибо.

--------------------

Мой первый сайт и моя первая программа!!!!!

ivan219

Дата 22.4.2006, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true); Это неработает т.е. ошибок нет но и скрол неисчез.

Может даш маленький пример smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Guedda

Дата 22.4.2006, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(ivan219 @ 22.4.2006, 18:39

)

Это неработает т.е. ошибок нет но и скрол неисчез.

Почему? У меня все работает...
Вот скриншот. В ЛистБоксе 47 записей.

Я в FormCreate прописал эту процедуру...

Присоединённый файл ( Кол-во скачиваний: 25 )

listbox.JPG 16,28 Kb

--------------------

Ll 2

Yanis

Дата 23.4.2006, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 22.4.2006, 17:39

)

Может даш маленький пример

А то, что я привёл не пример?

--------------------

*щёлк*

ivan219

Дата 23.4.2006, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Да точно работает просто надо было запускать эту функцию после того как список заполнится но до этого скрол будет видно и если его поместить в FormCreate нечего неполучится так как список в ListBox заполняется динамически, может кто знает как его вобще убрать.

Есть ещё вопросы вот уменя 6 FListBox я у 5 из них убраб скрол но теперь мне надо их синхронизировать, вобщем какая порцедура отвечает за изменение положения ползунка smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Yanis

Дата 23.4.2006, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 23.4.2006, 19:42

)

вобщем какая порцедура отвечает за изменение положения ползунка

Delphi 7 -> Help -> Windows SDK -> Указатель -> "Scroll Bar Functions"

Добавлено @ 20:02
в сети

Это сообщение отредактировал(а) Yanis - 23.4.2006, 20:02

--------------------

*щёлк*

Yanis

Дата 24.4.2006, 00:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Минус что ли поставить тебе для стимуляции мозга... Хотя в таком случае я буду похож на преподов в универе и учителей в школе smile

Цитата(ivan219 @ 23.4.2006, 19:42

)

может кто знает как его вобще убрать.

Никак. Отслеживать прокрутку и заново прятать. К стати прятать можно ещё и стандартной для таких целей функцией ShowScrollBar:

Код


  ShowScrollBar(ListBox1.Handle, SB_BOTH, False);

Цитата(ivan219 @ 23.4.2006, 19:42

)

Есть ещё вопросы вот уменя 6 FListBox я у 5 из них убраб скрол но теперь мне надо их синхронизировать,

Для прокрутки scroll bar'а используется функция SetScrollPos или сообщение SBM_SETPOS. В твоём случае для синхронизации прокрутки можно использовать ItemIndex

Код


  ListBox2.ItemIndex := ListBox1.ItemIndex;

--------------------

*щёлк*

ivan219

Дата 24.4.2006, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Я знаю как их синхронизировать ListBox1.TopIndex:= ListBox6.TopIndex; я это зделал но препомощи шелчка мыши на самом ListBox а мне надо когда щёлкаеш непосредственно на самом Scroll как это зделать я незнаю стандартной процедуры в ListBox нет, так бы я и сам нашол, вчера всё перерыл неодна неподходит а это значит что надо както ещё но вот как я незнаю smile

если с можеш превести кокретный пример т.е. весь код с 2 ListBox чтоб на самом Scroll можно было щёлкать и 1 ListBox также реагировал.

Я с этим ещё несталкивался а ты на меня разозлился спрашивается за что smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Yanis

Дата 24.4.2006, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 24.4.2006, 18:38

)

Я с этим ещё несталкивался а ты на меня разозлился спрашивается за что

Ответ в PM

--------------------

*щёлк*

ivan219

Дата 24.4.2006, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Нет там ответа smile

И с сообщениями работать неумею.

За это SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true); спасибо всё работает smile

но вот со скролом проблема smile

Может всётаки есть добрые люди кторые помогут мне smile

Это сообщение отредактировал(а) ivan219 - 24.4.2006, 20:46

--------------------

Мой первый сайт и моя первая программа!!!!!

Alexeis

Дата 25.4.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

ivan219, есть такое сообщение WM_VSCROLL - отсылается контролу когда по нему кликают или тянут, похоже его надо ловить и синхронизировать.

Добавлено @ 14:14
я как-то синхронизировал два memo. Полной синхронизации добится не удалось, но со скролбарами у меня все работало - делал наследника от memo и в нем писал процедуру обработчик этого самого WM_VSCROLL

Это сообщение отредактировал(а) alexeis1 - 25.4.2006, 14:15

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ivan219

Дата 25.4.2006, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

WM_VSCROLL Здорово smile

единственная проблема втом что я незнаю как ловить эти сообщения smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Yanis

Дата 6.6.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ivan219 @ 25.4.2006, 20:33)

WM_VSCROLL Здорово smile

единственная проблема втом что я незнаю как ловить эти сообщения smile

Короче вот пример:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure LBWndProc(var Msg: TMessage);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PLBWndProc, POldWndProc: Pointer;

implementation

{$R *.dfm}

procedure TForm1.LBWndProc(var Msg: TMessage);
begin
  Msg.Result := CallWindowProc(POldWndProc, ListBox1.Handle, Msg.Msg,
    Msg.wParam, Msg.lParam);

  if (Msg.Msg = WM_VSCROLL) and (LOWORD(Msg.wParam) = SB_THUMBTRACK) then
  begin
    Label1.Caption := 'Pos is ' + IntToStr(HIWORD(Msg.wParam));
    ListBox2.Perform(Msg.Msg, Msg.wParam, Msg.lParam);
    SetScrollPos(ListBox2.Handle, SB_VERT, HIWORD(Msg.wParam), True);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PLBWndProc := MakeObjectInstance(LBWndProc);
  POldWndProc    := Pointer(SetWindowLong(ListBox1.Handle, GWL_WNDPROC, Integer(PLBWndProc)));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(PLBWndProc) then
  begin
    SetWindowLong(ListBox1.Handle, GWL_WNDPROC, Integer(POldWndProc));
    FreeObjectInstance(PLBWndProc);
  end;
end;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »