Главный модуль программы (часть 29) - AdvToolBarPager1Change
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
от 07 декабря 2007 г.
procedure TForm1.AdvToolBarPager1Change(Sender: TObject); var itag: integer; i: integer; begin Panel1.Visible:= false; try itag:= AdvToolBarPager1.ActivePage.Tag; i:= AdvToolBarPager1.ActivePageIndex; frmAT_Info.Timer1.Enabled:= false;
try
frmP2K_RingStyles.Visible:= false;
frmP2K_RingStyles.Panel1.Parent:= frmP2K_RingStyles;
frmP2K_RingStyles.Panel1.Visible:= false;
frmP2KFileManager.Visible:= false;
frmP2KFileManager.Panel1.Parent:= frmP2KFileManager;
frmP2KFileManager.Panel1.Visible:= false;
frmP2K_OtherFeatures.Visible:= false;
frmP2K_OtherFeatures.Panel1.Parent:= frmP2K_OtherFeatures;
frmP2K_OtherFeatures.Panel1.Visible:= false;
frmSeemEditor.Visible:= false;
frmSeemEditor.Panel1.Parent:= frmSeemEditor;
frmSeemEditor.Panel1.Visible:= false;
frmSoundEditor.Visible:= false;
frmSoundEditor.Panel1.Parent:= frmSoundEditor;
frmSoundEditor.Panel1.Visible:= false;
frmSoundEditor3G.Visible:= false;
frmSoundEditor3G.Panel1.Parent:= frmSoundEditor3G;
frmSoundEditor3G.Panel1.Visible:= false;
frmMMA_UCP.Visible:= false;
frmMMA_UCP.Panel1.Parent:= frmMMA_UCP;
frmMMA_UCP.Panel1.Visible:= false;
frmP2K_WebSession.Visible:= false;
frmP2K_WebSession.Panel1.Parent:= frmP2K_WebSession;
frmP2K_WebSession.Panel1.Visible:= false;
frmP2K_AlarmClock.Visible:= false;
frmP2K_AlarmClock.Panel1.Parent:= frmP2K_AlarmClock;
frmP2K_AlarmClock.Panel1.Visible:= false;
frmP2K_MyMenu.Visible:= false;
frmP2K_MyMenu.Panel1.Parent:= frmP2K_MyMenu;
frmP2K_MyMenu.Panel1.Visible:= false;
frmP2KInfo.Visible:= false;
frmP2KInfo.Panel1.Parent:= frmP2KInfo;
frmP2KInfo.Panel1.Visible:= false;
frmP2KKJava.Visible:= false;
frmP2KKJava.Panel1.Parent:= frmP2KKJava;
frmP2KKJava.Panel1.Visible:= false;
frmP2K_FlexTools.Visible:= false;
frmP2K_FlexTools.Panel1.Parent:= frmP2K_FlexTools;
frmP2K_FlexTools.Panel1.Visible:= false;
frmOBEXFM.Visible:= false;
frmOBEXFM.Panel1.Parent:= frmOBEXFM;
frmOBEXFM.Panel1.Visible:= false;
frmAT_Terminal.Visible:= false;
frmAT_Terminal.Panel1.Parent:= frmAT_Terminal;
frmAT_Terminal.Panel1.Visible:= false;
frmAT_PhoneBook.Visible:= false;
frmAT_PhoneBook.Panel1.Parent:= frmAT_PhoneBook;
frmAT_PhoneBook.Panel1.Visible:= false;
frmAT_Info.Visible:= false;
frmAT_Info.Panel1.Parent:= frmAT_Info;
frmAT_Info.Panel1.Visible:= false;
frmAT_DateBook.Visible:= false;
frmAT_DateBook.Panel1.Parent:= frmAT_DateBook;
frmAT_DateBook.Panel1.Visible:= false;
frmAT_Messages.Visible:= false;
frmAT_Messages.Panel1.Parent:= frmAT_Messages;
frmAT_Messages.Panel1.Visible:= false;
frmFlash_Terminal.Visible:= false;
frmFlash_Terminal.Panel1.Parent:= frmFlash_Terminal;
frmFlash_Terminal.Panel1.Visible:= false;
frmFlash_SHX.Visible:= false;
frmFlash_SHX.Panel1.Parent:= frmFlash_SHX;
frmFlash_SHX.Panel1.Visible:= false;
frmFlash_Backup.Visible:= false;
frmFlash_Backup.Panel1.Parent:= frmFlash_Backup;
frmFlash_Backup.Panel1.Visible:= false;
frmFlash_Work_with_POG.Visible:= false;
frmFlash_Work_with_POG.Panel1.Parent:= frmFlash_Work_with_POG;
frmFlash_Work_with_POG.Panel1.Visible:= false;
frmFlashPatching.Visible:= false;
frmFlashPatching.Panel1.Parent:= frmFlashPatching;
frmFlashPatching.Panel1.Visible:= false;
except
showmessage('оно самое');
end;
//show frame
case itag of
//p2k режим - таги 101, 102, 103, ... 10n
101 : begin //FileManager
frmP2KFileManager.Panel1.Parent:= Panel1;
frmP2KFileManager.Panel1.Visible:= true;
AdvGlowButton13.Visible:= (iSound = 0);
end;
102 : begin
frmSeemEditor.Panel1.Parent:= Panel1;
frmSeemEditor.Panel1.Visible:= true;
end;
103 : begin //FileManager
//frmP2K_OtherFeatures.Panel1.Parent:= Panel1;
frmP2K_OtherFeatures.Panel1.Parent:= Panel1;
frmP2K_OtherFeatures.Panel1.Visible:= true;
if not IsOtherFeaturesFill then frmP2K_OtherFeatures.FillOutlookList;
end;
104 : begin //SoundEditor
case iSound of
0 : begin
frmSoundEditor.Panel1.Parent:= Panel1;
btnP2K_Snd_AudioCfg.Visible:= false;
btnP2K_Snd_GainTbl.Visible:= true;
btnP2K_Snd_ParamTbl.Visible:= true;
frmSoundEditor.Panel1.Visible:= true;
end;
1,2,3 : begin
frmSoundEditor3G.Panel1.Parent:= Panel1;
btnP2K_Snd_AudioCfg.Visible:= true;
btnP2K_Snd_GainTbl.Visible:= false;
btnP2K_Snd_ParamTbl.Visible:= false;
btnP2K_Snd_AudioCfg.Left:= btnP2K_Snd_GainTbl.Left;
btnP2K_Snd_AudioCfg.Top:= btnP2K_Snd_GainTbl.Top;
frmSoundEditor3G.Panel1.Visible:= true;
end;
end;
end;
105 : begin
//if iSound <> 0 then begin spSkinMessage1.MessageDlg('Модуль "Стили звонка" не поддерживает Ваш телефон!', mtInformation, [mbOk], 0); end;
AdvToolBarPager1.ActivePageIndex:= i;
frmP2K_RingStyles.Panel1.Parent:= Panel1;
frmP2K_RingStyles.Panel1.Visible:= true;
end;
106 : begin
frmP2K_WebSession.Panel1.Parent:= Panel1;
frmP2K_WebSession.Panel1.Visible:= true;
end;
107 : begin
frmMMA_UCP.Panel1.Parent:= Panel1;
frmMMA_UCP.Panel1.Visible:= true;
frmMMA_UCP.LoadListMMAItems;
end;
108 : begin
frmP2K_AlarmClock.Panel1.Parent:= Panel1;
frmP2K_AlarmClock.Panel1.Visible:= true;
end;
109 : begin
frmP2K_MyMenu.Panel1.Parent:= Panel1;
frmP2K_MyMenu.Panel1.Visible:= true;
end;
110 : begin
frmP2KInfo.Panel1.Parent:= Panel1;
frmP2KInfo.Panel1.Visible:= true;
end;
111 : begin
frmP2KKJava.Panel1.Parent:= Panel1;
frmP2KKJava.Panel1.Visible:= true;
end;
112 : begin
frmP2K_FlexTools.Panel1.Parent:= Panel1;
frmP2K_FlexTools.Panel1.Visible:= true;
end;
//at режим - таги 201, 202, 203, ... 20n
201 : begin
frmAT_Terminal.Panel1.Parent:= Panel1;
frmAT_Terminal.Panel1.Visible:= true;
if not IsFillATCommands then frmAT_Terminal.FillATCommands;
end;
202: begin
frmAT_PhoneBook.Panel1.Parent:= Panel1;
frmAT_PhoneBook.Panel1.Visible:= true;
frmAT_PhoneBook.AdvOfficePager1.ActivePageIndex:= 0;
end;
203: begin
frmAT_Info.Panel1.Parent:= Panel1;
frmAT_Info.Panel1.Visible:= true;
frmAT_Info.Timer1.Enabled:= true;
end;
204: begin
frmAT_DateBook.Panel1.Parent:= Panel1;
frmAT_DateBook.Panel1.Visible:= true;
end;
205: begin
frmAT_Messages.Panel1.Parent:= Panel1;
frmAT_Messages.Panel1.Visible:= true;
end;
//flash режим - таги 301, 302, 303, ... 30n
301: begin
frmFlash_SHX.Panel1.Parent:= Panel1;
frmFlash_SHX.Panel1.Visible:= true;
end;
302: begin
frmFlash_Backup.Panel1.Parent:= Panel1;
spFlashProfile.Parent:= spSkinPanel20;
spFlashProfile.Top:= 0;
spFlashProfile.Width:= spFlashProfile.Parent.Width - 340;
frmFlash_Backup.Panel1.Visible:= true;
frmFlash_Backup.CreateProfileList;
end;
303: begin
frmFlash_Terminal.Panel1.Parent:= Panel1;
frmFlash_Terminal.Panel1.Visible:= true;
end;
304: begin
frmFlash_Work_with_POG.Panel1.Parent:= Panel1;
frmFlash_Work_with_POG.Panel1.Visible:= true;
frmFlash_Work_with_POG.spSkinStdLabel1.Caption:= 'ВСЕ ЧТО ВЫ ЗДЕСЬ ДЕЛАЕТЕ - ВЫ ДЕЛАЕТЕ НА СВОЙ СТРАХ И РИСК!!!' + #13#10 +
'НЕПРАВИЛЬНЫЕ ДЕЙСТВИЯ МОГУТ "УБИТЬ" ВАШ ТЕЛЕФОН!!!' + #13#10 +
'' + #13#10 +
'Данный модуль прденазначен только для 3G телефонов.' + #13#10 +
'Позволяет работать с памятью телефона, подключенного с использованием TestPoint.' + #13#10 +
'Позволяет записать boot loader; считать и записать область PDS' + #13#10 +
'На данный момент не может читать и писать память выше адреса 0x12000000h.';
end;
305: begin
frmFlashPatching.Panel1.Parent:= Panel1;
spFlashProfile.Parent:= spSkinPanel25;
frmFlash_Backup.CreateProfileList;
spFlashProfile.Top:= 0;
spFlashProfile.Width:= spFlashProfile.Parent.Width - 340;
frmFlashPatching.Panel1.Visible:= true;
end;
//obex режим - таги 401, 402, 403, ... 40n
401 : begin
frmOBEXFM.UnPrepareOBex;
frmOBEXFM.Panel1.Parent:= Panel1;
frmOBEXFM.Panel1.Visible:= true;
frmOBEXFM.PrepareOBex;
end;
end;
//RebuildToolBar(curToolBar);
finally
Panel1.Visible:= true;
end;
end;
Еще записи по теме
- Модуль "ObexFM" (часть 5) - UnPrepareObex
- Модуль "P2KApi" (часть 70) - TP2KAPI.WriteDataZ
- Модуль "Flash_Terminal" (часть 6) - spSkinSpeedButton5Click
- Модуль "P2KApi" (часть 50) - TP2KAPI.USB_ReadDataEx
- Модуль "Мое меню" (часть 6) - FillList
- Модуль "Информация АТ" (часть 12) - getOwnNumbers
- Модуль "Flash_SHX" (часть 6) - spSkinListView1Click