Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
15-1309954783
dest81
2011-07-06 16:19
2011.10.30
select, sum как правильней


15-1310070597
Юрий
2011-07-08 00:29
2011.10.30
С днем рождения ! 8 июля 2011 пятница


2-1310473536
Artem1987
2011-07-12 16:25
2011.10.30
Формат данных при экспорте в Excel


15-1309846954
SQLEXPRESS
2011-07-05 10:22
2011.10.30
Памяти 1 или 2 Гб


15-1309465804
Юрий
2011-07-01 00:30
2011.10.30
С днем рождения ! 1 июля 2011 пятница





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский