Class TForm1 (unit UDemo1) |
Inherits from
TForm
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;
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
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;
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