Class TForm1 (unit UDemo1)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);

Language that will catch in table.

procedure BitBtn1Click(Sender: TObject);


procedure Button10Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

ReWrite the exists Text in GLang.

procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Close1Click(Sender: TObject);


procedure DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);


procedure EditENKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpinEdit1Change(Sender: TObject);

End Necessary statement} {Miscellany

procedure ChangeLang(Lang : String);

Private declarations

procedure LoadEdit;


Properties

Events

Variables

About1 : TMenuItem;


BitBtn1 : TBitBtn;


Button10 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


Close1 : TMenuItem;


ColorDialog1 : TColorDialog;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


EditDE : TEdit;


EditEN : TEdit;


EditFR : TEdit;


EditIT : TEdit;


EditPO : TEdit;


EditSP : TEdit;


File1 : TMenuItem;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


ListBox1 : TListBox;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


N1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


RadioButton1 : TRadioButton;


RadioButton10 : TRadioButton;


RadioButton11 : TRadioButton;


RadioButton12 : TRadioButton;


RadioButton13 : TRadioButton;


RadioButton2 : TRadioButton;


RadioButton3 : TRadioButton;


RadioButton4 : TRadioButton;


RadioButton5 : TRadioButton;


RadioButton6 : TRadioButton;


RadioButton7 : TRadioButton;


RadioButton8 : TRadioButton;


RadioButton9 : TRadioButton;


SpeedButton1 : TSpeedButton;


SpinEdit1 : TSpinEdit;


Table1 : TTable;


Dir : String;

Public declarations


Constructors


Functions


procedure About1Click(Sender: TObject);

Language that will catch in table. SP,IT,EN,DE,FR,PO


procedure BitBtn1Click(Sender: TObject);


procedure Button10Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);

ReWrite the exists Text in GLang.Dbf


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure Button6Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure Button8Click(Sender: TObject);


procedure Close1Click(Sender: TObject);


procedure DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);


procedure EditENKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpinEdit1Change(Sender: TObject);

End Necessary statement} {Miscellany


procedure ChangeLang(Lang : String);

Private declarations


procedure LoadEdit;


Properties


Events


Variables


About1 : TMenuItem;


BitBtn1 : TBitBtn;


Button10 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Button6 : TButton;


Button7 : TButton;


Button8 : TButton;


CheckBox1 : TCheckBox;


CheckBox2 : TCheckBox;


Close1 : TMenuItem;


ColorDialog1 : TColorDialog;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


Edit1 : TEdit;


Edit2 : TEdit;


Edit3 : TEdit;


EditDE : TEdit;


EditEN : TEdit;


EditFR : TEdit;


EditIT : TEdit;


EditPO : TEdit;


EditSP : TEdit;


File1 : TMenuItem;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


GroupBox3 : TGroupBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


ListBox1 : TListBox;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


N1 : TMenuItem;


Panel1 : TPanel;


Panel2 : TPanel;


RadioButton1 : TRadioButton;


RadioButton10 : TRadioButton;


RadioButton11 : TRadioButton;


RadioButton12 : TRadioButton;


RadioButton13 : TRadioButton;


RadioButton2 : TRadioButton;


RadioButton3 : TRadioButton;


RadioButton4 : TRadioButton;


RadioButton5 : TRadioButton;


RadioButton6 : TRadioButton;


RadioButton7 : TRadioButton;


RadioButton8 : TRadioButton;


RadioButton9 : TRadioButton;


SpeedButton1 : TSpeedButton;


SpinEdit1 : TSpinEdit;


Table1 : TTable;


Dir : String;

Public declarations