PageRenderTime 19ms CodeModel.GetById 10ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/Gedemin/Transaction/gdv_dlgSelectDocument_unit.dfm

http://gedemin.googlecode.com/
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