home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / olbrowse.exe / 32BIT / FOLBROWS.DFM / FOLBROWS.txt
Text File  |  1996-10-15  |  7KB  |  207 lines
  1. object FormOutlineBrowser: TFormOutlineBrowser
  2.   Left = 378
  3.   Top = 137
  4.   Width = 362
  5.   Height = 374
  6.   Caption = 'Outline Browser'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   OnCreate = FormCreate
  13.   OnDestroy = FormDestroy
  14.   OnHide = FormHide
  15.   OnResize = FormResize
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object PanelOlnbrowseHeading: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 354
  23.     Height = 65
  24.     Align = alTop
  25.     TabOrder = 0
  26.     object LabelOlnDisplay: TLabel
  27.       Left = 16
  28.       Top = 13
  29.       Width = 54
  30.       Height = 16
  31.       Caption = 'Display:'
  32.     end
  33.     object CBDisplay: TComboBox
  34.       Left = 16
  35.       Top = 30
  36.       Width = 193
  37.       Height = 21
  38.       Style = csDropDownList
  39.       ItemHeight = 13
  40.       Items.Strings = (
  41.         'ID'
  42.         'Description'
  43.         'ID, Description')
  44.       TabOrder = 0
  45.       OnChange = CBDisplayChange
  46.     end
  47.   end
  48.   object OlnBrowse: TOutline
  49.     Left = 0
  50.     Top = 65
  51.     Width = 354
  52.     Height = 241
  53.     OnExpand = OlnBrowseExpand
  54.     OnCollapse = OlnBrowseCollapse
  55.     ItemHeight = 13
  56.     Align = alClient
  57.     TabOrder = 1
  58.     OnDragDrop = OlnBrowseDragDrop
  59.     OnDragOver = OlnBrowseDragOver
  60.     OnMouseDown = OlnBrowseMouseDown
  61.     OnMouseMove = OlnBrowseMouseMove
  62.     ItemSeparator = '\'
  63.   end
  64.   object PanelOlbrowseFooter: TPanel
  65.     Left = 0
  66.     Top = 306
  67.     Width = 354
  68.     Height = 41
  69.     Align = alBottom
  70.     TabOrder = 2
  71.     object BtnSelect: TBitBtn
  72.       Left = 0
  73.       Top = -1
  74.       Width = 177
  75.       Height = 42
  76.       Caption = '&Select'
  77.       TabOrder = 0
  78.       OnClick = BtnSelectClick
  79.       Glyph.Data = {
  80.         76060000424D7606000000000000360400002800000018000000180000000100
  81.         0800000000000000000000000000000000000000000000000000000000000000
  82.         80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
  83.         A400000000000000000000000000000000000000000000000000000000000000
  84.         0000000000000000000000000000000000000000000000000000000000000000
  85.         0000000000000000000000000000000000000000000000000000000000000000
  86.         0000000000000000000000000000000000000000000000000000000000000000
  87.         0000000000000000000000000000000000000000000000000000000000000000
  88.         0000000000000000000000000000000000000000000000000000000000000000
  89.         0000000000000000000000000000000000000000000000000000000000000000
  90.         0000000000000000000000000000000000000000000000000000000000000000
  91.         0000000000000000000000000000000000000000000000000000000000000000
  92.         0000000000000000000000000000000000000000000000000000000000000000
  93.         0000000000000000000000000000000000000000000000000000000000000000
  94.         0000000000000000000000000000000000000000000000000000000000000000
  95.         0000000000000000000000000000000000000000000000000000000000000000
  96.         0000000000000000000000000000000000000000000000000000000000000000
  97.         0000000000000000000000000000000000000000000000000000000000000000
  98.         0000000000000000000000000000000000000000000000000000000000000000
  99.         0000000000000000000000000000000000000000000000000000000000000000
  100.         0000000000000000000000000000000000000000000000000000000000000000
  101.         0000000000000000000000000000000000000000000000000000000000000000
  102.         0000000000000000000000000000000000000000000000000000000000000000
  103.         0000000000000000000000000000000000000000000000000000000000000000
  104.         0000000000000000000000000000000000000000000000000000000000000000
  105.         0000000000000000000000000000000000000000000000000000000000000000
  106.         0000000000000000000000000000000000000000000000000000000000000000
  107.         0000000000000000000000000000000000000000000000000000000000000000
  108.         0000000000000000000000000000000000000000000000000000000000000000
  109.         0000000000000000000000000000000000000000000000000000000000000000
  110.         0000000000000000000000000000000000000000000000000000000000000000
  111.         0000000000000000000000000000000000000000000000000000000000000000
  112.         000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
  113.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
  114.         0707000707070707070707070707070707070707070707070700000707070707
  115.         0707070707070707070707070707070700030007070707070707070707070707
  116.         0707070707070700030300070707070707070707070707070707070707070003
  117.         0303000707070707070707070707070707070707070003030303000707070707
  118.         0707070707070707070700000003030303030000000000000000000000000707
  119.         0707070700030303030300FFFFFFFF0007070707070707070707070700030303
  120.         030300FFFFFFFF0007070707070707070707070700030303030000FFFFFFFF00
  121.         07070707070707070707070700030303030300FFFFFFFF000707070707070407
  122.         0707070700030303030300FFFFFFFF0007070707070404070707070700030303
  123.         030300FFFFFFFF0007070707040404070707070700030303030300FFFFFFFF00
  124.         07070704040404040404070700030303030300FFFFFFFF000707040404040404
  125.         0404070700030303030300FFFFFFFF0007070404040404040404070700030303
  126.         030300FFFFFFFF00070707040404040404040707000303030300FFFFFFFFFF00
  127.         0707070704040407070707070003030300FFFFFFFFFFFF000707070707040407
  128.         0707070700030300FFFFFFFFFFFFFF00070707070707040707070707000300FF
  129.         FFFFFFFFFFFFFF000707070707070707070707070000FFFFFFFFFFFFFFFFFF00
  130.         0707070707070707070707070000000000000000000000000707070707070707
  131.         0707070707070707070707070707070707070707070707070707}
  132.     end
  133.     object BtnCancel: TBitBtn
  134.       Left = 176
  135.       Top = -1
  136.       Width = 177
  137.       Height = 42
  138.       Caption = '&Cancel'
  139.       TabOrder = 1
  140.       OnClick = BtnCancelClick
  141.       Kind = bkCancel
  142.     end
  143.   end
  144.   object QueryBase: TQuery
  145.     Left = 17
  146.     Top = 197
  147.   end
  148.   object QueryGetRoot: TQuery
  149.     DatabaseName = 'RacDB'
  150.     SQL.Strings = (
  151.       'SELECT P.Saddr_Adr_Rec_ID, P.Saddr_Sys_Adr_Des, '
  152.       '             P.O_Hig_Lev_Plant_Loc'
  153.       'FROM Ops_Osaddr P'
  154.       'WHERE P.O_Hig_Lev_Plant_Loc IS NULL'
  155.       ''
  156.       '/* Check that it is not from another view */'
  157.       'AND NOT EXISTS'
  158.       '('
  159.       '   SELECT L.Conlnk_Lnk_To'
  160.       '   FROM Ops_Osflnk L'
  161.       '   WHERE L.Conlnk_Lnk_To = P.Saddr_Adr_Rec_ID'
  162.       ')')
  163.     Left = 17
  164.     Top = 240
  165.   end
  166.   object QueryGetChildren: TQuery
  167.     DatabaseName = 'RacDB'
  168.     Params.Data = {0100010003504B3000010600554E495431000001}
  169.     SQL.Strings = (
  170.       'SELECT Saddr_Adr_Rec_ID, Saddr_Sys_Adr_Des, '
  171.       '             O_Hig_Lev_Plant_Loc'
  172.       'FROM Ops_Osaddr'
  173.       'WHERE O_Hig_Lev_Plant_Loc = :PK0')
  174.     Left = 48
  175.     Top = 240
  176.   end
  177.   object QueryGetChildCount: TQuery
  178.     DatabaseName = 'RacDB'
  179.     Params.Data = {0100010003504B3000010600554E495431000001}
  180.     SQL.Strings = (
  181.       'SELECT Count(Saddr_Adr_Rec_ID) "Count"'
  182.       'FROM Ops_Osaddr'
  183.       'WHERE O_Hig_Lev_Plant_Loc = :PK0')
  184.     Left = 49
  185.     Top = 272
  186.   end
  187.   object QueryGetParent: TQuery
  188.     DatabaseName = 'RacDB'
  189.     Params.Data = {0100010007506C616E744944000105004B4B5331000001}
  190.     SQL.Strings = (
  191.       'SELECT Parent.Saddr_Adr_Rec_ID'
  192.       'FROM Ops_Osaddr Parent, Ops_Osaddr Child'
  193.       'WHERE Parent.Saddr_Adr_Rec_ID = Child.O_Hig_Lev_Plant_Loc'
  194.       'AND Child.Saddr_Adr_Rec_ID = :PlantID')
  195.     Left = 97
  196.     Top = 272
  197.   end
  198.   object QueryGetItem: TQuery
  199.     Left = 200
  200.     Top = 240
  201.   end
  202.   object QueryGetSelected: TQuery
  203.     Left = 200
  204.     Top = 208
  205.   end
  206. end
  207.