Changeset 9 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 14, 2013, 10:59:07 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Systém pro překládání angličtiny do češtiny.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -37 +37 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -81 +82 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+end;
+
+procedure TFormMain.FormShow(Sender: TObject);
+begin
   LoadInterface;
+  Core.CoolTranslator1.Translate;
 end;