Changeset 6 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 14, 2012, 10:35:10 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení seznamu položek dle zadání struktury tabulky pomocí definice sloupců seznamu.
• Přidáno: Pamatování si pozice a velikosti okna.
• Přidáno: Překlad rozhraní do češtiny.

File:

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

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
-    ActionExit: TAction;
+    ASetting: TAction;
+    AExit: TAction;
     ActionList1: TActionList;
     ImageList1: TImageList;
     MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
     MenuItemSystem: TMenuItem;
     MenuItem2: TMenuItem;
@@ -28 +30 @@
     TabSheetTerminals: TTabSheet;
     ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    procedure AExitExecute(Sender: TObject);
+    procedure ASettingExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure TabSheetTerminalsShow(Sender: TObject);
+    procedure TabSheetUsersHide(Sender: TObject);
+    procedure TabSheetUsersShow(Sender: TObject);
   private
     { private declarations }
@@ -42 +52 @@
 
 uses
-  UCore;
+  UCore, UFormList, UFormSetting;
 
 {$R *.lfm}
+
+resourcestring
+  SPersonalId = 'Personal Id';
+  SFirstName = 'First name';
+  SSecondName = 'Second name';
+  SEnabled = 'Enabled';
+  SAddress = 'Address';
+  SPort = 'Port';
+  SType = 'Type';
+  SName = 'Name';
+  SFingerPrint = 'Fingerprint';
+  SCardCode = 'Card code';
+  SNote = 'Note';
+  SLogin = 'Login';
+  SPassword = 'Password';
 
 { TFormMain }
@@ -50 +75 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+  Core.Init;
+  Core.PersistentForm.Load(Self);
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  Core.PersistentForm.Save(Self);
   Core.Done;
+end;
+
+procedure TFormMain.AExitExecute(Sender: TObject);
+begin
+  Exit;
+end;
+
+procedure TFormMain.ASettingExecute(Sender: TObject);
+begin
+  FormSetting.ShowModal;
 end;
 
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  Core.Init;
+end;
+
+procedure TFormMain.TabSheetTerminalsShow(Sender: TObject);
+begin
+  Core.FormTerminals := TFormList.Create(Self);
+  with TFormList(Core.FormTerminals) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(SName, 'Name', True, 80);
+      AddItem(SEnabled, 'Enabled', True, 80);
+      AddItem(SAddress, 'Address', True, 80);
+      AddItem(SPort, 'Port', True, 80);
+      AddItem(SType, 'Type', True, 80);
+      AddItem(SNote, 'Note', True, 80);
+    end;
+    Table := 'Terminal';
+    UpdateData;
+  end;
+end;
+
+procedure TFormMain.TabSheetUsersHide(Sender: TObject);
+begin
+  FreeAndNil(Core.FormUsers);
+end;
+
+procedure TFormMain.TabSheetUsersShow(Sender: TObject);
+begin
+  Core.FormUsers := TFormList.Create(Self);
+  with TFormList(Core.FormUsers) do begin
+    ManualDock(TTabSheet(Sender));
+    Align := alClient;
+    Show;
+    with Columns do begin
+      AddItem(SEnabled, 'Enabled', True, 80);
+      AddItem(SPersonalId, 'PersonalId', True, 80);
+      AddItem(SLogin, 'Login', False, 80);
+      AddItem(SPassword, 'Password', False, 80);
+      AddItem(SFirstName, 'FirstName', True, 80);
+      AddItem(SSecondName, 'SecondName', True, 80);
+      AddItem(SCardCode, 'CardCode', True, 80);
+      AddItem(SFingerPrint, 'FingerPrint', True, 80);
+      AddItem(SNote, 'Note', False, 80);
+    end;
+    Table := 'User';
+    UpdateData;
+  end;
 end;