unit1.pas

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

    procedure ActionContactsImportExecute(Sender: TObject);
    procedure ActionContactsNewChatUpdate(Sender: TObject);
    procedure ActionContactsNewChatExecute(Sender: TObject);
    procedure ActionToolsWapHomepageUpdate(Sender: TObject);
    procedure ActionToolsWapHomepageExecute(Sender: TObject);
    procedure EditFavorites1Click(Sender: TObject);
    procedure EditCallFavorites1Click(Sender: TObject);
    procedure ActionContactsVoiceHangupUpdate(Sender: TObject);
    procedure ActionContactsVoiceHangupExecute(Sender: TObject);
    procedure ApplicationEvents1Hint(Sender: TObject);
    procedure ActionToolsCreateGroupExecute(Sender: TObject);
    procedure ActionToolsSilentUpdate(Sender: TObject);
    procedure ActionToolsSilentExecute(Sender: TObject);
    procedure ActionToolsPowerOffExecute(Sender: TObject);
    procedure ActionIrmcReadyUpdate(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure FormStorage1RestorePlacement(Sender: TObject);
    procedure Refresh2Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ActionSyncBookmarksExecute(Sender: TObject);
    procedure ActionToolsMinuteMinderExecute(Sender: TObject);
    procedure ActionToolsMinuteMinderUpdate(Sender: TObject);
    procedure ActionViewTBUpdate(Sender: TObject);
    procedure ActionViewTBExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CoolBarChange(Sender: TObject);
    procedure GettingStarted1Click(Sender: TObject);
    procedure WBtSocketSessionAvailable(Sender: TObject; ErrCode: Word);
    procedure ExceptionTest1Click(Sender: TObject);
    procedure TntButton1Click(Sender: TObject);
    procedure TntButton2Click(Sender: TObject);
    procedure TntButton3Click(Sender: TObject);
    procedure TntButton4Click(Sender: TObject);
    procedure TntButton5Click(Sender: TObject);
    procedure ActionViewPropertiesUpdate(Sender: TObject);
    procedure ActionViewPropertiesExecute(Sender: TObject);
    procedure StatusBarResize(Sender: TObject);
    procedure FmaWebUpdate1AfterUpdate(Sender: TObject; Text: String);
    procedure ActionSyncClockExecute(Sender: TObject);
    procedure ActionViewAddFolderUpdate(Sender: TObject);
    procedure ActionViewAddFolderExecute(Sender: TObject);
    procedure ActionViewDelFolderUpdate(Sender: TObject);
    procedure ActionViewDelFolderExecute(Sender: TObject);
    procedure ActionSMSToFolderUpdate(Sender: TObject);
    procedure ActionSMSToFolderExecute(Sender: TObject);
    procedure OnFolderSelected(Sender: TObject; Node: PVirtualNode;
      var EnableOKButton: boolean; var EnableNewFolder: boolean);
    procedure ActionSyncAllExecute(Sender: TObject);
    procedure ActionSyncMessagesExecute(Sender: TObject);
    procedure ActionRulesExportUpdate(Sender: TObject);
    procedure ActionRulesExportExecute(Sender: TObject);
    procedure ImportRules1Click(Sender: TObject);
    procedure DeliveryRules1Click(Sender: TObject);
    procedure Proximity1Click(Sender: TObject);
    procedure ScriptingOptions1Click(Sender: TObject);
    procedure LanguageOptions1Click(Sender: TObject);
    procedure ActionSMSDeliveryUpdate(Sender: TObject);
    procedure ActionSMSDeliveryExecute(Sender: TObject);
    procedure MissedCallsTrayIconDblClick(Sender: TObject);
    procedure NewMessageTrayIconDblClick(Sender: TObject);
    function ApplicationEvents1Help(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
    procedure Index1Click(Sender: TObject);
    procedure Search1Click(Sender: TObject);
    procedure ExplorerNewChange(Sender: TBaseVirtualTree;
      Node: PVirtualNode);
    procedure ExplorerNewGetNodeDataSize(Sender: TBaseVirtualTree;
      var NodeDataSize: Integer);
    procedure ExplorerNewGetText(Sender: TBaseVirtualTree;
      Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
      var CellText: WideString);
    procedure ExplorerNewGetImageIndex(Sender: TBaseVirtualTree;
      Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
      var Ghosted: Boolean; var ImageIndex: Integer);
    procedure ExplorerNewContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure ExplorerNewPaintText(Sender: TBaseVirtualTree;
      const TargetCanvas: TCanvas; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType);
    procedure ExplorerNewDblClick(Sender: TObject);
    procedure ExplorerNewFreeNode(Sender: TBaseVirtualTree;
      Node: PVirtualNode);
    procedure ExplorerNewMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ExplorerNewClick(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure DeviceMonitorUSB1USBArrival(Sender: TObject);
    procedure ActionPlayerTogglePlayUpdate(Sender: TObject);
    procedure ActionPlayerTogglePlayExecute(Sender: TObject);
    procedure ActionViewMsgSearchUpdate(Sender: TObject);
    procedure ActionViewMsgSearchExecute(Sender: TObject);
    procedure ExplorerNewAfterCellPaint(Sender: TBaseVirtualTree;
      TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
      CellRect: TRect);
    procedure ActionDummyExecute(Sender: TObject);
    procedure Memo3Change(Sender: TObject);
    procedure ActionNotInObexUpdate(Sender: TObject);
    procedure ActionToolsPostAlarmExecute(Sender: TObject);
    procedure ActionToolsExportCalendarExecute(Sender: TObject);
    procedure ActionToolsExportCalendarUpdate(Sender: TObject);
    procedure ActionToolsImportCalendarExecute(Sender: TObject);
    procedure ActionToolsImportCalendarUpdate(Sender: TObject);
    procedure ExplorerNewDragOver(Sender: TBaseVirtualTree;
      Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint;
      Mode: TDropMode; var Effect: Integer; var Accept: Boolean);
    procedure ExplorerNewDragDrop(Sender: TBaseVirtualTree;
      Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
      Shift: TShiftState; Pt: TPoint; var Effect: Integer;
      Mode: TDropMode);
    procedure ActionEditVoiceMailUpdate(Sender: TObject);
    procedure ActionEditVoiceMailExecute(Sender: TObject);
  private
    { Private declarations }
    FAppCaption: WideString;

    LastSMSSendFailure,LastSMSReceiveFailure: TDateTime;
    FSendingMessage: Boolean;

    FLastMenuButton: TToolButton;
    ChartShiftCnt, FKeyMSec: Cardinal;

    FBtAddress: String;
    FBtDevice: WideString;
    FBtPort: String;

    FConnectionError,FProximityActive,FLastReconnect,FTemporaryOffline,FAutoProfile,
    FDoNotRefreshViewOnConnect,FHaveVoiceDialCommand_Answer,FHaveVoiceDialCommand_Dial,
    FHaveVoiceDialCommand_Hangup,FDatabaseLoaded: Boolean;

    FMessage: String;

    FNewMessageList,FNewPDUList: TStringList;

    FLookupList: TTntStringList;

    FNotFirstInstance,FAppInitialized,FIgnoreLowBattery,FStateMonitor,
    FDoSyncClock,FKeyState,FKeyMonitoring,FKeybLocked,FSilentMode,FEBCAKeyMonStopped: Boolean;
    FMinuteMinder : Boolean;

    FScriptFile,FScriptEditor: WideString;

    FOutlookConflict1,FOutlookConflict2: TContact;

    //FCurrentInterval: Integer;
    EBCALastState: Integer;

    FAlphaCall : Integer;
    FAlphaLog : Integer;
    FAlphaMessage : Integer;
    FAlphaCompose : Integer;

    FAccessoriesMenu: TAccessoriesMenu;
    FCallM,FMsgM,FExit,FExiting,FExitWindows,FMinimize,FCheckOutbox,FRelocateDBDenied: Boolean;
    FLastECAVStatus: Integer;
    FLastShownFrame,FLastClockTZ: string;

    FLogForm: TfrmLog;
    FPhoneModel,ForcePhoneModel: String;
    FLastGroupCreated: WideString;
    FPortableMode: boolean;

    function GetAssociatedBand(Bar: TToolBar): TCoolBand;
    function GetBandSettings(Band: TCoolBand): string;
    procedure SetBandSettings(Band: TCoolBand; Data: WideString);

    procedure InitExplorerTree;
    function InitNewPhone(ReturnDontShow: boolean = False): boolean;

    procedure ReleaseMainMenuButton;
    procedure UpdateColorScheme;

    procedure DoRemoveAlarm;
    procedure DoRemoveSavedSearch;
    procedure DoRemoveGroupMemberOrFile;
    procedure DoRemoveBookmark;
    procedure DoRemoveGroup;

    // for selected explorer item
    procedure DownloadSMS(msgType: Integer; Node: PVirtualNode = nil); overload;
    procedure DownloadSMS(msgType: Integer; memLocation: String; Node: PVirtualNode = nil); overload;
    // into custom location (tstrings)
    procedure DownloadSMS(msgType: Integer; var sl: TStringList); overload;
    procedure DownloadSMS(msgType: Integer; memLocation: String; var sl: TStringList;
      MarkAsNew: boolean = False); overload;
    // for new messages
    procedure DoDownloadSMSFromPhone(memLocation: String; index: Integer);
    // other
    procedure FlushOK;

    function CheckScriptEditorExt: boolean;
    procedure ScriptingCleanup;

    procedure HandleCALV(AMsg: String);
    procedure HandleCPMS(AMsg: String);
    procedure HandleECAV(AMsg: String);
    procedure HandleCOPS(AMsg: String);
    procedure HandleCKEV(AMsg: String);
    procedure HandleCIEV(AMsg: String);
    procedure HandleCSCS(AMsg: String);
    procedure HandleCCLK(AMsg: String);
    procedure HandleCPIN(AMsg: String);
    procedure HandleCNMI(AMsg: String);
    procedure HandleEMIV(AMsg: String);
    procedure HandleEAMI(AMsg: String);
    procedure HandleSEGUII(AMsg: String);
    procedure HandleEBCA(AMsg: String);
    procedure HandleCLCK(AMsg: String);
    procedure HandleCMTI(AMsg: String);
    procedure HandleCIND(AMsg: String);
    procedure HandleCDS(AMsg: String);
    procedure HandleStatus(AMsg: String; OverrideBatteryLow: Integer = -1);
    procedure LoadOptions;
    procedure RetrieveNewSMS(AMsg: String);
    procedure ParsePhonebookList(const buffer: String; var sl: TStrings);
    procedure ParsePhonebookListFromSync(var sl: TStrings);      // SIM View only
    procedure ParsePhonebookListFromEditor(ANode: PVirtualNode); // SIM View only
    procedure SetPanelText(id: Integer; str: WideString = '');
    function LoadScript: boolean;
    procedure ScriptEvent(const FunctionName: string; const Params: array of Variant);
    procedure ScheduleScriptEvent(const FunctionName: string; const Params: array of Variant);
    procedure UpdateSpecialMonitors;
    procedure ClearBuffer;
    procedure SetFrameVisible(name: String; visible: Boolean = True);
    procedure GetContactRestrict;
    procedure GetSignalMeter;
    procedure GetBatteryMeter;

    procedure ObexListFolder(Path: WideString; var Dir: TStringList; Connect: boolean = true); overload;

    procedure CalculateTimeLeft(Model,Charge: string; Position, Max: integer);
    procedure UpdateMessagePreview;
    procedure AddCall(Node: PVirtualNode; contact: WideString; time: string; AsFirst: boolean = false);
    procedure ReindexCallsNode(Node: PVirtualNode);
    procedure SyncContactsConflict(Sender: TObject; Contact,OtherContact: TContact;
      const Description: WideString; const Item0Name, Item1Name: WideString;
      var SelectedItem: Integer);
    procedure SyncContactsFirstTime(Sender: TObject; var Continue: Boolean);
    procedure SyncContactsError(Sender: TObject; const Message: String);
    procedure SyncContactsConfirm(Sender: TObject; Contact: TContact; Action: TContactAction;
      const Description: WideString; var Confirmed: Boolean);
    procedure SyncContactsChooseLink(Sender: TObject; Contact: TContact; PossibleLinks: TPossibleLinks;
      var OtherContact: TContact);
    procedure LogFormDestroy(Sender: TObject);
    function getExplorerSelectedNodeLevel1: PVirtualNode;
    procedure OnOutlookConflictChanges(Sender: TObject; const TargetName, Option1Name, Option2Name: WideString);
  protected
    FScriptEventName: string;
    FScriptEventParams: array of Variant;
    procedure HandleRinging;
    procedure HandleMessage(var Msg: TFmaHandleMessage); message FMA_HANDLEMESSAGE;
    procedure WM_QUERYENDSESSION(var Msg: TMessage); message WM_QUERYENDSESSION;
    procedure WM_ENDSESSION(var Msg: TMessage); message WM_ENDSESSION;
    procedure WM_SYSCOLORCHANGE(var Msg: TMessage); message WM_SYSCOLORCHANGE;
  public
    { Public declarations }
{$IFNDEF VER150}
    ThemeManager1: TTntThemeManager;
{$ENDIF}

    FForceUCSusage,FArchiveDublicates: boolean;
    FStartupOptions: TStartupOptions;
    FProximityOptions: TProximityOptions;
    FTextMessageOptions: TTextMessageOptions;
    FCallOptions: TCallOptions;
    FScriptRunning, FScriptInitialized, FScriptErrorOccur, FBatteryLow, FBatteryWarning,
    FCalWideView,FCalRecurrence,FCalRecurrAsk,FCalAutoBirthday: boolean;
    FFmaMutex: Cardinal;
    FShowDiagram,FShowTodayCaption,FClearPhoneMessage: Boolean;
    FUseCIND,FUseAlternateSignalMeter,FUseAlternateBatteryMeter: Boolean;
    FOutlookConfirmed: array[TContactAction] of TConfirmation;
    FAutolinkContacts,FShowSplash,FAlwaysMinimized: Boolean;
    FamCommand: String;
    FObex: TObex;

    // Forms, TntForms
    frmSMEdit: TfrmContactsSMEdit;
    frmMEEdit: TfrmContactsMEEdit;
    frmMsgView: TfrmMsgView;
    frmInfoView: TfrmInfoView;
    frmSyncPhonebook: TfrmSyncPhonebook;
    frmSyncBookmarks: TfrmSyncBookmarks;
    frmExplore: TfrmExplore;
    frmEditor: TfrmEditor;
    frmCalendarView: TfrmCalendarView;

    // new ones begin
    FNodeContactsRoot,
    FNodeContactsME, FNodeContactsSM, FNodeProfiles, FNodeGroups, FNodeCalls, FNodeCallsIn, FNodeCallsOut, FNodeCallsMissed,
    FNodeObex, FNodeOrganizer, FNodeAlarms, FNodeBookmarks, FNodeScripts, FNodeCalendar: PVirtualNode;
    FNodeMsgPhoneRoot, FNodeMsgFmaRoot, FNodeSavedSearches,
    FNodeMsgInbox, FNodeMsgSent, FNodeMsgOutbox, FNodeMsgDrafts, FNodeMsgArchive: PVirtualNode;
    // new ones end
    FSMSCounterReseted,FSMSDoWarning,FSMSDoReset: boolean;
    FSMSCounter, FSMSWarning, FSMSCounterResetDay,FSMSCounterResetLastMonth: Integer;
    FSyncContactPrio,FSyncCalendarPrio,FSyncClockPrio,FSyncBookmarkPrio: Integer;
    FSyncBookmarksIE,FSyncBookmarksFirefox,FSyncBookmarksOpera: boolean;
    FBookmarkRootFolder: string;
    FOutlookSyncConflict: Integer;
    FOutlookConfirmAdding, FOutlookConfirmUpdating, FOutlookConfirmDeleting, FOutlookNoSyncAll: Boolean;
    FOutlookNewAction: Integer;
    FOutlookCategories, FOutlookFieldMappings,
    FSelectedOutlookContactFolders, FSelectedOutlookCalendarFolders, FSelectedOutlookTaskFolders,
    FOutlookNewContactsFolder, FOutlookNewCalendarFolder, FOutlookNewTasksFolder: WideString;
    FLastWebUpdateDate: TDateTime;
    FExplorerStartupMode,FAutoWebUpdateMode: Integer;
    FConnected,FConnectingComplete,FConnectingStarted,FStartupSyncFinished,FJustWebUpdated: Boolean;
    FDontProgress,FProgressIndicatorOnly,FProgressLongOnly,FProgressRestoredOnly: Boolean;
    FEmergencyMode,FUseCNMIMode3,FStatusReport,FUseUTF8,FUseObex,FUseObexCompat,
    FUseEBCA,FUseScript,FUseCBC,FUseCSQ,FUseSilentMonitor,FUseMinuteMonitor,FUseKeylockMonitor,FUseScriptEditorExt: Boolean;
    FAutoConnectionError,FOnACPower,LoadingDBFiles,FChatLongSMS,FChatBold,FUseMediaPlayer: Boolean;
    FSelOperator,FSelPhone,ForceSelPhone,FChatNick,FVoiceMail: WideString;
    FSupportedCS,FKeyActivity,FDatabaseVersion: String;
    FKeyInactivityTimeout: Integer;
    FFavoriteRecipients,FFavoriteCalls: TTntStringList;
    FDeliveryRules,FSavedSearches: TTntStringList;

    FStatusReportList: TStringList;
    FReportLookupList: array[0..255] of Integer;

    fFiles: TFiles;

    { Mixer vars }
    L,R,M,FLastVolume:Integer;
    VD,MD,MS,Stereo:Boolean;

    FDisplayNameFormat: Integer;

    function GetHelpFilename(AppendPath: WideString = ''): WideString;

    procedure ScriptingEnable(NewScriptFile: String = '');
    procedure ScriptingDisable;