amain.pas

MTK based mobile ROM firmware editor

unit aMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, cxGraphics, dxStatusBar, dxBar, cxSplitter,
  cxControls, cxContainer, cxEdit, cxGroupBox, cxCustomData, cxStyles, cxTL,
  cxMaskEdit, cxCheckBox, cxInplaceContainer, cxDBTL, DB, cxTLData,
  cxMemo, cxClasses, ActnList, ImgList, RxStrUtils, rxAppEvent, ExtCtrls,
  cxTextEdit, cxButtonEdit, MemDS, DBAccess, Ora, cxPC, cxExportTL4Link, cxCalc,
  dxBarExtItems, cxDropDownEdit, cxDBEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, cxBarEditItem, cxImage, cxRichEdit, cxShellBrowserDialog,
  VirtualTable, cxSpinEdit, cxFontNameComboBox, Menus, StdCtrls, cxButtons,
  XLSReadWriteII2, cxProgressBar, MemData, cxEditRepositoryItems, JvExForms,
  JvBaseThumbnail, JvThumbViews, JvComponentBase, JvPicClip, JvDrawImage, cUnicodeChar,
  cxLabel, cxListBox, JvTranslator, JvPatchFile, cxBlobEdit, OleCtnrs, MPlayer,
  JvWavePlayer, JvExControls, JvAnimatedImage, JvGIFCtrl;

type
  TfMain = class(TForm)
    cxGroupBox1:   TcxGroupBox;
    cxSplitter1:   TcxSplitter;
    cxGroupBox2:   TcxGroupBox;
    BarMan:        TdxBarManager;
    dxBarDockControl1: TdxBarDockControl;
    SbMain:        TdxStatusBar;
    dxBarDockControl2: TdxBarDockControl;
    DTOriginal:    TDataSource;
    DTStructure:   TDataSource;
    ActionList:    TActionList;
    cxImageList:   TcxImageList;
    AcSearchByEng: TAction;
    AcSearchByRu:  TAction;
    dxBarManager1Bar1: TdxBar;
    EdOriginSearch: TdxBarEdit;
    dxBarButton1:  TdxBarButton;
    dxBarButton2:  TdxBarButton;
    AcFilter:      TAction;
    dxBarButton3:  TdxBarButton;
    AcSearchByNo:  TAction;
    dxBarButton4:  TdxBarButton;
    AcNotInTree:   TAction;
    dxBarButton5:  TdxBarButton;
    AppEvents:     TAppEvents;
    ScrollTimer:   TTimer;
    BarManBar1:    TdxBar;
    AcSyncModeList: TAction;
    AcSyncModeStruct: TAction;
    dxBarButton6:  TdxBarButton;
    dxBarButton7:  TdxBarButton;
    dxBarButton8:  TdxBarButton;
    AcDesync:      TAction;
    dxBarButton9:  TdxBarButton;
    AcReadyFilter: TAction;
    AcEngToRus:    TAction;
    dxBarButton10: TdxBarButton;
    OraSession:    TOraSession;
    OQOriginal:    TOraQuery;
    OQStructure:   TOraQuery;
    OQOriginalIMG_IDX: TIntegerField;
    OQStructureIMG_IDX: TIntegerField;
    OQStructureSTR_ID: TStringField;
    OQStructureN:  TStringField;
    OQStructurePARENT_ID: TStringField;
    OQStructureIS_TRANSL: TStringField;
    OQStructureENGLISH: TStringField;
    OQStructureRUSSIAN: TStringField;
    PCStruct:      TcxPageControl;
    cxTabSheet1:   TcxTabSheet;
    cxTabSheet2:   TcxTabSheet;
    TLStructure:   TcxDBTreeList;
    TLStructureN:  TcxDBTreeListColumn;
    TLStructureEnglish: TcxDBTreeListColumn;
    TLStructureIS_TRANSL: TcxDBTreeListColumn;
    TLStructureYourlanguage: TcxDBTreeListColumn;
    TLStructureSTR_ID: TcxDBTreeListColumn;
    TLStructurePARENT_ID: TcxDBTreeListColumn;
    dxBarDockControl3: TdxBarDockControl;
    TL_Export:     TcxDBTreeList;
    TL_ExportN:    TcxDBTreeListColumn;
    TL_ExportENGLISH: TcxDBTreeListColumn;
    TL_ExportRUSSIAN: TcxDBTreeListColumn;
    dxBarDockControl4: TdxBarDockControl;
    BarManBar2:    TdxBar;
    dxBarButton11: TdxBarButton;
    AcExportToExcell: TAction;
    SDExpExcell:   TSaveDialog;
    OQExport:      TOraQuery;
    DTExport:      TDataSource;
    OQExportN:     TFloatField;
    OQExportENGLISH: TStringField;
    OQExportRUSSIAN: TStringField;
    OQModels:      TOraQuery;
    DTModels:      TDataSource;
    dxBarControlContainerItem1: TdxBarControlContainerItem;
    OQModelsPHONE_MODEL: TStringField;
    AcRefreshAll:  TAction;
    dxBarButton12: TdxBarButton;
    CBModel:       TcxDBLookupComboBox;
    OQOriginalSTR_ID: TStringField;
    OQOriginalN:   TStringField;
    OQOriginalPARENT_ID: TStringField;
    OQOriginalIS_TRANSL: TStringField;
    OQOriginalENGLISH: TStringField;
    OQOriginalRUSSIAN: TStringField;
    OQOriginalPHONE_MODEL: TStringField;
    dxBarControlContainerItem2: TdxBarControlContainerItem;
    cxBarEditItem1: TcxBarEditItem;
    cxPageControl1: TcxPageControl;
    cxTabSheet3:   TcxTabSheet;
    cxTabSheet4:   TcxTabSheet;
    TLOriginal:    TcxDBTreeList;
    TLOriginalN:   TcxDBTreeListColumn;
    TLOriginalEnglish: TcxDBTreeListColumn;
    TLOriginalYourlanguage: TcxDBTreeListColumn;
    TLOriginalSTR_ID: TcxDBTreeListColumn;
    TLOriginalPARENT_ID: TcxDBTreeListColumn;
    TLOriginalIS_TRANSL: TcxDBTreeListColumn;
    cxDBTreeList1: TcxDBTreeList;
    cxDBTreeList1PHONE_MODEL: TcxDBTreeListColumn;
    TLOriginalPHONE_MODEL: TcxDBTreeListColumn;
    OQStructurePHONE_MODEL: TStringField;
    DTSoundex:     TDataSource;
    OQSoundex:     TOraQuery;
    AcSoundex:     TAction;
    dxBarButton13: TdxBarButton;
    OQSoundexSTR_ID: TStringField;
    OQSoundexN:    TStringField;
    OQSoundexPARENT_ID: TStringField;
    OQSoundexIS_TRANSL: TStringField;
    OQSoundexENGLISH: TStringField;
    OQSoundexRUSSIAN: TStringField;
    OQSoundexPHONE_MODEL: TStringField;
    cxPageControl2: TcxPageControl;
    cxTabSheet5:   TcxTabSheet;
    cxTabSheet6:   TcxTabSheet;
    cxGroupBox3:   TcxGroupBox;
    cxGroupBox4:   TcxGroupBox;
    cxGroupBox5:   TcxGroupBox;
    VTFonts:       TVirtualTable;
    VTFontsVTFontsCharPath: TWideStringField;
    VTFontsVTFontsCharIMG: TBlobField;
    DSFonts:       TDataSource;
    DlgFontPath:   TcxShellBrowserDialog;
    EdFontPath:    TcxButtonEdit;
    VTFontsCharID: TStringField;
    VTFontsVTFontsNew: TBlobField;
    ALFonts:       TActionList;
    ACFApplyFont:  TAction;
    dxBarDockControl5: TdxBarDockControl;
    BarManBar3:    TdxBar;
    AcImportVoc:   TAction;
    AcDeleteVoc:   TAction;
    dxBarButton14: TdxBarButton;
    AcTranslate:   TAction;
    dxBarButton15: TdxBarButton;
    dxBarButton16: TdxBarButton;
    SQLTranslate:  TOraSQL;
    SQLRefreshEthalon: TOraSQL;
    AcRefreshVoc:  TAction;
    dxBarButton17: TdxBarButton;
    XLS:           TXLSReadWriteII2;
    ODExcel:       TOpenDialog;
    SQLInsertLP:   TOraSQL;
    SbMainContainer2: TdxStatusBarContainerControl;
    PBMain:        TcxProgressBar;
    SQLTimer:      TTimer;
    OQModelsWORDS: TFloatField;
    cxDBTreeList1WORDS: TcxDBTreeListColumn;
    AcEditModel:   TAction;
    dxBarButton18: TdxBarButton;
    dxBarButton19: TdxBarButton;
    EditRepository: TcxEditRepository;
    RepImageOrigin: TcxEditRepositoryImageItem;
    RepImageNew:   TcxEditRepositoryImageItem;
    cxPageControl3: TcxPageControl;
    cxTabSheet7:   TcxTabSheet;
    cxTabSheet8:   TcxTabSheet;
    TLFont:        TcxDBTreeList;
    TLFontVTFontsCharPath: TcxDBTreeListColumn;
    TLFontVTFontsCharIMG: TcxDBTreeListColumn;
    TLFontVTFontsNew: TcxDBTreeListColumn;
    TLFontCharID:  TcxDBTreeListColumn;
    FontThumbView: TJvThumbView;
    cxGroupBox6:   TcxGroupBox;
    cxGroupBox7:   TcxGroupBox;
    EDFont:        TcxFontNameComboBox;
    EdFontSize:    TcxSpinEdit;
    cxGroupBox8:   TcxGroupBox;
    CharIMG:       TcxDBImage;
    dxBarDockControl6: TdxBarDockControl;
    cxGroupBox9:   TcxGroupBox;
    CharNew:       TcxDBImage;
    BarManBar4:    TdxBar;
    dxBarButton20: TdxBarButton;
    cxGroupBox10:  TcxGroupBox;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1:      TcxStyle;
    ACFRestoreFont: TAction;
    dxBarButton21: TdxBarButton;
    cxStyle2:      TcxStyle;
    cxDBImage1:    TcxDBImage;
    cxDBImage2:    TcxDBImage;
    LbPropOriginal: TcxLabel;
    LbPropNew:     TcxLabel;
    cxLabel1:      TcxLabel;
    EdDH:          TcxSpinEdit;
    cxLabel2:      TcxLabel;
    EdDW:          TcxSpinEdit;
    CbOldChar:     TcxCheckBox;
    CbNewFontSize: TcxCheckBox;
    EdWPerc:       TcxSpinEdit;
    cxLabel3:      TcxLabel;
    LbColor:       TcxLabel;
    ACFSizeUp:     TAction;
    ACFSizeDown:   TAction;
    ACFTop:        TAction;
    ACFBottom:     TAction;
    ACFLeft:       TAction;
    ACFRight:      TAction;
    dxBarButton23: TdxBarButton;
    dxBarButton24: TdxBarButton;
    dxBarButton25: TdxBarButton;
    dxBarButton26: TdxBarButton;
    dxBarButton27: TdxBarButton;
    dxBarButton28: TdxBarButton;
    ACFWideUp:     TAction;
    AcWideDown:    TAction;
    dxBarButton29: TdxBarButton;
    dxBarButton30: TdxBarButton;
    cxTabSheet9:   TcxTabSheet;
    cxGroupBox11:  TcxGroupBox;
    EdFirmwarePath: TcxButtonEdit;
    ODROM:         TOpenDialog;
    SDROM:         TSaveDialog;
    VTROMRes:      TVirtualTable;
    DSROMRes:      TDataSource;
    cxGroupBox12:  TcxGroupBox;
    cxSplitter2:   TcxSplitter;
    VTROMResVTROMResResID: TStringField;
    VTROMResVTROMResType: TStringField;
    VTROMResVTROMResBIN: TBlobField;
    VTROMResVTROMResMaxSize: TIntegerField;
    VTROMResVTROMResOffset: TIntegerField;