Версия 2.87

← →
L`Autour © (2008-08-19 06:34) [40]

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

← →
L`Autour © (2008-09-08 06:01) [41]

в процедуре:

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;

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

← →
Hallif © (2008-09-08 23:07) [42]

Модуль: 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 Проверить немогу, но и без этого очевидно.

← →
MTsv DN (2008-09-17 19:35) [43]

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

Дельфи:
function ColorToRGB(Color: TColor): Longint; begin if Color < 0 then Result := GetSysColor(Color and $000000FF) else Result := Color; end;

KOL:
function Color2RGB( Color: TColor ): TColor; begin if Color < 0 then Result := GetSysColor(Color and $7F) else Result := Color; end;
Кому верить?

← →
MTsv DN (2008-09-17 19:40) [44]

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

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

← →
MTsv DN (2008-09-17 19:59) [45]

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

← →
MTsv DN (2008-09-17 20:13) [46]

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

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

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

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

← →
MTsv DN (2008-09-19 12:10) [48]

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

← →
имя (2009-04-01 14:17) [49]

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

Версия 2.87 Найти похожие ветки