unit1.pas

FMA is a free1 powerful phone editing tool allowing users to easily manage all of the personal data

    lblCurrentPageDtls: TTntLabel;
    activitylog1: TTntMenuItem;
    ActionViewLog: TTntAction;
    ComPort: TComPort;
    tbMainMenu: TToolBar;
    ToolButton36: TToolButton;
    ToolButton4: TToolButton;
    ActionSyncCalendar: TTntAction;
    ShowCaption1: TTntMenuItem;
    ShowDiagram1: TTntMenuItem;
    ActionContactsExportSM: TTntAction;
    ActionContactsExport: TTntAction;
    ActionContactsImportSM: TTntAction;
    ActionContactsImport: TTntAction;
    ActionContactsNewChat: TTntAction;
    ToolButton31: TToolButton;
    ChatContact1: TTntMenuItem;
    ChatContact2: TTntMenuItem;
    N11: TTntMenuItem;
    ActionToolsWapHomepage: TTntAction;
    EditWapHomePage1: TTntMenuItem;
    EditFavorites1: TTntMenuItem;
    Edit1: TTntMenuItem;
    EditCallFavorites1: TTntMenuItem;
    ToolButton32: TToolButton;
    ActionContactsVoiceHangup: TTntAction;
    N12: TTntMenuItem;
    ToolButton33: TToolButton;
    ActionToolsCreateGroup: TTntAction;
    NewGroup2: TTntMenuItem;
    CommonBitmaps: TBitmap32List;
    ActionToolsSilent: TTntAction;
    ToggleSilentMode1: TTntMenuItem;
    N2: TTntMenuItem;
    N4: TTntMenuItem;
    PowerOffPhone1: TTntMenuItem;
    ActionToolsPowerOff: TTntAction;
    SyncPhoneCalendar1: TTntMenuItem;
    Button13: TTntButton;
    CallContact1: TTntMenuItem;
    NewNote1: TTntMenuItem;
    NewBookmark1: TTntMenuItem;
    N24: TTntMenuItem;
    NewPerson1: TTntMenuItem;
    PhoneContacts1: TTntMenuItem;
    Synchronize1: TTntMenuItem;
    PhoneCalendar1: TTntMenuItem;
    OutlookContacts1: TTntMenuItem;
    HangupCall1: TTntMenuItem;
    Upload2: TTntMenuItem;
    N30: TTntMenuItem;
    N33: TTntMenuItem;
    Refresh2: TTntMenuItem;
    ActionSyncBookmarks: TTntAction;
    ActionToolsMinuteMinder: TTntAction;
    ToggleMinuteMinder1: TTntMenuItem;
    HangupCall2: TTntMenuItem;
    CallContact2: TTntMenuItem;
    Phone1: TTntMenuItem;
    N37: TTntMenuItem;
    NewGroup3: TTntMenuItem;
    N28: TTntMenuItem;
    PhoneBookmarks1: TTntMenuItem;
    PhoneClock2: TTntMenuItem;
    tbPhone: TToolBar;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    Toolbars1: TTntMenuItem;
    ActionViewTBStandard: TTntAction;
    ActionViewTBPhone: TTntAction;
    ActionViewTBCalls: TTntAction;
    ActionViewTBMessages: TTntAction;
    ActionViewTBProfile: TTntAction;
    ActionViewTBStandard1: TTntMenuItem;
    ActionViewTBPhone1: TTntMenuItem;
    ActionViewTBCalls1: TTntMenuItem;
    ActionViewTBMessages1: TTntMenuItem;
    ActionViewTBProfile1: TTntMenuItem;
    tbExplorer: TToolBar;
    ToolButton27: TToolButton;
    ToolButton19: TToolButton;
    ToolButton34: TToolButton;
    ToolButton22: TToolButton;
    ToolButton24: TToolButton;
    ToolButton35: TToolButton;
    ToolButton40: TToolButton;
    ToolButton41: TToolButton;
    ToolButton9: TToolButton;
    ToolButton12: TToolButton;
    ToolButton20: TToolButton;
    ActionViewTBExplorer: TTntAction;
    Explorer1: TTntMenuItem;
    GettingStarted1: TTntMenuItem;
    N40: TTntMenuItem;
    AddToPhonebook1: TTntMenuItem;
    TntButton1: TTntButton;
    TntButton2: TTntButton;
    TntButton3: TTntButton;
    TntButton4: TTntButton;
    TntButton5: TTntButton;
    ToolButton26: TToolButton;
    ActionViewProperties: TTntAction;
    MyMenu1: TTntMenuItem;
    pbTask: TSEProgress;
    N10: TTntMenuItem;
    ActionSyncClock: TTntAction;
    AddNewFolder1: TTntMenuItem;
    ActionViewAddFolder: TTntAction;
    ActionViewDelFolder: TTntAction;
    DeleteFolder1: TTntMenuItem;
    AddNewFolder2: TTntMenuItem;
    DeleteFolder2: TTntMenuItem;
    N23: TTntMenuItem;
    Properties2: TTntMenuItem;
    AddToPhonebook2: TTntMenuItem;
    N39: TTntMenuItem;
    Export2: TTntMenuItem;
    N27: TTntMenuItem;
    N17: TTntMenuItem;
    Favorites1: TTntMenuItem;
    ImportBookmarks1: TTntMenuItem;
    ExportBookmarks1: TTntMenuItem;
    N15: TTntMenuItem;
    SynchronizeAll1: TTntMenuItem;
    PhoneTextMessages1: TTntMenuItem;
    ImportRules1: TTntMenuItem;
    ExportRules1: TTntMenuItem;
    ActionSMSToFolder: TTntAction;
    ToolButton28: TToolButton;
    ToolButton42: TToolButton;
    N19: TTntMenuItem;
    N21: TTntMenuItem;
    N20: TTntMenuItem;
    ActionSyncAll: TTntAction;
    ActionSyncMessages: TTntAction;
    PhoneTextMessages2: TTntMenuItem;
    RulesSaveDialog: TTntSaveDialog;
    ActionRulesExport: TTntAction;
    RulesOpenDialog: TTntOpenDialog;
    DeliveryRules1: TTntMenuItem;
    Proximity1: TTntMenuItem;
    ScriptingOptions1: TTntMenuItem;
    LanguageOptions1: TTntMenuItem;
    N1: TTntMenuItem;
    ActionSMSDelivery: TTntAction;
    DeliveryRules2: TTntMenuItem;
    DeliveryRules3: TTntMenuItem;
    MissedCallsTrayIcon: TCoolTrayIcon;
    NewMessageTrayIcon: TCoolTrayIcon;
    Index1: TTntMenuItem;
    Search1: TTntMenuItem;
    ExplorerNew: TVirtualStringTree;
    DeviceMonitorUSB1: TDeviceMonitorUSB;
    ActionPlayerTogglePlay: TTntAction;
    ToolButton43: TToolButton;
    SearchMessages1: TTntMenuItem;
    ActionViewMsgSearch: TTntAction;
    ToolButton44: TToolButton;
    GettingStarted2: TTntMenuItem;
    N18: TTntMenuItem;
    ActionToolsPostAlarm: TTntAction;
    NewAlarm1: TTntMenuItem;
    Create1: TTntMenuItem;
    N31: TTntMenuItem;
    Message1: TTntMenuItem;
    N35: TTntMenuItem;
    Create2: TTntMenuItem;
    NewAlarm2: TTntMenuItem;
    N32: TTntMenuItem;
    N7: TTntMenuItem;
    N34: TTntMenuItem;
    pmToolbars: TTntPopupMenu;
    ToolButton18: TToolButton;
    DatabaseManager1: TTntMenuItem;
    ActionToolsExportCalendar: TTntAction;
    ActionToolsImportCalendar: TTntAction;
    ImportCalendar1: TTntMenuItem;
    ExportCalendar1: TTntMenuItem;
    VoiceMailNumber1: TTntMenuItem;
    ActionEditVoiceMail: TTntAction;
    pmStatusbar: TTntPopupMenu;
    ToggleConnect1: TTntMenuItem;
    ToggleConnect2: TTntMenuItem;
    procedure ActionConnectionConnectExecute(Sender: TObject);
    procedure ActionConnectionDisconnectExecute(Sender: TObject);
    procedure ActionConnectionDownloadExecute(Sender: TObject);
    procedure ActionContactsDownloadExecute(Sender: TObject);
    procedure ActionConnectionToggleExecute(Sender: TObject);
    procedure ActionContactsVoiceCallExecute(Sender: TObject);
    procedure ActionSMSDownloadInboxExecute(Sender: TObject);
    procedure ActionSMSArchiveMsgExecute(Sender: TObject);
    procedure ActionSelectAllExecute(Sender: TObject);
    procedure ActionDeleteExecute(Sender: TObject);
    procedure ActionSMSMoveMsgToArchiveExecute(Sender: TObject);
    procedure ActionSMSNewMsgExecute(Sender: TObject);
    procedure ActionSMSReplyMsgExecute(Sender: TObject);
    procedure ActionSMSForwardMsgExecute(Sender: TObject);
    procedure ActionAboutExecute(Sender: TObject);
    procedure ActionWindowRestoreExecute(Sender: TObject);
    procedure ActionToolsOptionsExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ContactListGetSelectedIndex(Sender: TObject;
      Node: TTreeNode);
    procedure ComPortAfterOpen(Sender: TObject);
    procedure ComPortAfterClose(Sender: TObject);
    procedure ComPortRxChar(Sender: TObject; Count: Integer);
    procedure ActionContactsNewMsgExecute(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ApplicationEvents1Minimize(Sender: TObject);
    procedure ApplicationEvents1Restore(Sender: TObject);
    procedure ScriptControlError(Sender: TObject;
      Error: TawScriptError);
    procedure ActionToolsEditScriptExecute(Sender: TObject);
    procedure ActionConnectionAbortExecute(Sender: TObject);
    procedure ActionToolsUploadExecute(Sender: TObject);
    procedure ActionToolsPostNoteExecute(Sender: TObject);
    procedure cbProfileChange(Sender: TObject);
    procedure StatusBarDrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure LMDFMDropFMDragDrop(Sender: TObject; fcount, x, y: Integer;
      FileList: TStrings);
    procedure WSocketOnSessionConnect(Sender: TObject; Error: Word);
    procedure WSocketOnSessionClosed(Sender: TObject; Error: Word);
    procedure WBtSocketDataAvailable(Sender: TObject; Error: Word);
    procedure WBtSocketChangeState(Sender: TObject; OldState,
      NewState: TSocketState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ActionSMSExportExecute(Sender: TObject);
    procedure ActionSyncPhonebookExecute(Sender: TObject);
    procedure ActionMissedCallsExecute(Sender: TObject);
    procedure ActionToolsKeyPadExecute(Sender: TObject);
    procedure ActionExitExecute(Sender: TObject);
    procedure ActionContactsExportMEExecute(Sender: TObject);
    procedure ActionToolsPostBookmarkExecute(Sender: TObject);
    procedure ActionObexReadyUpdate(Sender: TObject);
    procedure ActionToolsEditProfileUpdate(Sender: TObject);
    procedure ActionConnectionConnectUpdate(Sender: TObject);
    procedure ActionConnectionDisconnectUpdate(Sender: TObject);
    procedure ActionConnectionToggleUpdate(Sender: TObject);
    procedure ActionMissedCallsUpdate(Sender: TObject);
    procedure ActionWindowMinimizeExecute(Sender: TObject);
    procedure FmaOnTheWeb1Click(Sender: TObject);
    procedure ActionToolsChangeProfileExecute(Sender: TObject);
    procedure ActionToolsChangeProfileUpdate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure ActionToolsDownloadUpdate(Sender: TObject);
    procedure ActionToolsDownloadExecute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ActionConnectionExplorerUpdate(Sender: TObject);
    procedure ActionConnectionExplorerExecute(Sender: TObject);
    procedure ActionExplorerUpFolderUpdate(Sender: TObject);
    procedure ActionExplorerUpFolderExecute(Sender: TObject);
    procedure trayMenuPopup(Sender: TObject);
    procedure ActionBusyUpdate(Sender: TObject);
    procedure ActionEditCommonUpdate(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure ActionContactsNewPersonUpdate(Sender: TObject);
    procedure ActionContactsNewPersonExecute(Sender: TObject);
    procedure ActionContactsVoiceCallUpdate(Sender: TObject);
    procedure ActionContactsNewMsgUpdate(Sender: TObject);
    procedure ActionSMSUpdate(Sender: TObject);
    procedure ActionContactsExportMEUpdate(Sender: TObject);
    procedure ActionEditGoUpUpdate(Sender: TObject);
    procedure ActionEditGoUpExecute(Sender: TObject);
    procedure ActionEditGoDownUpdate(Sender: TObject);
    procedure ActionEditGoDownExecute(Sender: TObject);
    procedure ActionSMSArchiveMsgUpdate(Sender: TObject);
    procedure ActionConnectionDownloadUpdate(Sender: TObject);
    procedure Properties1Click(Sender: TObject);
    procedure ShowExplorer1Click(Sender: TObject);
    procedure ActionViewMsgPreviewUpdate(Sender: TObject);
    procedure ActionViewMsgPreviewExecute(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FmaOnSFNet1Click(Sender: TObject);
    procedure ActionContactsAddContactUpdate(Sender: TObject);
    procedure ActionContactsAddContactExecute(Sender: TObject);
    procedure ActionContactsOwnExecute(Sender: TObject);
    procedure FmaOnForums1Click(Sender: TObject);
    //procedure CheckforUpdate1Click(Sender: TObject);
    procedure ActionConnectionSendOutboxMsgsExecute(Sender: TObject);
    procedure ActionConnectionSendOutboxMsgsUpdate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ActionToolsKeybLockUpdate(Sender: TObject);
    procedure ActionToolsKeybLockExecute(Sender: TObject);
    procedure cbTerminalEnter(Sender: TObject);
    procedure cbTerminalExit(Sender: TObject);
    procedure ActionSMSImportUpdate(Sender: TObject);
    procedure ActionSMSImportExecute(Sender: TObject);
    procedure ActionContactsImportMEUpdate(Sender: TObject);
    procedure ActionContactsImportMEExecute(Sender: TObject);
    procedure DebugTools1Click(Sender: TObject);
    procedure ScriptControlCallFunction(Sender: TObject;
      const FunctionName: String; const Params: array of Variant);
    procedure Timer3Timer(Sender: TObject);
    procedure ActionSyncWithOutlookExecute(Sender: TObject);
    procedure FmaWebUpdate1BeforeUpdate(Sender: TObject;
      var AllowRestart: Boolean);
    procedure FmaWebUpdate1Error(Sender: TObject; Message: String);
    procedure CheckforUpdate2Click(Sender: TObject);
    procedure ActionSwitchUserProfileUpdate(Sender: TObject);
    procedure ActionSwitchUserProfileExecute(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure CoolTrayIcon1BalloonHintClick(Sender: TObject);
    procedure ActionViewLogExecute(Sender: TObject);
    procedure tbMainMenuCustomDrawButton(Sender: TToolBar;
      Button: TToolButton; State: TCustomDrawState;
      var DefaultDraw: Boolean);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
    procedure ActionSyncCalendarExecute(Sender: TObject);
    procedure PopupMenu2Popup(Sender: TObject);
    procedure ShowCaption1Click(Sender: TObject);
    procedure ShowDiagram1Click(Sender: TObject);
    procedure ActionContactsExportSMUpdate(Sender: TObject);
    procedure ActionContactsExportSMExecute(Sender: TObject);
    procedure ActionContactsExportUpdate(Sender: TObject);
    procedure ActionContactsExportExecute(Sender: TObject);
    procedure ActionContactsImportSMUpdate(Sender: TObject);
    procedure ActionContactsImportSMExecute(Sender: TObject);
    procedure ActionContactsImportUpdate(Sender: TObject);