Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
Лучшее - враг хорошего? Найти похожие ветки
← →
SerB (2003-09-29 04:57) [0]Имея дурные голову и привычку стараюсь все время обновлять версии KOL&MCK... Совсем недавно и совсем случайно обнаружил интересеую вещь, один и тот же кусок кода, скомпилированный в версии 1.70 работает нормально, а он же, скомпилированный в версии 1.84, глючит.
procedure TAcTcF.t1Timer(Sender: PObj);
var i,n:Integer;
begin
//подсветка сигналов (активный пассивный квитированный)
for n:=0 to 39 do
begin
if n > 19 then
begin
if ((not f_kv) and (LaC[n]>0)) then
begin
if (ac_[n].Color=$001709CA)
then ac_[n].Color:=clRed // мигание + сигнал
else ac_[n].Color:=$001709CA;
end;
if ((LaC[n]>0) and f_kv )then ac_[n].Color:=clRed; // цвет + сигнал
if LaC[n]=0 then ac_[n].Color:=$001709CA; //цвет + нет сигнала//
end;
if n < 19 then begin
if ((not f_kv) and (LaC[n]>0)) then begin
if (ac_[n].Color=$005A99A9)
then ac_[n].Color:=$0000E0E6 // мигание + сигнал //
else ac_[n].Color:=$005A99A9 ;
end;
if ((LaC[n]>0) and f_kv) then ac_[n].Color:=$0000E0E6; // цвет + сигнал //
if LaC[n]=0 then ac_[n].Color:=$005A99A9 ; //цвет+ нет сигнала //
end;
end;
end;
самое интересное, здесь ничего особенного не делается, просто по таймеру перекрашиваются динамически создаваемые контролы WordWrapLabel (ac_[n]) в зависимости от наличия сигнала (Lac[n])...
Самое интересное под WinXP все отработало нормально,и обнаружил совершенно случайно, когда попытался запустить программку под Win"98SE...
пришлось вернуться к версии KOL&MCK 1.70
← →
<Falcon> (2003-09-29 12:54) [1]-> в версии 1.70 работает нормально, а он же, скомпилированный в версии 1.84, глючит.
А в чем собственно глюк?
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.111 c
