Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Ошика программы при старте под XP   Найти похожие ветки 

 
S@shka ©   (2006-05-24 23:11) [0]

На некоторых компах под XP прога при старте вывыливается с ошибкой -
Программа выполнила недопустимую операцию.... бла-бла-бла  kernel32.dll
Характерно только для XP причем где то работает нормально (версии даже могут быть одинаковыми)
С чем это может быть связано?


 
antonn ©   (2006-05-25 07:13) [1]

с кривым кодом.


 
MegaVolt ©   (2006-05-25 12:58) [2]

ListView используется?


 
Loginov Dmitry ©   (2006-05-25 13:13) [3]

Компоненты используются?

:)))


 
MegaVolt ©   (2006-05-25 13:40) [4]

Это не шутка. Под WinXP проги с ListView писанные на D5 и с включенным стилем WinXP действительно вылетают по AV даже если вообще никакого кода в них нет. Это правится одной строчкой в comctrls.pas

Неисключено что таже фича есть и с D6


 
sicilla ©   (2006-05-25 15:50) [5]

Где можно прочитать про правку в comctrls.pas? или скиньте код правленный, плиз


 
MegaVolt ©   (2006-05-25 17:58) [6]

Вот то что я правил у себя в comctrls.pas
Первая часть относится к ListView и её нежеланию выводить данные в первом столбце выровнеными вправо.
Вторая убирает глюк при показе ListView в WinXP
Проверял работоспособность правок под 98 и под ХР.
1. Исправления необходимые для нормальной работы выравнивания в первой колонке ListView
  Возможно это нужно было для старых виндов типа Win95

10912: procedure TListColumn.SetAlignment(Value: TAlignment);

 if (Alignment <> Value) and (Index <> 0) then
заменяем на
 if (Alignment <> Value) { and (Index <> 0) } then  // убираем вторую проверку

13632: procedure TCustomListView.UpdateColumn(AnIndex: Integer);

     if Index <> 0 then
       fmt := IAlignment[UseRightToLeftAlignment, AAlignment]
     else fmt := LVCFMT_LEFT;
заменяем на
       fmt := IAlignment[UseRightToLeftAlignment, AAlignment];

2. Исправляет глюк в WinXP :)

13632: procedure TCustomListView.UpdateColumn(AnIndex: Integer);

     if FImageIndex <> -1 then
       fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES;
заменяем на
     if FImageIndex <> -1 then
       fmt := fmt or LVCFMT_IMAGE or LVCFMT_COL_HAS_IMAGES
     else
       mask := mask and not (LVCF_IMAGE);



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

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
11-1127931560
Kozz
2005-09-28 22:19
2006.06.11
Почему Thread1 останавливается ?


4-1142584324
Turbid
2006-03-17 11:32
2006.06.11
Колесико над иконкой в трее


15-1147762283
Шутник
2006-05-16 10:51
2006.06.11
Обоснование выбора: СУБД vs файлы


2-1148318655
Mozaika_81
2006-05-22 21:24
2006.06.11
Где взять компонент TrayIcon для Delphi7


2-1148359258
leonidus
2006-05-23 08:40
2006.06.11
Передача массива в процедуру