/Gedemin/Tax/tax_frmPeriod_unit.dfm
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