Форум: "KOL";
Текущий архив: 2011.10.30;
Скачать: [xml.tar.bz2];
ВнизВерсия 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]
Скиньте минимальный нерабочий проект. Так и не смог добиться ошибки...
← →
Dimaxx © (2008-09-18 23:48) [47]
> Скиньте минимальный нерабочий проект. Так и не смог добиться ошибки...
Пожалуйста... 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]Удалено модератором
Страницы: 1 2 вся ветка
Форум: "KOL";
Текущий архив: 2011.10.30;
Скачать: [xml.tar.bz2];
Память: 0.53 MB
Время: 0.005 c