asoundex.pas

MTK based mobile ROM firmware editor

unit aSoundex;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, cxMemo,
  cxCheckBox, cxCalc, cxInplaceContainer, cxDBTL, cxControls, cxTLData, DB,
  cxImage, cxRichEdit;

type
  TfSoundex = class(TForm)
    TLOriginal: TcxDBTreeList;
    TLOriginalSTR_ID: TcxDBTreeListColumn;
    TLOriginalN: TcxDBTreeListColumn;
    TLOriginalPARENT_ID: TcxDBTreeListColumn;
    TLOriginalIS_TRANSL: TcxDBTreeListColumn;
    TLOriginalENGLISH: TcxDBTreeListColumn;
    TLOriginalRUSSIAN: TcxDBTreeListColumn;
    TLOriginalPHONE_MODEL: TcxDBTreeListColumn;
    procedure FormShow(Sender: TObject);
    procedure TLOriginalDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fSoundex: TfSoundex;

implementation

{$R *.dfm}
  uses aMain;
procedure TfSoundex.FormShow(Sender: TObject);
begin
        fMain.OQSoundex.Params[0].AsString:=
        fMain.OQStructureENGLISH.AsString;
        fMain.OQSoundex.Refresh;
end;

procedure TfSoundex.TLOriginalDblClick(Sender: TObject);
begin
 if Self.TLOriginal.SelectionCount>0 then
 begin
   if fmain.OQStructure.State<>dsEdit then
    fmain.OQStructure.Edit;
   fMain.OQStructureRUSSIAN.AsString:=fMain.OQSoundexRUSSIAN.AsString;
 end;
end;

end.