VPF::TListBox + TButton - Форум программистов

h5who

Дата 16.4.2009, 12:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

У меня есть TListBox, в котором я сделал собственную отрисовку элементов. В OnDrawItem все это дело отрисовывал по своему.
А теперь я еще хочу добавить что бы при выделенном элементе в TListBox, у этого элемента появлялась дополнительно кнопка.
Я испробовал множество вариантов. Я сделал наследника TListBox в котором перекрывал DrawItem, где пытался при определенных условиях показывать кнопку. Но ничего не получилось, глючит у меня отрисовка, уже сто способов испробовал.

Буду очень благодарен за любые советы или примеры.

Frees

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

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

покажи код который писал...посмотрим че глючит

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

Кольцов Виктор Владимирович

h5who

Дата 16.4.2009, 13:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код у моего наследника TListBox:

Код


procedure TListBox.CreateWnd;
begin
  inherited CreateWnd;
  FButton := TButton.Create(Self);
  FButton.Parent := Self;
  FButton.Visible := False;
  FButton.Caption := 'Êíîïêà…';
  FButtonRect := Rect(0, 0, 0, 0);
end;

procedure TListBox.DrawItem(Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
  FButtonRect := Rect;
  InflateRect(FButtonRect, -2, -2);
  if odSelected in State then
  begin
    FButtonRect.Left := FButtonRect.Right - 100;
    FButton.BoundsRect := FButtonRect;
    FButton.Visible := True;
    Canvas.Brush.Color := clHighlight;
    Canvas.Font.Color := clHighlightText;
  end else
  begin
    Canvas.Brush.Color := Color;
    Canvas.Font.Color := Font.Color;
  end;
  inherited DrawItem(Index, Rect, State);
end;

Этот код даже как-то работает, но: первый раз ткнешь в элемент TListBox и кнопка показывается, а потом начинаешь тыкать в другие элементы из списка и кнопка при этом не появляется. Для того что бы появилась кнопка нужно мышкой навести на то место в котором кнопка должна предположительно быть, тогда кнопка появляется.

Frees

Дата 16.4.2009, 14:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Код


....
 FButton.Visible := True;
  FButton.Invalidate;
...

может это поможет

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

Кольцов Виктор Владимирович

DimaBr

Дата 16.4.2009, 14:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Попробуйте заменить TButton на TSpeedButton

h5who

Дата 16.4.2009, 14:35 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо, похоже Invalidate помогло, глюков пока не заметил smile

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