/Gedemin/Transaction/gdv_dlgSelectDocument_unit.dfm
Unknown | 326 lines | 326 code | 0 blank | 0 comment | 0 complexity | 7bf309b73436b994f1206fbc1675ef88 MD5 | raw file
1object dlgSelectDocument: TdlgSelectDocument 2 Left = 241 3 Top = 183 4 Width = 693 5 Height = 493 6 BorderWidth = 5 7 Caption = '????? ?????????' 8 Color = clBtnFace 9 Font.Charset = DEFAULT_CHARSET 10 Font.Color = clWindowText 11 Font.Height = -11 12 Font.Name = 'MS Sans Serif' 13 Font.Style = [] 14 OldCreateOrder = False 15 Position = poScreenCenter 16 OnCreate = FormCreate 17 OnShow = FormShow 18 PixelsPerInch = 96 19 TextHeight = 13 20 object Splitter1: TSplitter 21 Left = 216 22 Top = 0 23 Width = 3 24 Height = 426 25 Cursor = crHSplit 26 end 27 object Panel1: TPanel 28 Left = 0 29 Top = 426 30 Width = 675 31 Height = 30 32 Align = alBottom 33 BevelOuter = bvNone 34 TabOrder = 0 35 object Bevel1: TBevel 36 Left = 0 37 Top = 0 38 Width = 675 39 Height = 3 40 Align = alTop 41 Shape = bsTopLine 42 end 43 object Button1: TButton 44 Left = 598 45 Top = 9 46 Width = 77 47 Height = 21 48 Action = actcancel 49 Anchors = [akTop, akRight] 50 Cancel = True 51 TabOrder = 0 52 end 53 object Button2: TButton 54 Left = 518 55 Top = 9 56 Width = 77 57 Height = 21 58 Action = actOk 59 Anchors = [akTop, akRight] 60 Default = True 61 TabOrder = 1 62 end 63 object Button3: TButton 64 Left = 0 65 Top = 9 66 Width = 75 67 Height = 21 68 Action = acthelp 69 TabOrder = 2 70 end 71 end 72 object Panel2: TPanel 73 Left = 0 74 Top = 0 75 Width = 216 76 Height = 426 77 Align = alLeft 78 BevelOuter = bvLowered 79 Ctl3D = True 80 FullRepaint = False 81 ParentCtl3D = False 82 TabOrder = 1 83 object tvDocumentType: TgsDBTreeView 84 Left = 1 85 Top = 1 86 Width = 214 87 Height = 424 88 DataSource = dsDocumentType 89 KeyField = 'ID' 90 ParentField = 'PARENT' 91 DisplayField = 'NAME' 92 Align = alClient 93 BorderStyle = bsNone 94 Ctl3D = True 95 HideSelection = False 96 Indent = 19 97 ParentCtl3D = False 98 SortType = stText 99 TabOrder = 0 100 MainFolderHead = True 101 MainFolder = False 102 MainFolderCaption = '???' 103 WithCheckBox = False 104 end 105 end 106 object Panel3: TPanel 107 Left = 219 108 Top = 0 109 Width = 456 110 Height = 426 111 Align = alClient 112 BevelOuter = bvNone 113 TabOrder = 2 114 object sLine: TSplitter 115 Left = 0 116 Top = 256 117 Width = 456 118 Height = 3 119 Cursor = crVSplit 120 Align = alBottom 121 end 122 object pLine: TPanel 123 Left = 0 124 Top = 259 125 Width = 456 126 Height = 167 127 Align = alBottom 128 BevelOuter = bvNone 129 FullRepaint = False 130 TabOrder = 0 131 object gDocumentLine: TgsIBGrid 132 Left = 0 133 Top = 16 134 Width = 456 135 Height = 151 136 Align = alClient 137 BorderStyle = bsNone 138 Ctl3D = True 139 DataSource = dsDocumentLine 140 Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit] 141 ParentCtl3D = False 142 TabOrder = 0 143 InternalMenuKind = imkWithSeparator 144 Expands = <> 145 ExpandsActive = False 146 ExpandsSeparate = False 147 TitlesExpanding = False 148 Conditions = <> 149 ConditionsActive = False 150 CheckBox.FieldName = 'ID' 151 CheckBox.Visible = True 152 CheckBox.CheckBoxEvent = gDocumentLineClickCheck 153 CheckBox.FirstColumn = True 154 MinColWidth = 40 155 RememberPosition = False 156 SaveSettings = False 157 ColumnEditors = <> 158 Aliases = <> 159 ShowTotals = False 160 OnClickCheck = gDocumentLineClickCheck 161 end 162 object Panel6: TPanel 163 Left = 0 164 Top = 0 165 Width = 456 166 Height = 16 167 Align = alTop 168 Alignment = taLeftJustify 169 BevelOuter = bvNone 170 BorderStyle = bsSingle 171 Caption = ' ??????? ?????????' 172 Color = clWindow 173 Ctl3D = False 174 Font.Charset = DEFAULT_CHARSET 175 Font.Color = clWindowText 176 Font.Height = -11 177 Font.Name = 'MS Sans Serif' 178 Font.Style = [fsBold] 179 ParentCtl3D = False 180 ParentFont = False 181 TabOrder = 1 182 end 183 end 184 object Panel5: TPanel 185 Left = 0 186 Top = 0 187 Width = 456 188 Height = 256 189 Align = alClient 190 BevelOuter = bvNone 191 FullRepaint = False 192 TabOrder = 1 193 object gDocument: TgsIBGrid 194 Left = 0 195 Top = 42 196 Width = 456 197 Height = 214 198 Align = alClient 199 BorderStyle = bsNone 200 Ctl3D = True 201 DataSource = dsDocument 202 Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit] 203 ParentCtl3D = False 204 TabOrder = 0 205 OnDblClick = gDocumentDblClick 206 InternalMenuKind = imkWithSeparator 207 Expands = <> 208 ExpandsActive = False 209 ExpandsSeparate = False 210 TitlesExpanding = False 211 Conditions = <> 212 ConditionsActive = False 213 CheckBox.FieldName = 'ID' 214 CheckBox.Visible = True 215 CheckBox.CheckBoxEvent = gDocumentClickCheck 216 CheckBox.FirstColumn = True 217 MinColWidth = 40 218 RememberPosition = False 219 SaveSettings = False 220 ColumnEditors = <> 221 Aliases = <> 222 ShowTotals = False 223 OnClickCheck = gDocumentClickCheck 224 end 225 object TBDock1: TTBDock 226 Left = 0 227 Top = 16 228 Width = 456 229 Height = 26 230 object TBToolbar1: TTBToolbar 231 Left = 0 232 Top = 0 233 Caption = 'TBToolbar1' 234 DockMode = dmCannotFloat 235 FullSize = True 236 Images = dmImages.il16x16 237 TabOrder = 0 238 object TBItem3: TTBItem 239 Action = actNewDocument 240 end 241 object TBItem2: TTBItem 242 Action = actEditDocument 243 end 244 object TBSeparatorItem1: TTBSeparatorItem 245 end 246 object TBItem1: TTBItem 247 Action = actDeleteDocument 248 end 249 end 250 end 251 object Panel4: TPanel 252 Left = 0 253 Top = 0 254 Width = 456 255 Height = 16 256 Align = alTop 257 Alignment = taLeftJustify 258 BevelOuter = bvNone 259 BorderStyle = bsSingle 260 Caption = ' ????????' 261 Color = clWindow 262 Ctl3D = False 263 Font.Charset = DEFAULT_CHARSET 264 Font.Color = clWindowText 265 Font.Height = -11 266 Font.Name = 'MS Sans Serif' 267 Font.Style = [fsBold] 268 ParentCtl3D = False 269 ParentFont = False 270 TabOrder = 2 271 end 272 end 273 end 274 object gdcDocumentType: TgdcBaseDocumentType 275 AfterScroll = gdcDocumentTypeAfterScroll 276 Left = 64 277 Top = 152 278 end 279 object dsDocumentType: TDataSource 280 DataSet = gdcDocumentType 281 Left = 96 282 Top = 152 283 end 284 object dsDocument: TDataSource 285 Left = 337 286 Top = 80 287 end 288 object ActionList: TActionList 289 Images = dmImages.il16x16 290 Left = 401 291 Top = 136 292 object actOk: TAction 293 Caption = 'Ok' 294 OnExecute = actOkExecute 295 end 296 object actcancel: TAction 297 Caption = '??????' 298 OnExecute = actcancelExecute 299 end 300 object acthelp: TAction 301 Caption = '???????' 302 end 303 object actNewDocument: TAction 304 Caption = 'actNewDocument' 305 ImageIndex = 0 306 OnExecute = actNewDocumentExecute 307 OnUpdate = actNewDocumentUpdate 308 end 309 object actEditDocument: TAction 310 Caption = 'actEditDocument' 311 ImageIndex = 1 312 OnExecute = actEditDocumentExecute 313 OnUpdate = actNewDocumentUpdate 314 end 315 object actDeleteDocument: TAction 316 Caption = 'actDeleteDocument' 317 ImageIndex = 2 318 OnExecute = actDeleteDocumentExecute 319 OnUpdate = actNewDocumentUpdate 320 end 321 end 322 object dsDocumentLine: TDataSource 323 Left = 337 324 Top = 304 325 end 326end