Changeset 6 for trunk/UFormMain.lfm


Ignore:
Timestamp:
Mar 14, 2013, 9:24:41 PM (11 years ago)
Author:
chronos
Message:
  • Přidáno: Okno s nastavením parametrů komunikace.
  • Přidáno: Pamatování si nastavení voleb.
  • Přidáno: Nyní lze stahovat nové operace, výpis dle časového rozmezí a měsíční výpisy.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UFormMain.lfm

    r5 r6  
    11object FormMain: TFormMain
    2   Left = 447
     2  Left = 364
    33  Height = 368
    4   Top = 247
     4  Top = 183
    55  Width = 510
    66  Caption = 'FioInfo'
    77  ClientHeight = 368
    88  ClientWidth = 510
     9  OnClose = FormClose
     10  OnCreate = FormCreate
    911  LCLVersion = '1.1'
    10   object LabeledEdit1: TLabeledEdit
    11     Left = 8
    12     Height = 27
    13     Top = 25
    14     Width = 488
    15     EditLabel.AnchorSideLeft.Control = LabeledEdit1
    16     EditLabel.AnchorSideRight.Control = LabeledEdit1
    17     EditLabel.AnchorSideRight.Side = asrBottom
    18     EditLabel.AnchorSideBottom.Control = LabeledEdit1
    19     EditLabel.Left = 8
    20     EditLabel.Height = 17
    21     EditLabel.Top = 5
    22     EditLabel.Width = 488
    23     EditLabel.Caption = 'Token'
    24     EditLabel.ParentColor = False
     12  object Button2: TButton
     13    Left = 376
     14    Height = 25
     15    Top = 336
     16    Width = 112
     17    Action = ASettings
     18    Anchors = [akTop, akBottom]
    2519    TabOrder = 0
    2620  end
    27   object Button1: TButton
     21  object GroupBox1: TGroupBox
     22    Left = 8
     23    Height = 57
     24    Top = 8
     25    Width = 489
     26    Anchors = [akTop, akLeft, akRight]
     27    Caption = 'Nové platby od posledního staÅŸení'
     28    ClientHeight = 38
     29    ClientWidth = 485
     30    TabOrder = 1
     31    object Button1: TButton
     32      Left = 358
     33      Height = 25
     34      Top = 7
     35      Width = 112
     36      Action = ADownloadNew
     37      Caption = 'Stáhnout'
     38      TabOrder = 0
     39    end
     40  end
     41  object GroupBox2: TGroupBox
     42    Left = 8
     43    Height = 72
     44    Top = 80
     45    Width = 489
     46    Anchors = [akTop, akLeft, akRight]
     47    Caption = 'Transakce v zadaném časovém rozpětí'
     48    ClientHeight = 53
     49    ClientWidth = 485
     50    TabOrder = 2
     51    object Button3: TButton
     52      Left = 358
     53      Height = 25
     54      Top = 7
     55      Width = 112
     56      Action = ADownloadInterval
     57      Caption = 'Stáhnout'
     58      TabOrder = 0
     59    end
     60    object DateEditStart: TDateEdit
     61      Left = 54
     62      Height = 27
     63      Top = 5
     64      Width = 80
     65      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
     66      OKCaption = 'OK'
     67      CancelCaption = 'Cancel'
     68      DateOrder = doNone
     69      ButtonWidth = 23
     70      CharCase = ecNormal
     71      NumGlyphs = 1
     72      MaxLength = 0
     73      TabOrder = 1
     74    end
     75    object DateEditTo: TDateEdit
     76      Left = 230
     77      Height = 27
     78      Top = 9
     79      Width = 80
     80      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
     81      OKCaption = 'OK'
     82      CancelCaption = 'Cancel'
     83      DateOrder = doNone
     84      ButtonWidth = 23
     85      CharCase = ecNormal
     86      NumGlyphs = 1
     87      MaxLength = 0
     88      TabOrder = 2
     89    end
     90    object Label1: TLabel
     91      Left = 22
     92      Height = 17
     93      Top = 9
     94      Width = 22
     95      Caption = 'Od:'
     96      ParentColor = False
     97    end
     98    object Label4: TLabel
     99      Left = 174
     100      Height = 17
     101      Top = 15
     102      Width = 22
     103      Caption = 'Do:'
     104      ParentColor = False
     105    end
     106  end
     107  object GroupBox3: TGroupBox
     108    Left = 8
     109    Height = 65
     110    Top = 168
     111    Width = 489
     112    Caption = 'Měsíční vÃœpis'
     113    ClientHeight = 46
     114    ClientWidth = 485
     115    TabOrder = 3
     116    object Button4: TButton
     117      Left = 358
     118      Height = 25
     119      Top = 7
     120      Width = 112
     121      Action = ADownloadMonthly
     122      Caption = 'Stáhnout'
     123      TabOrder = 0
     124    end
     125    object SpinEditYear: TSpinEdit
     126      Left = 54
     127      Height = 27
     128      Top = 7
     129      Width = 96
     130      MaxValue = 9999
     131      MinValue = 1000
     132      TabOrder = 1
     133      Value = 2000
     134    end
     135    object SpinEditId: TSpinEdit
     136      Left = 230
     137      Height = 27
     138      Top = 7
     139      Width = 96
     140      MaxValue = 12
     141      MinValue = 1
     142      TabOrder = 2
     143      Value = 1
     144    end
     145    object Label2: TLabel
     146      Left = 20
     147      Height = 17
     148      Top = 15
     149      Width = 28
     150      Caption = 'Rok:'
     151      ParentColor = False
     152    end
     153    object Label3: TLabel
     154      Left = 174
     155      Height = 17
     156      Top = 15
     157      Width = 36
     158      Caption = 'Číslo:'
     159      ParentColor = False
     160    end
     161  end
     162  object Button5: TButton
    28163    Left = 16
    29164    Height = 25
    30     Top = 344
     165    Top = 336
    31166    Width = 112
    32     Action = ADownload
    33     TabOrder = 1
    34   end
    35   object Memo1: TMemo
    36     Left = 16
    37     Height = 271
    38     Top = 56
    39     Width = 453
    40     TabOrder = 2
     167    Action = AExit
     168    Anchors = [akLeft, akBottom]
     169    TabOrder = 4
    41170  end
    42171  object TrayIcon1: TTrayIcon
    … …  
    43294458    Hint = 'FioInfo'
    43304459    Visible = True
    4331     left = 216
    4332     top = 176
     4460    left = 224
     4461    top = 296
    43334462  end
    43344463  object PopupMenuTray: TPopupMenu
    43354464    Images = ImageList1
    4336     left = 152
    4337     top = 93
     4465    left = 224
     4466    top = 240
    43384467    object MenuItem1: TMenuItem
    43394468      Action = AShow
    … …  
    43464475  object ActionList1: TActionList
    43474476    Images = ImageList1
    4348     left = 264
    4349     top = 93
     4477    left = 296
     4478    top = 240
    43504479    object AShow: TAction
    43514480      Caption = 'Ukázat'
    … …  
    43564485      OnExecute = AExitExecute
    43574486    end
    4358     object ADownload: TAction
    4359       Caption = 'Zkontrolovat'
    4360       OnExecute = ADownloadExecute
     4487    object ASettings: TAction
     4488      Caption = 'Nastavení'
     4489      OnExecute = ASettingsExecute
     4490    end
     4491    object ADownloadNew: TAction
     4492      Caption = 'Stáhnout nové'
     4493      OnExecute = ADownloadNewExecute
     4494    end
     4495    object ADownloadInterval: TAction
     4496      Caption = 'Stáhnout dle rozsahu data'
     4497      OnExecute = ADownloadIntervalExecute
     4498    end
     4499    object ADownloadMonthly: TAction
     4500      Caption = 'Stáhnout měsíční vÃœpis'
     4501      OnExecute = ADownloadMonthlyExecute
    43614502    end
    43624503  end
    43634504  object ImageList1: TImageList
    43644505    left = 296
    4365     top = 176
     4506    top = 296
    43664507  end
    43674508end
Note: See TracChangeset for help on using the changeset viewer.