Changeset 6 for trunk/Forms


Ignore:
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.
Location:
trunk/Forms
Files:
3 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r5 r6  
    99  Menu = MainMenu1
    1010  OnClose = FormClose
     11  OnCreate = FormCreate
     12  OnDestroy = FormDestroy
    1113  OnShow = FormShow
    1214  LCLVersion = '1.1'
     15  WindowState = wsMaximized
    1316  object PageControl1: TPageControl
    1417    Left = 0
    … …  
    1619    Top = 26
    1720    Width = 733
    18     ActivePage = TabSheetUsers
     21    ActivePage = TabSheetTerminals
    1922    Align = alClient
    20     TabIndex = 0
     23    Images = ImageList1
     24    TabIndex = 2
    2125    TabOrder = 0
    2226    object TabSheetUsers: TTabSheet
    2327      Caption = 'Users'
     28      OnHide = TabSheetUsersHide
     29      OnShow = TabSheetUsersShow
    2430    end
    2531    object TabSheetAttendance: TTabSheet
    … …  
    2834    object TabSheetTerminals: TTabSheet
    2935      Caption = 'Terminals'
     36      OnShow = TabSheetTerminalsShow
    3037    end
    3138    object TabSheetHolidays: TTabSheet
    … …  
    5360    TabOrder = 2
    5461    Visible = False
     62    object ToolButton1: TToolButton
     63      Left = 1
     64      Top = 2
     65      Action = ASetting
     66    end
    5567  end
    5668  object MainMenu1: TMainMenu
    … …  
    5971    object MenuItemSystem: TMenuItem
    6072      Caption = 'System'
     73      object MenuItem1: TMenuItem
     74        Action = ASetting
     75      end
    6176      object MenuItem2: TMenuItem
    62         Action = ActionExit
     77        Action = AExit
    6378      end
    6479    end
    … …  
    6883    left = 472
    6984    top = 112
    70     object ActionExit: TAction
     85    object AExit: TAction
    7186      Caption = 'Exit'
     87      Hint = 'Close application'
     88      OnExecute = AExitExecute
     89    end
     90    object ASetting: TAction
     91      Caption = 'Setting'
     92      Hint = 'Show global setting'
     93      OnExecute = ASettingExecute
    7294    end
    7395  end
    … …  
    7597    left = 472
    7698    top = 168
     99    Bitmap = {
     100      4C69060000001000000010000000000000000000000000000000000000000000
     101      0000000000000000000000000000000000000000000000000000000000000000
     102      000000000000000000000000000000000000000000008C8CBBFF000088FF8C8C
     103      BBFF00000000000000000000000000000000000000008C8CBBFF000075FF8C8C
     104      BBFF000000000000000000000000000000008C8CBBFF000088FF619BFFFF0000
     105      86FF7979A8FF0000000000000000000000008C8CBBFF000075FF619BFFFF0000
     106      6EFF7979A8FF000000000000000000000000000088FF619BFFFF0057FFFF0054
     107      FFFF000082FF7979A8FF000000008C8CBBFF000075FF619BFFFF003AFFFF0035
     108      FFFF000068FFDCDCDCFF00000000000000008C8CBBFF000086FF0054FFFF0052
     109      FFFF004EFFFF00007CFF7979A8FF000075FF619BFFFF003AFFFF0035FFFF0000
     110      67FF626291FFB2B2B2FF0000000000000000000000007979A8FF000082FF004E
     111      FFFF004BFFFF0047FFFF000075FF619BFFFF003AFFFF0035FFFF000068FF6262
     112      91FFB2B2B2FFDCDCDCFF000000000000000000000000000000007979A8FF0000
     113      7CFF0047FFFF0042FFFF003EFFFF003AFFFF0035FFFF000068FF626291FFB2B2
     114      B2FFDCDCDCFF0000000000000000000000000000000000000000000000007979
     115      A8FF000075FF003EFFFF003AFFFF0035FFFF000068FF626291FFB2B2B2FFDCDC
     116      DCFF0000000000000000000000000000000000000000000000008C8CBBFF0000
     117      75FF619BFFFF003AFFFF0035FFFF0030FFFF002BFFFF000061FF7979A8FF0000
     118      000000000000000000000000000000000000000000008C8CBBFF000075FF619B
     119      FFFF003AFFFF0035FFFF000067FF002CFFFF0027FFFF0023FFFF000059FF7979
     120      A8FF000000000000000000000000000000008C8CBBFF000075FF619BFFFF003A
     121      FFFF0035FFFF000067FF626291FF000061FF0023FFFF001FFFFF001BFFFF0000
     122      54FF7979A8FF000000000000000000000000000072FF619BFFFF003AFFFF0035
     123      FFFF000067FF626291FFB2B2B2FF7979A8FF000059FF001BFFFF0018FFFF0015
     124      FFFF000050FFDCDCDCFF00000000000000008C8CBBFF00006EFF0035FFFF0000
     125      68FF626291FFB2B2B2FFDCDCDCFF000000007979A8FF000054FF0015FFFF0000
     126      50FF626291FFB2B2B2FF0000000000000000000000007979A8FF000067FF6262
     127      91FFB2B2B2FFDCDCDCFF0000000000000000000000007979A8FF000050FF6262
     128      91FFB2B2B2FFDCDCDCFF00000000000000000000000000000000DCDCDCFFB2B2
     129      B2FFDCDCDCFF0000000000000000000000000000000000000000DCDCDCFFB2B2
     130      B2FFDCDCDCFF0000000000000000000000000000000000000000000000000000
     131      0000000000000000000000000000000000000000000000000000000000000000
     132      0000000000000000000000000000000000000000000000000000000000000000
     133      000070A970FF006400FF006200FF70A670FF0000000000000000000000000000
     134      0000000000000000000000000000000000000000000000000000000000000000
     135      0000006400FFECFFECFF8CFE8CFF006000FFD4D4D4FF00000000000000000000
     136      0000000000000000000000000000000000000000000000000000000000000000
     137      0000006400FF8CFE8CFF00E800FF005E00FFB2B2B2FF00000000000000000000
     138      0000000000000000000000000000000000000000000000000000000000000000
     139      0000006200FF8CFE8CFF00E500FF005C00FFB2B2B2FF00000000000000000000
     140      0000000000000000000000000000000000000000000000000000000000000000
     141      0000006000FF8CFE8CFF00E000FF005A00FFB2B2B2FF00000000000000000000
     142      000000000000000000000000000070A970FF006400FF006400FF006200FF0060
     143      00FF006000FF8CFE8CFF00DD00FF005800FF005600FF005400FF005300FF0050
     144      00FF709C70FF0000000000000000006400FFECFFECFF8CFE8CFF8CFE8CFF8CFE
     145      8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D000FF00CC00FF00C800FF00C4
     146      00FF004A00FFD4D4D4FF00000000006200FF8CFE8CFF00EA00FF00E600FF00E2
     147      00FF00DE00FF00DA00FF00D400FF00D000FF00CC00FF00C800FF00C400FF00C2
     148      00FF004800FFB2B2B2FF0000000070A670FF005E00FF005C00FF005A00FF0058
     149      00FF005600FF00D600FF00D000FF005000FF004E00FF004C00FF004A00FF004A
     150      00FF4E764EFFB2B2B2FF0000000000000000D4D4D4FFB2B2B2FFB2B2B2FFB2B2
     151      B2FF005400FF00D200FF00CE00FF004E00FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2
     152      B2FFB2B2B2FFD4D4D4FF00000000000000000000000000000000000000000000
     153      0000005300FF00CE00FF00CA00FF004C00FFB2B2B2FF00000000000000000000
     154      0000000000000000000000000000000000000000000000000000000000000000
     155      0000005000FF00CA00FF00C600FF004A00FFB2B2B2FF00000000000000000000
     156      0000000000000000000000000000000000000000000000000000000000000000
     157      0000004E00FF00C800FF00C400FF004800FFB2B2B2FF00000000000000000000
     158      0000000000000000000000000000000000000000000000000000000000000000
     159      0000709B70FF004A00FF004800FF4E764EFFB2B2B2FF00000000000000000000
     160      0000000000000000000000000000000000000000000000000000000000000000
     161      000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4D4FF00000000000000000000
     162      0000000000000000000000000000000000000000000000000000000000000000
     163      0000000000000000000000000000000000000000000000000000000000000000
     164      0000000000000000000000000000000000000000000000000000000000000000
     165      0000000000000000000000000000000000000000000000000000000000000000
     166      0000000000000000000000000000000000000000000000000000000000000000
     167      00000000000000000000D69562FFD69562FFD69562FFD1925FFFD1925FFFD192
     168      5FFFD1925FFFD1925FFF875735FF000000000000000000000000000000000000
     169      00000000000000000000D69562FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5
     170      F5FFF5F5F5FFF5F5F5FF875735FF000000000000000000000000000000000000
     171      00000000000000000000D69562FFFAFAFAFFFFEDE0FFFFEDE0FFFFEDE0FFFFED
     172      E0FFFFEDE0FFFFFFFFFF875735FF000000000000000000000000000000000000
     173      00000000000000000000EED4BFFFFFFFFFFFE0D5BFFFE4D9C3FFCCB27EFFFFED
     174      E0FFFFEDE0FFFFFFFFFF875735FF00000000D69562FFD69562FFD69562FFD192
     175      5FFFD1925FFFD1925FFFD1925FFFD1925FFF875735FFFFF7F2FFFFECDEFFFFEC
     176      DEFFFFECDDFFFFFFFFFF875735FF00000000D69562FFF5F5F5FFF5F5F5FFF5F5
     177      F5FFF5F5F5FFF5F5F5FFF5F5F5FFF5F5F5FF875735FFE4D9C3FFCCB27EFFD5BC
     178      87FFDDC490FFFFFFFFFF875735FF00000000D69562FFFAFAFAFFFFEDE0FFFFED
     179      E0FFFFEDE0FFFFEDE0FFFFEDE0FFFFFFFFFF875735FFFFF6EFFFFFE8D7FFFFE8
     180      D7FFFFE8D7FFFFFFFFFF875735FF00000000D49360FFFFFFFFFFB2955FFFBB9F
     181      69FFCCB27EFFFFEDE0FFFFEDE0FFFFFFFFFF875735FFE4D9C3FFCCB27EFFD5BC
     182      87FFDDC490FFFFFFFFFF875735FF00000000D0905EFFFFFFFFFFFFECDEFFFFEC
     183      DEFFFFECDEFFFFECDEFFFFECDDFFFFFFFFFF875735FFFFF6EFFFFFE8D7FFFFE8
     184      D7FFFFE8D7FFFFFFFFFF875735FF00000000CC8D5CFFFFFFFFFFB2955FFFBB9F
     185      69FFCCB27EFFD5BC87FFDDC490FFFFFFFFFF875735FFFFFFFFFFFFFFFFFFFFFF
     186      FFFFFFFFFFFFFFFFFFFF875735FF00000000C18556FFFFFFFFFFFFE8D7FFFFE8
     187      D7FFFFE8D7FFFFE8D7FFFFE8D7FFFFFFFFFF875735FFCFBCAEFF875735FF8757
     188      35FF875735FF875735FF875735FF00000000C18556FFFFFFFFFFB2955FFFBB9F
     189      69FFCCB27EFFD5BC87FFDDC490FFFFFFFFFF875735FF00000000000000000000
     190      000000000000000000000000000000000000C18556FFFFFFFFFFFFE8D7FFFFE8
     191      D7FFFFE8D7FFFFE8D7FFFFE8D7FFFFFFFFFF875735FF00000000000000000000
     192      000000000000000000000000000000000000C18556FFFFFFFFFFFFFFFFFFFFFF
     193      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF875735FF00000000000000000000
     194      000000000000000000000000000000000000875735FF875735FF875735FF8757
     195      35FF875735FF875735FF875735FF875735FF875735FF00000000000000000000
     196      0000000000000000000000000000000000000000000000000000000000000000
     197      0000000000000000000000000000000000000000000000000000000000000000
     198      000000000000000000000000000000000000000000FF000000FF000000FF0000
     199      00FF000000FF000000FF000000FF000000FF0000000000000000000000000000
     200      000000000000000000000000000000000000000000FF000000FFFFFFFFFFFFFF
     201      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
     202      000000000000000000000000000000000000000000FF008484FF000000FFFFFF
     203      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
     204      0000840000FF000000000000000000000000000000FF008484FF008484FF0000
     205      00FFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000000000000000008400
     206      00FF840000FF000000000000000000000000000000FF008484FF008484FF0084
     207      84FF000000FFFFFFFFFFFFFFFFFF000000FF0000000000000000840000FF8400
     208      00FF840000FF840000FF840000FF00000000000000FF008484FF008484FF0084
     209      84FF000000FFFFFFFFFFFFFFFFFF000000FF00000000840000FF840000FF8400
     210      00FF840000FF840000FF840000FF00000000000000FF008484FF008484FF0084
     211      84FF000000FFFFFFFFFFFFFFFFFF000000FF0000000000000000840000FF8400
     212      00FF840000FF840000FF840000FF00000000000000FF008484FF008484FF0084
     213      84FF000000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000008400
     214      00FF840000FF000000000000000000000000000000FF008484FF008484FF0000
     215      00FF000000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
     216      0000840000FF000000000000000000000000000000FF008484FF008484FF0084
     217      84FF000000FFFFFFFFFFFFFFFFFF000000FF0000000000000000000000000000
     218      0000000000000000000000000000000000FF000000FF008484FF008484FF0084
     219      84FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
     220      00FF0000000000000000000000000000000000000000000000FF008484FF0084
     221      84FF000000FF0000000000000000000000000000000000000000000000000000
     222      0000000000000000000000000000000000000000000000000000000000FF0084
     223      84FF000000FF0000000000000000000000000000000000000000000000000000
     224      0000000000000000000000000000000000000000000000000000000000000000
     225      00FF000000FF0000000000000000000000000000000000000000000000000000
     226      0000000000000000000000000000000000000000000000000000000000000000
     227      0000000000FF0000000000000000000000000000000000000000000000000000
     228      0000000000000000000000000000A37B48FFA37B48FFA27A47FFA27946FFA178
     229      45FFA07744FFA07643FF9F7542FF9E7441FF9E7340FF9D723FFF9C713EFF9C70
     230      3DFF9B6F3CFF9A6E3BFF9A6D3AFFA37B48FFBEA27FFFBEA17EFFBDA17DFFBDA0
     231      7CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D79FFBA9C78FFB99B78FFB99A
     232      77FFB89A76FFB89975FF996C39FFA27A47FFFFFFFFFFFFFFFFFFFEFEFEFFFEFE
     233      FEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFAF9FFFAFAF9FFFAF9
     234      F8FFF9F9F7FFF9F8F7FF986B37FFA17946FFFFFFFFFF878787FF5D5D5DFFA0A0
     235      A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F8
     236      F7FFF8F8F7FFF8F7F6FF976A36FFA17844FFFEFEFEFF5F5F5FFF949494FF5353
     237      53FFFCFCFBFF7B7B7BFF797979FF757575FF727272FF6E6E6EFF6A6A69FF6666
     238      66FF626262FFF7F7F5FF966935FFA07643FFFEFDFDFF8C8C8CFF525252FFA4A4
     239      A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8F7FFF8F8F6FFF8F7
     240      F6FFF7F7F5FFF7F6F4FF966734FF9F7542FFFDFDFCFFFCFCFCFFFCFCFBFFFBFB
     241      FAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F6
     242      F5FFF7F6F4FFF6F5F4FF956633FF9E7441FFFCFCFCFFB5B5B5FF848484FFBEBD
     243      BDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8F6FFF8F7F5FFF7F6F5FFF7F6
     244      F4FFF6F5F3FFF6F5F3FF946531FF9D7340FFFCFBFBFF818181FFC4C4C4FF8F8F
     245      8FFFFAF9F8FF7B7B7AFF797979FF757574FF727171FF6D6D6DFF696969FF6666
     246      65FF626261FFF5F4F2FF936430FF9D723EFFFBFBFAFF9F9F9EFF7F7F7FFFAEAE
     247      ADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F4
     248      F3FFF5F4F2FFF4F3F1FF92622FFF9C703DFFFAFAF9FFFAF9F9FFF9F9F8FFF9F8
     249      F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5F4FFF6F5F3FFF5F4F3FFF5F4
     250      F2FFF4F3F1FFF4F3F0FF92612EFF9B6F3CFFFAF9F8FFBEBEBDFF929292FFBCBC
     251      BBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5F3FFF5F4F2FFF5F4F2FFF4F3
     252      F1FFF4F2F0FFF3F2F0FF91602DFF9A6E3BFFF9F9F8FF7C7C7CFFC4C4C4FF8787
     253      87FFF7F6F5FF7A7A7AFF787878FF747474FF717170FF6D6D6CFF696968FF6565
     254      65FF616161FFF2F1EFFF905F2BFF996D3AFFF9F8F7FF959594FF878787FF9B9A
     255      9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3F1FFF4F3F1FFF3F2F0FFF3F2
     256      EFFFF2F1EFFFF2F1EEFF8F5E2AFF996C38FFF8F7F6FFF8F7F5FFF7F6F5FFF6F6
     257      F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1
     258      EFFFF2F0EEFFF1F0EDFF8E5D29FF986B37FF976A36FF966935FF966734FF9566
     259      33FF946532FF946531FF936430FF92622FFF92612EFF91602DFF90602CFF905F
     260      2BFF8F5D2AFF8E5C29FF8D5B28FF000000000000000000000000000000000000
     261      0000000000000000000000000000000000000000000000000000000000000000
     262      0000000000000000000000000000000000000000000000000000000000000000
     263      0000000000000000000000000000000000000000000000000000000000000000
     264      0000000000000000000000000000000000000000000000000000000000000000
     265      0000000000000000000000000000000000000000000000000000000000000000
     266      0000000000000000000000000000000000000000000000000000339966FF0000
     267      00000000000066CC99FF009933FF009933FF009933FF339966FF000000000000
     268      0000000000000000000000000000000000000000000000000000009933FF3399
     269      66FF009933FF009933FF009933FF009933FF009933FF339966FF339966FF0000
     270      0000000000000000000000000000000000000000000000000000009933FF0099
     271      33FF009933FF009933FF66CC99FF000000000000000066CC99FF009933FF66CC
     272      99FF000000000000000000000000000000000000000000000000009933FF0099
     273      33FF009933FF339966FF0000000000000000000000000000000066CC99FF0099
     274      33FF000000000000000000000000000000000000000000000000009933FF0099
     275      33FF009933FF009933FF339966FF000000000000000000000000000000000000
     276      0000000000000000000000000000000000000000000000000000000000000000
     277      0000000000000000000000000000000000000000000000000000000000000000
     278      0000000000000000000000000000000000000000000000000000000000000000
     279      0000000000000000000000000000339966FF009933FF009933FF009933FF0099
     280      33FF000000000000000000000000000000000000000000000000009933FF66CC
     281      99FF00000000000000000000000000000000339966FF009933FF009933FF0099
     282      33FF00000000000000000000000000000000000000000000000066CC99FF0099
     283      33FF66CC99FF000000000000000066CC99FF009933FF009933FF009933FF0099
     284      33FF000000000000000000000000000000000000000000000000000000003399
     285      66FF339966FF009933FF009933FF009933FF009933FF009933FF339966FF0099
     286      33FF000000000000000000000000000000000000000000000000000000000000
     287      0000339966FF009933FF009933FF009933FF66CC99FF00000000000000003399
     288      66FF000000000000000000000000000000000000000000000000000000000000
     289      0000000000000000000000000000000000000000000000000000000000000000
     290      0000000000000000000000000000000000000000000000000000000000000000
     291      0000000000000000000000000000000000000000000000000000000000000000
     292      0000000000000000000000000000
     293    }
    77294  end
    78295end

  • trunk/Forms/UFormMain.lrt

    r5 r6  
    66TFORMMAIN.TABSHEETOPERATIONS.CAPTION=Operations
    77TFORMMAIN.MENUITEMSYSTEM.CAPTION=System
    8 TFORMMAIN.ACTIONEXIT.CAPTION=Exit
     8TFORMMAIN.AEXIT.CAPTION=Exit
     9TFORMMAIN.AEXIT.HINT=Close application
     10TFORMMAIN.ASETTING.CAPTION=Setting
     11TFORMMAIN.ASETTING.HINT=Show global setting

  • trunk/Forms/UFormMain.pas

    r5 r6  
    1414
    1515  TFormMain = class(TForm)
    16     ActionExit: TAction;
     16    ASetting: TAction;
     17    AExit: TAction;
    1718    ActionList1: TActionList;
    1819    ImageList1: TImageList;
    1920    MainMenu1: TMainMenu;
     21    MenuItem1: TMenuItem;
    2022    MenuItemSystem: TMenuItem;
    2123    MenuItem2: TMenuItem;
    … …  
    2830    TabSheetTerminals: TTabSheet;
    2931    ToolBar1: TToolBar;
     32    ToolButton1: TToolButton;
     33    procedure AExitExecute(Sender: TObject);
     34    procedure ASettingExecute(Sender: TObject);
    3035    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     36    procedure FormCreate(Sender: TObject);
     37    procedure FormDestroy(Sender: TObject);
    3138    procedure FormShow(Sender: TObject);
     39    procedure TabSheetTerminalsShow(Sender: TObject);
     40    procedure TabSheetUsersHide(Sender: TObject);
     41    procedure TabSheetUsersShow(Sender: TObject);
    3242  private
    3343    { private declarations }
    … …  
    4252
    4353uses
    44   UCore;
     54  UCore, UFormList, UFormSetting;
    4555
    4656{$R *.lfm}
     57
     58resourcestring
     59  SPersonalId = 'Personal Id';
     60  SFirstName = 'First name';
     61  SSecondName = 'Second name';
     62  SEnabled = 'Enabled';
     63  SAddress = 'Address';
     64  SPort = 'Port';
     65  SType = 'Type';
     66  SName = 'Name';
     67  SFingerPrint = 'Fingerprint';
     68  SCardCode = 'Card code';
     69  SNote = 'Note';
     70  SLogin = 'Login';
     71  SPassword = 'Password';
    4772
    4873{ TFormMain }
    … …  
    5075procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    5176begin
     77end;
     78
     79procedure TFormMain.FormCreate(Sender: TObject);
     80begin
     81  Core.Init;
     82  Core.PersistentForm.Load(Self);
     83end;
     84
     85procedure TFormMain.FormDestroy(Sender: TObject);
     86begin
     87  Core.PersistentForm.Save(Self);
    5288  Core.Done;
     89end;
     90
     91procedure TFormMain.AExitExecute(Sender: TObject);
     92begin
     93  Exit;
     94end;
     95
     96procedure TFormMain.ASettingExecute(Sender: TObject);
     97begin
     98  FormSetting.ShowModal;
    5399end;
    54100
    55101procedure TFormMain.FormShow(Sender: TObject);
    56102begin
    57   Core.Init;
     103end;
     104
     105procedure TFormMain.TabSheetTerminalsShow(Sender: TObject);
     106begin
     107  Core.FormTerminals := TFormList.Create(Self);
     108  with TFormList(Core.FormTerminals) do begin
     109    ManualDock(TTabSheet(Sender));
     110    Align := alClient;
     111    Show;
     112    with Columns do begin
     113      AddItem(SName, 'Name', True, 80);
     114      AddItem(SEnabled, 'Enabled', True, 80);
     115      AddItem(SAddress, 'Address', True, 80);
     116      AddItem(SPort, 'Port', True, 80);
     117      AddItem(SType, 'Type', True, 80);
     118      AddItem(SNote, 'Note', True, 80);
     119    end;
     120    Table := 'Terminal';
     121    UpdateData;
     122  end;
     123end;
     124
     125procedure TFormMain.TabSheetUsersHide(Sender: TObject);
     126begin
     127  FreeAndNil(Core.FormUsers);
     128end;
     129
     130procedure TFormMain.TabSheetUsersShow(Sender: TObject);
     131begin
     132  Core.FormUsers := TFormList.Create(Self);
     133  with TFormList(Core.FormUsers) do begin
     134    ManualDock(TTabSheet(Sender));
     135    Align := alClient;
     136    Show;
     137    with Columns do begin
     138      AddItem(SEnabled, 'Enabled', True, 80);
     139      AddItem(SPersonalId, 'PersonalId', True, 80);
     140      AddItem(SLogin, 'Login', False, 80);
     141      AddItem(SPassword, 'Password', False, 80);
     142      AddItem(SFirstName, 'FirstName', True, 80);
     143      AddItem(SSecondName, 'SecondName', True, 80);
     144      AddItem(SCardCode, 'CardCode', True, 80);
     145      AddItem(SFingerPrint, 'FingerPrint', True, 80);
     146      AddItem(SNote, 'Note', False, 80);
     147    end;
     148    Table := 'User';
     149    UpdateData;
     150  end;
    58151end;
    59152

  • trunk/Forms/UFormSetting.lfm

    r5 r6  
    11object FormSetting: TFormSetting
    2   Left = 476
     2  Left = 475
    33  Height = 367
    4   Top = 218
     4  Top = 142
    55  Width = 532
    66  Caption = 'Setting'
     7  OnClose = FormClose
     8  OnCreate = FormCreate
     9  OnDestroy = FormDestroy
     10  OnShow = FormShow
    711  LCLVersion = '1.1'
    812end

  • trunk/Forms/UFormSetting.pas

    r5 r6  
    1313
    1414  TFormSetting = class(TForm)
     15    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     16    procedure FormCreate(Sender: TObject);
     17    procedure FormDestroy(Sender: TObject);
     18    procedure FormShow(Sender: TObject);
    1519  private
    1620    { private declarations }
    … …  
    2630{$R *.lfm}
    2731
     32uses
     33  UCore;
     34
     35{ TFormSetting }
     36
     37procedure TFormSetting.FormClose(Sender: TObject; var CloseAction: TCloseAction
     38  );
     39begin
     40end;
     41
     42procedure TFormSetting.FormCreate(Sender: TObject);
     43begin
     44  Core.PersistentForm.Load(Self);
     45end;
     46
     47procedure TFormSetting.FormDestroy(Sender: TObject);
     48begin
     49  Core.PersistentForm.Save(Self);
     50end;
     51
     52procedure TFormSetting.FormShow(Sender: TObject);
     53begin
     54end;
     55
    2856end.
    2957
Note: See TracChangeset for help on using the changeset viewer.