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