Changeset 6


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
Files:
39 added
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Dochazka.lpi

    r5 r6  
    7272      </local>
    7373    </RunParams>
    74     <RequiredPackages Count="3">
     74    <RequiredPackages Count="4">
    7575      <Item1>
    76         <PackageName Value="Common"/>
     76        <PackageName Value="CoolTranslator"/>
     77        <DefaultFilename Value="Packages/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
    7778      </Item1>
    7879      <Item2>
     80        <PackageName Value="Common"/>
     81        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
     82      </Item2>
     83      <Item3>
    7984        <PackageName Value="CoolWeb"/>
    8085        <DefaultFilename Value="Packages/CoolWeb/CoolWeb.lpk" Prefer="True"/>
    81       </Item2>
    82       <Item3>
     86      </Item3>
     87      <Item4>
    8388        <PackageName Value="LCL"/>
    84       </Item3>
     89      </Item4>
    8590    </RequiredPackages>
    86     <Units Count="6">
     91    <Units Count="8">
    8792      <Unit0>
    8893        <Filename Value="Dochazka.lpr"/>
    … …  
    123128        <UnitName Value="UFormSetting"/>
    124129      </Unit5>
     130      <Unit6>
     131        <Filename Value="Forms/UFormList.pas"/>
     132        <IsPartOfProject Value="True"/>
     133        <ComponentName Value="FormList"/>
     134        <HasResources Value="True"/>
     135        <ResourceBaseClass Value="Form"/>
     136        <UnitName Value="UFormList"/>
     137      </Unit6>
     138      <Unit7>
     139        <Filename Value="Common/UPersistentForm.pas"/>
     140        <IsPartOfProject Value="True"/>
     141        <UnitName Value="UPersistentForm"/>
     142      </Unit7>
    125143    </Units>
    126144  </ProjectOptions>
    … …  
    132150    <SearchPaths>
    133151      <IncludeFiles Value="$(ProjOutDir)"/>
    134       <OtherUnitFiles Value="Forms"/>
     152      <OtherUnitFiles Value="Forms;Common"/>
    135153      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    136154    </SearchPaths>

  • trunk/Dochazka.lpr

    r5 r6  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UCore, UAttendance, CoolWeb, Common, UFormSetting, SysUtils
     10  Forms, UFormMain, UCore, UAttendance, UPersistentForm, CoolWeb, Common,
     11  CoolTranslator, UFormSetting, SysUtils, UFormList
    1112  { you can add units after this };
    1213
    … …  
    3031  Application.CreateForm(TFormMain, FormMain);
    3132  Application.CreateForm(TFormSetting, FormSetting);
     33  Application.CreateForm(TFormList, FormList);
    3234  Application.Run;
    3335end.

  • 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

  • trunk/Languages/Dochazka.cs.po

    r5 r6  
    5656msgstr "Nastavení"
    5757
    58 #: tformmain.actionexit.caption
    59 msgctxt "tformmain.actionexit.caption"
     58#: tformlist.aadd.caption
     59msgid "Add"
     60msgstr "Přidat"
     61
     62#: tformlist.aadd.hint
     63msgid "Add new item"
     64msgstr "Přidat novou poloÅŸku"
     65
     66#: tformlist.adelete.caption
     67msgid "Delete"
     68msgstr "Odstranit"
     69
     70#: tformlist.adelete.hint
     71msgid "Delete item"
     72msgstr "Odstranit poloÅŸku"
     73
     74#: tformlist.aduplicate.caption
     75msgid "Duplicate"
     76msgstr "Kopírovat"
     77
     78#: tformlist.aduplicate.hint
     79msgid "Duplicate item"
     80msgstr "Vytvořit kopii"
     81
     82#: tformlist.amodify.caption
     83msgid "Modify"
     84msgstr "Upravit"
     85
     86#: tformlist.amodify.hint
     87msgid "Modify item"
     88msgstr "Upravit poloÅŸku"
     89
     90#: tformlist.areload.caption
     91msgid "Reload"
     92msgstr "Obnovit"
     93
     94#: tformlist.areload.hint
     95msgid "Reload data"
     96msgstr "Obnovit data"
     97
     98#: tformlist.caption
     99msgid "List"
     100msgstr "Seznam"
     101
     102#: tformmain.aexit.caption
     103msgctxt "tformmain.aexit.caption"
    60104msgid "Exit"
    61105msgstr "Ukončit"
     106
     107#: tformmain.aexit.hint
     108msgid "Close application"
     109msgstr ""
     110
     111#: tformmain.asetting.caption
     112msgctxt "tformmain.asetting.caption"
     113msgid "Setting"
     114msgstr "Nastavení"
     115
     116#: tformmain.asetting.hint
     117msgid "Show global setting"
     118msgstr ""
    62119
    63120#: tformmain.caption
    … …  
    101158msgstr "Nastavení"
    102159
     160#: uformmain.saddress
     161msgid "Address"
     162msgstr ""
     163
     164#: uformmain.scardcode
     165msgid "Card code"
     166msgstr ""
     167
     168#: uformmain.senabled
     169msgid "Enabled"
     170msgstr ""
     171
     172#: uformmain.sfingerprint
     173msgid "Fingerprint"
     174msgstr ""
     175
     176#: uformmain.sfirstname
     177msgid "First name"
     178msgstr "Jméno"
     179
     180#: uformmain.slogin
     181msgid "Login"
     182msgstr ""
     183
     184#: uformmain.sname
     185msgid "Name"
     186msgstr ""
     187
     188#: uformmain.snote
     189msgid "Note"
     190msgstr ""
     191
     192#: uformmain.spassword
     193msgid "Password"
     194msgstr ""
     195
     196#: uformmain.spersonalid
     197msgid "Personal Id"
     198msgstr "Osobní číslo"
     199
     200#: uformmain.sport
     201msgid "Port"
     202msgstr ""
     203
     204#: uformmain.ssecondname
     205msgid "Second name"
     206msgstr "Příjmení"
     207
     208#: uformmain.stype
     209msgid "Type"
     210msgstr ""
     211

  • trunk/Languages/Dochazka.po

    r5 r6  
    4747msgstr ""
    4848
    49 #: tformmain.actionexit.caption
    50 msgctxt "TFORMMAIN.ACTIONEXIT.CAPTION"
     49#: tformlist.aadd.caption
     50msgid "Add"
     51msgstr ""
     52
     53#: tformlist.aadd.hint
     54msgid "Add new item"
     55msgstr ""
     56
     57#: tformlist.adelete.caption
     58msgid "Delete"
     59msgstr ""
     60
     61#: tformlist.adelete.hint
     62msgid "Delete item"
     63msgstr ""
     64
     65#: tformlist.aduplicate.caption
     66msgid "Duplicate"
     67msgstr ""
     68
     69#: tformlist.aduplicate.hint
     70msgid "Duplicate item"
     71msgstr ""
     72
     73#: tformlist.amodify.caption
     74msgid "Modify"
     75msgstr ""
     76
     77#: tformlist.amodify.hint
     78msgid "Modify item"
     79msgstr ""
     80
     81#: tformlist.areload.caption
     82msgid "Reload"
     83msgstr ""
     84
     85#: tformlist.areload.hint
     86msgid "Reload data"
     87msgstr ""
     88
     89#: tformlist.caption
     90msgid "List"
     91msgstr ""
     92
     93#: tformmain.aexit.caption
     94msgctxt "TFORMMAIN.AEXIT.CAPTION"
    5195msgid "Exit"
     96msgstr ""
     97
     98#: tformmain.aexit.hint
     99msgid "Close application"
     100msgstr ""
     101
     102#: tformmain.asetting.caption
     103msgctxt "TFORMMAIN.ASETTING.CAPTION"
     104msgid "Setting"
     105msgstr ""
     106
     107#: tformmain.asetting.hint
     108msgid "Show global setting"
    52109msgstr ""
    53110
    … …  
    92149msgstr ""
    93150
     151#: uformmain.saddress
     152msgid "Address"
     153msgstr ""
     154
     155#: uformmain.scardcode
     156msgid "Card code"
     157msgstr ""
     158
     159#: uformmain.senabled
     160msgid "Enabled"
     161msgstr ""
     162
     163#: uformmain.sfingerprint
     164msgid "Fingerprint"
     165msgstr ""
     166
     167#: uformmain.sfirstname
     168msgid "First name"
     169msgstr ""
     170
     171#: uformmain.slogin
     172msgid "Login"
     173msgstr ""
     174
     175#: uformmain.sname
     176msgid "Name"
     177msgstr ""
     178
     179#: uformmain.snote
     180msgid "Note"
     181msgstr ""
     182
     183#: uformmain.spassword
     184msgid "Password"
     185msgstr ""
     186
     187#: uformmain.spersonalid
     188msgid "Personal Id"
     189msgstr ""
     190
     191#: uformmain.sport
     192msgid "Port"
     193msgstr ""
     194
     195#: uformmain.ssecondname
     196msgid "Second name"
     197msgstr ""
     198
     199#: uformmain.stype
     200msgid "Type"
     201msgstr ""
     202

  • trunk/UCore.lfm

    r5 r6  
    11object Core: TCore
    22  OnCreate = DataModuleCreate
     3  OnDestroy = DataModuleDestroy
    34  OldCreateOrder = False
    45  Height = 323
    … …  
    2930    top = 71
    3031  end
     32  object CoolTranslator1: TCoolTranslator
     33    POFilesFolder = 'Languages'
     34    left = 88
     35    top = 128
     36  end
    3137end

  • trunk/UCore.pas

    r5 r6  
    66
    77uses
    8   Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, UApplicationInfo;
     8  Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, Forms,
     9  UApplicationInfo, UCoolTranslator, UPersistentForm;
    910
    1011type
    … …  
    1415  TCore = class(TDataModule)
    1516    ApplicationInfo1: TApplicationInfo;
     17    CoolTranslator1: TCoolTranslator;
    1618    Database: TSqlDatabase;
    1719    procedure DataModuleCreate(Sender: TObject);
     20    procedure DataModuleDestroy(Sender: TObject);
    1821  private
    1922  public
     23    FormUsers: TForm;
     24    FormTerminals: TForm;
     25    PersistentForm: TPersistentForm;
    2026    procedure Init;
    2127    procedure Done;
    … …  
    3339{$R *.lfm}
    3440
     41
    3542{ TCore }
    3643
    3744procedure TCore.DataModuleCreate(Sender: TObject);
    3845begin
     46  PersistentForm := TPersistentForm.Create;
     47  PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
     48    ApplicationInfo1.RegistryKey + '\Forms');
     49end;
     50
     51procedure TCore.DataModuleDestroy(Sender: TObject);
     52begin
     53  FreeAndNil(PersistentForm);
    3954end;
    4055
    … …  
    4257begin
    4358  LoadFromRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
     59//  LoadFromRegistry(RegContext(HKEY_CURRENT_USER, '\Software\Chronosoft\Dochazka'));
     60
    4461  Connect;
    4562end;
    … …  
    7289  try
    7390    RootKey := Context.RootKey;
    74     OpenKey(Context.Key, True);
     91    OpenKey('\Software\Chronosoft\Dochazka', True);
     92    //OpenKey(Context.Key, True);
    7593    Database.HostName := ReadStringWithDefault('HostName', 'localhost');
    7694    Database.Database := ReadStringWithDefault('Schema', 'dochazka');
    7795    Database.UserName := ReadStringWithDefault('UserName', 'dochazka');
    7896    Database.Password := ReadStringWithDefault('Password', '');
     97    CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('Language', ''));
    7998  finally
    8099    Free;
    … …  
    92111    WriteString('UserName', Database.UserName);
    93112    WriteString('Password', Database.Password);
     113    WriteString('Language', CoolTranslator1.Language.Code);
    94114  finally
    95115    Free;
Note: See TracChangeset for help on using the changeset viewer.