Никто работу ToolBar под Win98se не проверял? У меня при включенном для ToolBar ToolTip прога стабильно вылетает с ошибкой при их всплывании над кнопками ToolBar. Win98se у меня стоит под VMWare.

в процедуре:

function _WStrComp(S1, S2: PWideChar): Integer;
var Buf0: array[ 0..0 ] of WideChar;
begin
 Buf0[ 0 ] := #0;
 if S1 = nil then S1 := @ Buf0[ 0 ];
 if S2 = nil then S2 := @ Buf0[ 0 ];
 while TRUE do
 begin
   Result := Ord( S1^ ) - Ord( S2^ );
   if Result <> 0 then Exit;
   if S1^ = #0 then Exit;
 end;
end;

нехватает инкремента указателей сравниваемых строк

Модуль: KOL_ASM
Функция: Color2RGB
Описание: Очевидно, что если не SMALLEST_CODE Цвет некоторых контролов будет иметь черный цвет.
function Color2RGB( Color: TColor ): TColor;
asm
        BTR  EAX, 31
        JNC  @@exit
       AND  EAX , $7F    // <- a Fix    
        PUSH      EAX
        CALL      GetSysColor
@@exit:
end;
P.S Проверить немогу, но и без этого очевидно.

Кстати, интересный вопрос поднял Hallif...и дело даже не в АСМ версии.

Дельфи:



KOL:


Кому верить?

Разобрался. Разный TColor.

Подправлена асм-версия...

L`Autour ©   (08.09.08 06:01) [41]
Да простит меня КодГир за "стыренный" код.

2 Dimaxx ©   (11.08.08 17:00) [39]
Скиньте минимальный нерабочий проект. Так и не смог добиться ошибки...

> Скиньте минимальный нерабочий проект. Так и не смог добиться ошибки...

Пожалуйста... http://dimaxx.fatal.ru/scanline_nil.zip

Версия 2.87. Пока не поставишь принудительно pixelformat после изенения размера - любое изменение высоты картинки дает nil. С шириной все в порядке.

2 Dimaxx
Исправил...насколько хватило знаний асма :)

Удалено модератором