Главный модуль программы (часть 4) - Status_Notifyer
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
от 07 декабря 2007 г.
function Status_Notifyer(State:integer):boolean; var str, s, s2: string; i: integer; begin Form1.lblFreeSpace.Caption:= ''; if State=1
then
begin
str:= stText01;
if oldTelStat <> TelStatus
then
try
Form1.lblFreeSpace.Caption:= '';
if CurrentP2KMode.IType = $102
then begin
//Form1.StatusBar1.Panels[0].Text:= 'Connected: P2K'
Form1.IsP2KConnected:= boolean(state);
Form1.IsFlashConnected:= not boolean(state);
s2:= '';
//ping
if not isP2KFound then
begin
if p2k.Ping_P2K05
then iP2KCF := 1
else iP2KCF := 0;
isP2KFound:= true;
end;
//
xModel:= Trim(P2K.GetModel);
xPlatform:= P2K.GetPlatform_P2K;
SetVarsByPlatform;
if xModel <> '' then Form1.lblModel.Caption:= xModel;
Form1.SetStatusConnected(boolean(state), '');
end
else begin
//Form1.StatusBar1.Panels[0].Text:= 'Connected: Flash';
isP2KFound:= false;
Form1.lblFreeSpace.Caption:= USB_LocationName;
Form1.IsP2KConnected:= not boolean(state);
Form1.IsFlashConnected:= boolean(state);
xModel:= Trim(P2K.GetModel_Flash);
xPlatform:= xModel;
xPlatform:= ExtractStr(xPlatform, '_');
if xModel <> '' then Form1.lblModel.Caption:= xModel;
end;
{****}
finally
end;
end
else
begin
str:= stText02;
s:= '<b>Телефон отключен от P2K режима</b>';
//Form1.AdvOfficeStatusBar1.Panels[2].Text:= '';
Form1.lblModel.Caption:= '';
Form1.IsP2KConnected:= false;
Form1.IsFlashConnected:= false;
end;
Form1.SetStatusConnected(boolean(state), '');
if oldTelStat = not TelStatus then
begin
end;
oldTelStat:= TelStatus;
end;
Еще записи по теме
- Модуль "Настройки" (часть 6) - InspectorBar1Sections0Items1Click
- Модуль "Пункты меню" (часть 62) - MMAEdit_GetNodeMidletorUrl
- Модуль "Мое меню" (часть 17) - WebShortcuts_applyChanges
- Модуль "ObexFM" (часть 12) - SetPath
- Модуль "Новое сообщение" (часть 1) - определение переменных и типов данных
- Модуль "Flash Rainbow POG" (часть 20) - PatchToBlank
- Модуль "Информация АТ" (часть 8) - getFrequency
