Главный модуль программы (часть 1)

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 267
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
unit uMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uP2KAPI, StdCtrls,
  Menus,
  ExtCtrls, ComCtrls, CommCtrl,
  ImgList,
  PngImageList, ShellApi, Inifiles, DropSource, DragDropFile, DragDrop, DropTarget,
  DynamicSkinForm, SkinMenus, SkinData, ExeInfo, SkinBoxCtrls, SkinCtrls,
  SkinTabs,
    Registry,
  uSoundEditor, uSoundEditor3G,
    pngimage, Buttons, PngSpeedButton, XPMan, Mask, spTrayIcon,
  SkinHint, spPngImageList, uSplashForm, spMessages, spDialogs,
  spButtonGroup, spCategoryButtons, uMyMenu;

const
  TOOLBAR_HEIGHT = 100;
  TOOLBAR_TAB_HEIGHT = 32;
  
type
  TProgramMods = (pmP2K, pmAT, pmFlash, pmObex);
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ImageList1: TImageList;
    spSkinPanel1: TspSkinPanel;
    spSkinData1: TspSkinData;
    spCompressedStoredSkin1: TspCompressedStoredSkin;
    AdvToolBarPager1: TspSkinPageControl;
    AdvPage1: TspSkinTabSheet;
    AdvPage2: TspSkinTabSheet;
    AdvPage3: TspSkinTabSheet;
    AdvPage5: TspSkinTabSheet;
    spSkinTabSheet5: TspSkinTabSheet;
    AdvPage8: TspSkinTabSheet;
    AdvPage4: TspSkinTabSheet;
    AdvPage6: TspSkinTabSheet;
    spSkinPopupMenu1: TspSkinPopupMenu;
    n11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    Flash1: TMenuItem;
    btnSelectMode: TspSkinMenuSpeedButton;
    spDynamicSkinForm1: TspDynamicSkinForm;
    mnuRestart1: TMenuItem;
    mnuRestart2: TMenuItem;
    mnuSuspend: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    XPManifest1: TXPManifest;
    spSkinStatusBar1: TspSkinStatusBar;
    Shape1: TShape;
    lblStatus: TspSkinLabel;
    lblModel: TspSkinLabel;
    lblFreeSpace: TspSkinLabel;
    lblFiles: TspSkinLabel;
    btnP2K_Refresh: TspSkinSpeedButton;
    spSkinBevel1: TspSkinBevel;
    btnP2K_Download: TspSkinSpeedButton;
    AdvGlowButton10: TspSkinSpeedButton;
    AdvGlowButton11: TspSkinSpeedButton;
    AdvGlowButton12: TspSkinSpeedButton;
    AdvGlowButton13: TspSkinSpeedButton;
    AdvGlowButton4: TspSkinSpeedButton;
    AdvGlowButton7: TspSkinSpeedButton;
    AdvGlowButton8: TspSkinSpeedButton;
    AdvGlowButton9: TspSkinSpeedButton;
    spSkinEdit1: TspSkinEdit;
    spSkinEdit2: TspSkinEdit;
    spSkinStdLabel1: TspSkinStdLabel;
    spSkinStdLabel2: TspSkinStdLabel;
    AdvGlowButton5: TspSkinSpeedButton;
    AdvGlowButton6: TspSkinSpeedButton;
    btnPhoneBookRefresh: TspSkinSpeedButton;
    btnPhoneBookAdd: TspSkinSpeedButton;
    btnPhoneBookDelete: TspSkinSpeedButton;
    btnPhoneBookEdit: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    btnPhoneBookBackUP: TspSkinSpeedButton;
    btnPhoneBookRestore: TspSkinSpeedButton;
    spSkinBevel3: TspSkinBevel;
    btnP2K_Snd_ReadParams: TspSkinSpeedButton;
    btnP2K_Snd_WriteParams: TspSkinSpeedButton;
    btnP2K_Snd_GainTbl: TspSkinMenuSpeedButton;
    btnP2K_Snd_ParamTbl: TspSkinMenuSpeedButton;
    AdvPopupMenu2: TspSkinPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    N7: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    AdvGlowButton3: TspSkinSpeedButton;
    AdvGlowButton14: TspSkinSpeedButton;
    Label2: TspSkinStdLabel;
    RzEdit1: TspSkinEdit;
    RzEdit2: TspSkinEdit;
    Label3: TspSkinStdLabel;
    AdvGlowButton2: TspSkinSpeedButton;
    AdvOfficeSelector1: TspSkinComboBox;
    btnOBEX_Refresh: TspSkinSpeedButton;
    spSkinBevel4: TspSkinBevel;
    btnOBEX_GotoHome: TspSkinSpeedButton;
    btnOBEX_GotoParent: TspSkinSpeedButton;
    btnOBEX_Download: TspSkinSpeedButton;
    spSkinBevel5: TspSkinBevel;
    btnOBEX_Upload: TspSkinSpeedButton;
    btnOBEX_Delete: TspSkinSpeedButton;
    pmP2KList: TspSkinPopupMenu;
    MenuItem3: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    pmP2KTree: TspSkinPopupMenu;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem11: TMenuItem;
    pmATPhoneBookList: TspSkinPopupMenu;
    MenuItem12: TMenuItem;
    N9: TMenuItem;
    MenuItem13: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem15: TMenuItem;
    N10: TMenuItem;
    MenuItem16: TMenuItem;
    MenuItem18: TMenuItem;
    pmATPbTree: TspSkinPopupMenu;
    MenuItem17: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    spTrayIcon1: TspTrayIcon;
    spSkinHint1: TspSkinHint;
    PngImageList2: TPngImageList;
    PngImageList1: TPngImageList;
    PngImageList3: TPngImageList;
    PngImageList4: TPngImageList;
    PngImageList5: TPngImageList;
    PngImageList6: TPngImageList;
    PngImageList7: TPngImageList;
    PngImageList8: TPngImageList;
    btnP2K_Snd_AudioCfg: TspSkinMenuSpeedButton;
    tsRingStyles: TspSkinTabSheet;
    tsWebSession: TspSkinTabSheet;
    btnP2K_RingStyles_Get: TspSkinSpeedButton;
    btnP2K_RingStyles_Set: TspSkinSpeedButton;
    spPNGImageList1: TspPNGImageList;
    spPNGImageList2: TspPNGImageList;
    PngImageList9: TPngImageList;
    PngImageList10: TPngImageList;
    spPNGImageList3: TspPNGImageList;
    btnP2K_WS_FromPhone: TspSkinSpeedButton;
    btnP2K_WS_ToPhone: TspSkinSpeedButton;
    btnP2K_WS_FromFile: TspSkinSpeedButton;
    btnP2K_WS_ToFile: TspSkinSpeedButton;
    spSkinMessage1: TspSkinMessage;
    spSkinBevel6: TspSkinBevel;
    spSkinInputDialog1: TspSkinInputDialog;
    tsP2K_MMA: TspSkinTabSheet;
    btnP2K_MMA_FromPhone: TspSkinSpeedButton;
    btnP2K_MMA_ToPhone: TspSkinSpeedButton;
    btnP2K_MMA_FromFile: TspSkinSpeedButton;
    btnP2K_MMA_ToFile: TspSkinSpeedButton;
    PngImageList11: TPngImageList;
    spPNGImageList4: TspPNGImageList;
    tsP2K_AlarmClock: TspSkinTabSheet;
    btnP2K_AlarmClock_FromPhone: TspSkinSpeedButton;
    btnP2K_AlarmClock_ToPhone: TspSkinSpeedButton;
    btnP2K_AlarmClock_FromFile: TspSkinSpeedButton;
    btnP2K_AlarmClock_ToFile: TspSkinSpeedButton;
    Panel2: TPanel;
    spSkinSplitterEx1: TspSkinSplitterEx;
    spSkinPanel2: TspSkinPanel;
    spSkinPanel3: TspSkinPanel;
    spSkinButtonGroup1: TspSkinButtonGroup;
    Panel3: TPanel;
    spSkinPanel4: TspSkinPanel;
    spSkinPanel5: TspSkinPanel;
    spSkinPanel6: TspSkinPanel;
    spSkinPanel7: TspSkinPanel;
    spSkinPanel8: TspSkinPanel;
    spSkinPanel9: TspSkinPanel;
    spSkinPanel10: TspSkinPanel;
    spSkinPanel11: TspSkinPanel;
    spSkinPanel12: TspSkinPanel;
    spSkinPanel13: TspSkinPanel;
    spSkinPanel14: TspSkinPanel;
    spSkinPanel15: TspSkinPanel;
    Panel4: TspSkinPanel;
    tsAT_DateBook: TspSkinTabSheet;
    spSkinPanel16: TspSkinPanel;
    btnAT_DateBookRefresh: TspSkinSpeedButton;
    spSkinBevel7: TspSkinBevel;
    btnAT_DateBookRestore: TspSkinSpeedButton;
    btnAT_DateBookBackup: TspSkinSpeedButton;
    spSkinBevel8: TspSkinBevel;
    btnAT_DateBookEdit: TspSkinSpeedButton;
    btnAT_DateBookDelete: TspSkinSpeedButton;
    btnAT_DateBookAdd: TspSkinSpeedButton;
    tsAT_Messages: TspSkinTabSheet;
    spSkinPanel17: TspSkinPanel;
    btnAT_MessageNew: TspSkinSpeedButton;
    btnAT_MessageExport: TspSkinSpeedButton;
    btnAT_MessageClear: TspSkinSpeedButton;
    btnAT_MessageDelete: TspSkinSpeedButton;
    PngImageList12: TPngImageList;
    PngImageList13: TPngImageList;
    btnAT_MessageMarkAsRead: TspSkinSpeedButton;
    tsFlash_Terminal: TspSkinTabSheet;
    spSkinPanel18: TspSkinPanel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinBevel9: TspSkinBevel;
    spSkinStdLabel3: TspSkinStdLabel;
    spSkinEdit3: TspSkinEdit;
    spSkinEdit4: TspSkinEdit;
    spSkinStdLabel4: TspSkinStdLabel;
    btnFlash_Term_SendCmmand: TspSkinSpeedButton;
    ts_Flash_SHX: TspSkinTabSheet;
    spSkinPanel19: TspSkinPanel;
    spSkinBevel10: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    spSkinBevel11: TspSkinBevel;
    spSkinSpeedButton5: TspSkinSpeedButton;
    spSkinBevel12: TspSkinBevel;
    spSkinMenuSpeedButton1: TspSkinMenuSpeedButton;
    spSkinPopupMenu2: TspSkinPopupMenu;
    MenuItem21: TMenuItem;
    MenuItem23: TMenuItem;
    MenuItem25: TMenuItem;
    ImageList2: TImageList;
    spSkinSpeedButton2: TspSkinSpeedButton;
    N8: TMenuItem;
    CG1: TMenuItem;
    CG2: TMenuItem;
    CG3: TMenuItem;
    N12: TMenuItem;
    RamDownloader1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    spSkinSpeedButton3: TspSkinSpeedButton;
    tsFlash_FlashBackup: TspSkinTabSheet;
    spSkinPanel20: TspSkinPanel;
    spSkinBevel13: TspSkinBevel;
    spSkinSpeedButton6: TspSkinSpeedButton;
    spSkinBevel14: TspSkinBevel;
    spSkinSpeedButton7: TspSkinSpeedButton;
    PngImageList14: TPngImageList;
    ts_P2K_MyMenu: TspSkinTabSheet;
    ts_P2K_Info: TspSkinTabSheet;
    spSkinPanel21: TspSkinPanel;
    spSkinSpeedButton8: TspSkinSpeedButton;
    spSkinPanel22: TspSkinPanel;
    spSkinSpeedButton12: TspSkinSpeedButton;
    spSkinPopupMenu3: TspSkinPopupMenu;
    MenuItem22: TMenuItem;
    MenuItem24: TMenuItem;
    MenuItem26: TMenuItem;
    PngImageList15: TPngImageList;
    spSkinBevel15: TspSkinBevel;
    spSkinSpeedButton9: TspSkinSpeedButton;
    tsFlash_WorkPOG: TspSkinTabSheet;
    spSkinPanel23: TspSkinPanel;
    spSkinSpeedButton13: TspSkinSpeedButton;
    spSkinBevel17: TspSkinBevel;
    spSkinSpeedButton10: TspSkinSpeedButton;
    cbUsePOGTP: TspSkinCheckRadioBox;
    spSkinSpeedButton11: TspSkinSpeedButton;
    ts_P2K_KJava: TspSkinTabSheet;
    spSkinPanel24: TspSkinPanel;
    spSkinSpeedButton14: TspSkinSpeedButton;
    spSkinBevel16: TspSkinBevel;
    tsFlash_Patching: TspSkinTabSheet;
    spSkinPanel25: TspSkinPanel;
    spSkinBevel18: TspSkinBevel;
    spSkinSpeedButton15: TspSkinSpeedButton;
    spSkinBevel19: TspSkinBevel;
    spSkinSpeedButton16: TspSkinSpeedButton;
    tsP2K_FlexTools: TspSkinTabSheet;
    spSkinPanel26: TspSkinPanel;
    spSkinSpeedButton17: TspSkinSpeedButton;
    spSkinBevel20: TspSkinBevel;
    spFlashProfile: TspSkinPanel;
    spSkinStdLabel5: TspSkinStdLabel;
    cbFlashPhoneProfile: TspSkinComboBox;
    rgRainBowPOGBootLoaderVersion: TspSkinRadioGroup;
Rambler's Top100