Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Gauge в ListView, Как обработать изменение колонок и скрол 
:(
    Опции темы
ZBugz
  Дата 25.11.2009, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Всем привет. 
Gauge запихнул в Listview, а как отловить ресайз колонки с гауге и прокрутку, я не пойму... Точнее так сказать, я в этих координатах полный ноль. Поэтому прошу именно пример  smile Обьяснение не пойму.
Проект прикрепил.

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  AAAG.rar 8,35 Kb
PM MAIL   Вверх
Демо
Дата 25.11.2009, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 30
Всего: 50
Используй AdvancedCustomDrawSubItem:
В твоём проекте:

Код

procedure TForm1.LvAdvancedCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var
  pbRect: TRect;
  pb: TGauge;
begin
  if Item.Data<>nil then
  with Item do
  begin
    pb := Item.Data;
    pbRect := DisplayRect(drBounds);
    pbRect.Left := pbRect.Left + Lv.Columns[0].Width+Lv.Columns[1].Width;
    pbRect.Right := pbRect.Left + Lv.Columns[2].Width;
    pb.BoundsRect := pbRect;
    pb.Top := pb.Top + 3;
    pb.Height := pb.Height - 6;
  end;
  DefaultDraw := True;
end;


Код

procedure TForm1.ToolButton1Click(Sender: TObject);
const
  pbMax = 100;
var
  i : integer;
  Li : TListItem;
  pb : TGauge;
  pbRect : TRect;
begin
  lv.DoubleBuffered := True;
...



--------------------
    
PM MAIL ICQ Skype   Вверх
ZBugz
Дата 25.11.2009, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Завтра гляну smile 
Отпишу....
PM MAIL   Вверх
ZBugz
  Дата 28.11.2009, 12:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Значит так, нашел новый пример. Там все работает, кроме вертикального скрола  smile 

Народ, помогайте....  smile 

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  ProgressBar_in_ListView.rar 4,49 Kb
PM MAIL   Вверх
ZBugz
Дата 28.11.2009, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Гиде умный народ ?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0459 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.