Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c