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

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

Как впихнуть в ListView другие контролы? [Delphi, Windows]

lomman ©   (2002-11-18 19:44:00) 

Собственно нужно в одну колонку сунуть CheckBox, в следущую Button, а также ProgressBar.
Помогите кто чем сможет!

---

lomman   (2002-11-22 23:42:00) [1]

Большое спасибо. Будем стараться далше! Сделаем KOL лучше!

---

Gandalf   (2002-11-22 23:16:00) [2]

Мда... под ночь мозги плохо работают... ме-е-дленно...
Ошибка тут, вернее решение:

procedure InitCommonControlCommonNotify( Ctrl: PControl );
var AParent: PControl;
begin
Ctrl.fIsCommonControl := True;
AParent := Ctrl.Parent;
if AParent <> nil then
begin
Ctrl.AttachProc( WndProcCommonNotify );
if AParent.fIsCommonControl then // Вот тут соб@ка
AParent.AttachProc( WndProcCommonNotify )
else
AParent.AttachProc( WndProcNotify );
// Кто сказал, что родитель обезательно рядовой контрол, может это Common
end;
end;

ЗЫ: Думаю теперь все понятно, всем спасибо за очередной шаг к совершенству КОЛ (lomman - персонально за вскрытие ошибки)

ЗЗЫ: Прошу прощение за стиль... засыпаю... да простит меня Модератор.

---

Gandalf   (2002-11-22 23:05:00) [3]

> Подскажите почему не работает этот код ^^^^^ ???


Нахожусь в стадии думалки, попахивает новым bug"ом (KOL), но не хотелось бы делать поспешных выводов... Вот мое мнение:
1) Ошибка происходит только присоздании Common"ов (твой progressBar)
2) Ошибка расположена в адресу 034FD:FF1A ;) - шучу.

function _NewCommonControl( AParent: PControl; ClassName:
-=Cut=-
//InitCommonControlSizeNotify( Result ); // Так и было
//InitCommonControlCommonNotify( Result ); // Вот тут беда
end;

Я пока анализом не занимался, по всей видимости идет неверное прикручивание WndProc, толи не то, толи не тому.

В любом случаи после проделаных операций (комментирования выше перечисленной строки) и перекомпилирования КОЛ-Паскаль версии (!) - ошибка не появляется, правда понятно что такое решение лишь временное. 23:04 по Москве - все я хочу спать, всем до завтра :0

---

lomman   (2002-11-22 21:48:00) [4]

Подскажите почему не работает этот код ^^^^^ ???

---

lomman   (2002-11-20 19:53:00) [5]

Я пробовал! Создаю например ProgressBar с родителем lstDo (ListView). Запускаю программу, он рисует ProgressBar вроде нормально, но буквально через 2 секунды вываливается в отладчик с ошибкой "Access Violation at 0x77f5135f" или вроде того! Что делать подскажи!
Делаю примерно следующее:

var
pb: TKOLProgressBar;
begin
pb := NewProgressBar(lstDo);
pb.Width := 100;
pb.Height := 20;
pb.Top := 20;
pb.Left := 0;
pb.CreateWindow ;
end;


Где lstDo компонент TKOLListView!

---

Gandalf   (2002-11-20 10:06:00) [6]

Создавай контролы с родителем ListView и позиционируй. Но вообще вопрос ближе к WinAPI.

---

Наверх