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

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

Манифест vs ListView [D6, WinXP]

markers ©   (2005-10-13 12:40:00) 

Здраствуйте!
Всё не могу разобраться в причине проблемы когда я создаю файл манифеста на свою прогу сразу начинает глючить прога в местах нахождения ListView в режиме Report (А где при появлении прога не вылетает, то при попытке изменения размеров колонки вылитает), убираю манифест, всё тип-топ, не вылетает, размеры колонки меняются, всё вообщем хорошо.... В чём может быть проблема (Я уже всё перепробовал:( ) Вот код одного из листвью

 object CompList: TListView
   Left = 8
   Top = 24
   Width = 377
   Height = 169
   BevelInner = bvNone
   BevelKind = bkFlat
   BorderStyle = bsNone
   Color = clWhite
   Columns = <
     item
       Caption = #1050#1086#1084#1087#1100#1102#1090#1077#1088
       Width = 206
     end
     item
       Caption = #1054#1090#1076#1077#1083
       Width = 99
     end
     item
       Caption = #1057#1090#1072#1090#1091#1089
       Width = 70
     end>
   ColumnClick = False
   FlatScrollBars = True
   FullDrag = True
   MultiSelect = True
   OwnerData = True
   OwnerDraw = True
   ReadOnly = True
   RowSelect = True
   StateImages = MainWindow.ImageList1
   TabOrder = 1
   ViewStyle = vsReport
   OnClick = CompListClick
   OnCustomDraw = CompListCustomDraw
   OnCustomDrawItem = CompListCustomDrawItem
   OnCustomDrawSubItem = CompListCustomDrawSubItem
   OnKeyUp = CompListKeyUp
 end

Может проблема в том, что я всё это делаю в Delphi 6 ?
Заранее спасибо!

---

markers   (2005-10-13 14:40:00) [1]

to: Gero Спасибо, попробую!
to: Кутузофф Уже стоит...

---

Кутузофф   (2005-10-13 14:39:00) [2]

поставь сервис пак на дэлфю

---

Gero   (2005-10-13 14:20:00) [3]

Это ошибка VCL в Delphi 6.
Решается перекрытием WndProc:

procedure TMyListView.WndProc(var Msg: TMessage);
begin
 if (Message.Msg = LVM_SETCOLUMN) or (Message.Msg = LVM_INSERTCOLUMN) then
   with PLVColumn(Message.LParam)^ do
     if iImage = -1 then
       Mask := Mask and not LVCF_IMAGE;
 inherited;
end;

---

markers   (2005-10-13 14:14:00) [4]

А кто знает как профиксить данную проблему, кроме установки Д7?

---

ssk   (2005-10-13 13:55:00) [5]

в D7 нет

---

markers   (2005-10-13 13:18:00) [6]

Ни, кто не сталкивался с такой проблемой? А в Delphi7 такой гадости нет?

---

Наверх