VPF::Выпадающий список как в тотал командере

Sed0Y

Дата 21.2.2011, 16:53 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

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

Как сделать такой список?

То есть что бы разделялось вертикальной полосой, и вроде бы как в списке только буквы, а когда раскрывается то и подтягивается расшифровка?

user posted image

MetalFan

Дата 21.2.2011, 18:07 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

самому нарисовать. + CB_SETDROPPEDWIDTH

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

There are always someone smarter than you...

Sed0Y

Дата 22.2.2011, 15:43 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

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

Большое спасибо!

Это сообщение отредактировал(а) Sed0Y - 24.2.2011, 17:46

Sed0Y

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

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 16.1.2009

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

Нарисовал я, когда раскрываю список, он весь белый пока я не наведу на него курсор, и только тогда, под курсором появляется текст.
Почему такое происходит, что нужно сделать?

у Комбобокса style = csOwnerDrawVariable

user posted image

сделал я так:

Код



procedure TFMainForm.CategoryBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  s1: String;
begin
  if CategoryBox.ItemIndex < 0 then exit;
{тут идет SQL запрос на получение текста типа}
  s1 := 'SELECT name FROM category WHERE fid=' + IntToStr(CategoryBox.Items.Objects[CategoryBox.ItemIndex]);

  CategoryBox.Canvas.FillRect( Rect );
  CategoryBox.Canvas.TextOut( Rect.Left + 2, Rect.Top, s1 + '      ' + CategoryBox.Items[Index]); 
end;

procedure TFMainForm.CategoryBox1DropDown(Sender: TObject);
const
  PIXEL_WIDTH = 200;
begin
  SendMessage( CategoryBox.Handle, CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0 );
end;

Спасибо разобрался, проблема в IntToStr(CategoryBox.Items.Objects[CategoryBox.ItemIndex]); когда Индекс Баунд -1 то тут и происходит сбой, пришлось искать по тексту а не по ИД

Это сообщение отредактировал(а) Sed0Y - 25.2.2011, 10:43

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