Скачать: CL | DM;

Манифест vs ListView   Найти похожие ветки 

← →
markers ©   (2005-10-13 12:40) [0]

Здраствуйте!
Всё не могу разобраться в причине проблемы когда я создаю файл манифеста на свою прогу сразу начинает глючить прога в местах нахождения 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 13:18) [1]

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

---

← →
ssk ©   (2005-10-13 13:55) [2]

в D7 нет

---

← →
markers ©   (2005-10-13 14:14) [3]

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

---

← →
Gero ©   (2005-10-13 14:20) [4]

Это ошибка 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;

---

← →
Кутузофф   (2005-10-13 14:39) [5]

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

---

← →
markers ©   (2005-10-13 14:40) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c