PageRenderTime 6ms CodeModel.GetById 1ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/Gedemin/Tax/tax_frmPeriod_unit.dfm

http://gedemin.googlecode.com/
Unknown | 373 lines | 373 code | 0 blank | 0 comment | 0 complexity | 44cd36f27caf42098f491442cbce7e9c MD5 | raw file
  1object frmPeriod: TfrmPeriod
  2  Left = 304
  3  Top = 223
  4  Width = 513
  5  Height = 403
  6  HelpContext = 18
  7  BorderWidth = 5
  8  Caption = '????????? ???????'
  9  Color = clBtnFace
 10  Constraints.MinHeight = 150
 11  Constraints.MinWidth = 290
 12  Font.Charset = DEFAULT_CHARSET
 13  Font.Color = clWindowText
 14  Font.Height = -11
 15  Font.Name = 'MS Sans Serif'
 16  Font.Style = []
 17  OldCreateOrder = False
 18  Position = poScreenCenter
 19  OnCloseQuery = FormCloseQuery
 20  OnDestroy = FormDestroy
 21  PixelsPerInch = 96
 22  TextHeight = 13
 23  object pnlMain: TPanel
 24    Left = 0
 25    Top = 0
 26    Width = 495
 27    Height = 336
 28    Align = alClient
 29    BevelOuter = bvNone
 30    TabOrder = 0
 31    object pcSelDate: TPageControl
 32      Left = 0
 33      Top = 0
 34      Width = 495
 35      Height = 336
 36      ActivePage = tsMonth
 37      Align = alClient
 38      TabOrder = 0
 39      OnChange = pcSelDateChange
 40      object tsMonth: TTabSheet
 41        BorderWidth = 3
 42        Caption = '?? ?????'
 43        object Panel1: TPanel
 44          Left = 0
 45          Top = 26
 46          Width = 481
 47          Height = 276
 48          Align = alClient
 49          BevelOuter = bvLowered
 50          FullRepaint = False
 51          TabOrder = 0
 52          object GridMonth: TgsIBGrid
 53            Left = 1
 54            Top = 1
 55            Width = 479
 56            Height = 274
 57            Align = alClient
 58            BorderStyle = bsNone
 59            DataSource = dsTaxName
 60            Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
 61            PopupMenu = pmPeriod
 62            ReadOnly = True
 63            TabOrder = 0
 64            InternalMenuKind = imkWithSeparator
 65            Expands = <>
 66            ExpandsActive = False
 67            ExpandsSeparate = False
 68            TitlesExpanding = False
 69            Conditions = <>
 70            ConditionsActive = False
 71            CheckBox.FieldName = 'Id'
 72            CheckBox.Visible = True
 73            CheckBox.FirstColumn = True
 74            MinColWidth = 40
 75            ColumnEditors = <>
 76            Aliases = <>
 77            ShowTotals = False
 78          end
 79        end
 80        object Panel4: TPanel
 81          Left = 0
 82          Top = 0
 83          Width = 481
 84          Height = 26
 85          Align = alTop
 86          BevelOuter = bvNone
 87          TabOrder = 1
 88          object lblM1: TLabel
 89            Left = 2
 90            Top = 5
 91            Width = 36
 92            Height = 13
 93            Caption = '?????:'
 94          end
 95          object lblY1: TLabel
 96            Left = 164
 97            Top = 5
 98            Width = 21
 99            Height = 13
100            Caption = '???:'
101          end
102          object cbMonth: TComboBox
103            Left = 55
104            Top = 1
105            Width = 101
106            Height = 21
107            DropDownCount = 12
108            ItemHeight = 13
109            TabOrder = 0
110          end
111          object spMYear: TSpinEdit
112            Left = 191
113            Top = 0
114            Width = 65
115            Height = 22
116            MaxValue = 2030
117            MinValue = 1990
118            TabOrder = 1
119            Value = 2003
120          end
121        end
122      end
123      object tsQuarter: TTabSheet
124        BorderWidth = 3
125        Caption = '?? ???????'
126        ImageIndex = 1
127        object Panel2: TPanel
128          Left = 0
129          Top = 26
130          Width = 481
131          Height = 276
132          Align = alClient
133          BevelOuter = bvLowered
134          FullRepaint = False
135          TabOrder = 0
136          object GridQuarter: TgsIBGrid
137            Left = 1
138            Top = 1
139            Width = 479
140            Height = 274
141            Align = alClient
142            BorderStyle = bsNone
143            DataSource = dsTaxName
144            Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
145            ReadOnly = True
146            TabOrder = 0
147            InternalMenuKind = imkWithSeparator
148            Expands = <>
149            ExpandsActive = False
150            ExpandsSeparate = False
151            TitlesExpanding = False
152            Conditions = <>
153            ConditionsActive = False
154            CheckBox.FieldName = 'Id'
155            CheckBox.Visible = True
156            CheckBox.FirstColumn = True
157            MinColWidth = 40
158            ColumnEditors = <>
159            Aliases = <>
160            ShowTotals = False
161          end
162        end
163        object Panel5: TPanel
164          Left = 0
165          Top = 0
166          Width = 481
167          Height = 26
168          Align = alTop
169          BevelOuter = bvNone
170          TabOrder = 1
171          object lblQuart: TLabel
172            Left = 2
173            Top = 5
174            Width = 45
175            Height = 13
176            Caption = '???????:'
177          end
178          object lnlY2: TLabel
179            Left = 164
180            Top = 5
181            Width = 21
182            Height = 13
183            Caption = '???:'
184          end
185          object cbQuarter: TComboBox
186            Left = 55
187            Top = 1
188            Width = 101
189            Height = 21
190            ItemHeight = 13
191            TabOrder = 0
192            Items.Strings = (
193              'I.   ??????      '
194              'II.  ??????       '
195              'III. ??????       '
196              'IV. ?????????')
197          end
198          object spQYear: TSpinEdit
199            Left = 191
200            Top = 0
201            Width = 65
202            Height = 22
203            MaxValue = 2030
204            MinValue = 1990
205            TabOrder = 1
206            Value = 2003
207          end
208        end
209      end
210      object tsArbitrary: TTabSheet
211        BorderWidth = 3
212        Caption = '?? ??????'
213        ImageIndex = 2
214        object Panel3: TPanel
215          Left = 0
216          Top = 26
217          Width = 481
218          Height = 276
219          Align = alClient
220          BevelOuter = bvLowered
221          FullRepaint = False
222          TabOrder = 0
223          object GridPeriod: TgsIBGrid
224            Left = 1
225            Top = 1
226            Width = 479
227            Height = 274
228            Align = alClient
229            BorderStyle = bsNone
230            DataSource = dsTaxName
231            Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
232            ReadOnly = True
233            TabOrder = 0
234            InternalMenuKind = imkWithSeparator
235            Expands = <>
236            ExpandsActive = False
237            ExpandsSeparate = False
238            TitlesExpanding = False
239            Conditions = <>
240            ConditionsActive = False
241            CheckBox.FieldName = 'Id'
242            CheckBox.Visible = True
243            CheckBox.FirstColumn = True
244            MinColWidth = 40
245            ColumnEditors = <>
246            Aliases = <>
247            ShowTotals = False
248          end
249        end
250        object Panel6: TPanel
251          Left = 0
252          Top = 0
253          Width = 481
254          Height = 26
255          Align = alTop
256          BevelOuter = bvNone
257          TabOrder = 1
258          object lblEndPeriod: TLabel
259            Left = 124
260            Top = 5
261            Width = 58
262            Height = 13
263            Caption = '?????????:'
264          end
265          object lblBeginPeriod: TLabel
266            Left = 2
267            Top = 5
268            Width = 40
269            Height = 13
270            Caption = '??????:'
271          end
272          object xdeEPeriod: TxDateEdit
273            Left = 191
274            Top = 1
275            Width = 65
276            Height = 21
277            Kind = kDate
278            EditMask = '!99\.99\.9999;1;_'
279            MaxLength = 10
280            TabOrder = 0
281            Text = '  .  .    '
282          end
283          object xdeBPeriod: TxDateEdit
284            Left = 49
285            Top = 1
286            Width = 65
287            Height = 21
288            Kind = kDate
289            EditMask = '!99\.99\.9999;1;_'
290            MaxLength = 10
291            TabOrder = 1
292            Text = '  .  .    '
293          end
294        end
295      end
296    end
297  end
298  object pnlButton: TPanel
299    Left = 0
300    Top = 336
301    Width = 495
302    Height = 30
303    Align = alBottom
304    BevelOuter = bvNone
305    TabOrder = 1
306    object btnOk: TButton
307      Left = 340
308      Top = 9
309      Width = 75
310      Height = 21
311      Anchors = [akRight, akBottom]
312      Caption = 'Ok'
313      Default = True
314      ModalResult = 1
315      TabOrder = 0
316    end
317    object btnCancel: TButton
318      Left = 420
319      Top = 9
320      Width = 75
321      Height = 21
322      Anchors = [akRight, akBottom]
323      Cancel = True
324      Caption = '??????'
325      ModalResult = 2
326      TabOrder = 1
327    end
328    object Button1: TButton
329      Left = 1
330      Top = 9
331      Width = 75
332      Height = 21
333      Action = actHelp
334      TabOrder = 2
335    end
336  end
337  object dsTaxName: TDataSource
338    DataSet = gdcTaxName
339    Left = 104
340    Top = 64
341  end
342  object gdcTaxName: TgdcTaxName
343    OnGetOrderClause = gdcTaxNameGetOrderClause
344    Left = 136
345    Top = 64
346  end
347  object pmPeriod: TPopupMenu
348    Left = 72
349    Top = 64
350    object N1: TMenuItem
351      Action = actSelectAll
352    end
353    object N2: TMenuItem
354      Action = actDiscardSelect
355    end
356  end
357  object alPeriod: TActionList
358    Left = 32
359    Top = 64
360    object actSelectAll: TAction
361      Caption = '???????? ???'
362      OnExecute = actSelectAllExecute
363    end
364    object actDiscardSelect: TAction
365      Caption = '???????? ?????????'
366      OnExecute = actDiscardSelectExecute
367    end
368    object actHelp: TAction
369      Caption = '???????'
370      OnExecute = actHelpExecute
371    end
372  end
373end