home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / ruzkomp / DOCKD3.ZIP / MAINFRM.DFM / MAINFRM.txt < prev   
Encoding:
Text File  |  1997-02-23  |  17.6 KB  |  589 lines
  1. object Form1: TForm1
  2.   Left = 80
  3.   Top = 180
  4.   Width = 383
  5.   Height = 300
  6.   HelpContext = 10
  7.   Caption = 'TDocpanel Demonstration'
  8.   Font.Color = clBlack
  9.   Font.Height = -13
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object DocPanel1: TDocPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 377
  20.     Height = 41
  21.     Font.Color = clBlack
  22.     Font.Height = -11
  23.     Font.Name = 'Arial'
  24.     Font.Style = []
  25.     ParentFont = False
  26.     ParentShowHint = False
  27.     ShowHint = True
  28.     TabOrder = 0
  29.     AutoWrap = True
  30.     AutoHide = False
  31.     DropDown = True
  32.     CaptionType = ctNot3x
  33.     DockingSides = [dsTop, dsLeft, dsRight, dsBottom]
  34.     Icon.Data = {<image000.ico>}
  35.     MaxWidthRestore = False
  36.     NotificationCursor = False
  37.     Shrink = False
  38.     Title = 'Demonstration Toolbar'
  39.     TitleFont.Color = clBlack
  40.     TitleFont.Height = -9
  41.     TitleFont.Name = 'Arial'
  42.     TitleFont.Style = []
  43.     OnDockChanged = DocPanel1DockChanged
  44.     object SpeedButton1: TSpeedButton
  45.       Left = 8
  46.       Top = 8
  47.       Width = 25
  48.       Height = 25
  49.       Hint = 'This Button will toggle the visibity of all odd numbered buttons'
  50.       Glyph.Data = {
  51.         06020000424D0602000000000000760000002800000028000000140000000100
  52.         0400000000009001000000000000000000000000000000000000000000000000
  53.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  54.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  55.         33333333333333333333333333333333333333333333333333FFFFFFFFFFFFFF
  56.         FFFF300000000000000000033777777777777777777F30FFFFFFFFFFFFFFFF03
  57.         373FFFFFFF3FFFFFFF7F300000000000000000033777777777777777777F300F
  58.         FFFFF00FFFFFF003377F3333377F3333377F300FFFFFF00FFFFFF003377F3333
  59.         377F3333377F300FFFFFF00FFFFFF003377F3333377F3333377F300CCCCCC00C
  60.         CCCCC003377FFFFFF77FFFFFF77F300000000000000000033777777777777777
  61.         777F300FFFFFF00FFFFFF003377F3333377F3333377F300FFFFFF00FFFFFF003
  62.         377F3333377F3333377F300FFFFFF00FFFFFF003377F3333377F3333377F300C
  63.         CCCCC00CCCCCC003377FFFFFF77FFFFFF77F3000000000000000000337777777
  64.         77777777777F308CCCCCCCCCCCCCC8033777777777777777777F308CCCCCCCCC
  65.         CCCCC80337FFFFFFFFFFFFFFFF7F300000000000000000033777777777777777
  66.         7773333333333333333333333333333333333333333333333333333333333333
  67.         33333333333333333333}
  68.       NumGlyphs = 2
  69.       ParentShowHint = False
  70.       ShowHint = True
  71.       OnClick = SpeedButton1Click
  72.     end
  73.     object SpeedButton2: TSpeedButton
  74.       Left = 40
  75.       Top = 8
  76.       Width = 25
  77.       Height = 25
  78.       Hint = 'Button Hint'
  79.       Glyph.Data = {
  80.         76010000424D7601000000000000760000002800000020000000100000000100
  81.         04000000000000010000130B0000130B00000000000000000000000000000000
  82.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  83.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  84.         3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
  85.         33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
  86.         993337777F777F3377F3393999707333993337F77737333337FF993399933333
  87.         399377F3777FF333377F993339903333399377F33737FF33377F993333707333
  88.         399377F333377FF3377F993333101933399377F333777FFF377F993333000993
  89.         399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
  90.         99333773FF777F777733339993707339933333773FF7FFF77333333999999999
  91.         3333333777333777333333333999993333333333377777333333}
  92.       NumGlyphs = 2
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.     end
  96.     object SpeedButton3: TSpeedButton
  97.       Left = 72
  98.       Top = 8
  99.       Width = 25
  100.       Height = 25
  101.       Hint = 'Button Hint'
  102.       Glyph.Data = {
  103.         66010000424D6601000000000000760000002800000014000000140000000100
  104.         040000000000F000000000000000000000001000000010000000000000000000
  105.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  106.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  107.         333333330000330000000000000000330000308B8B0CC40AA609D103000030BF
  108.         B80C040E020D9503000030F0FB0C040A0609D103000030B0B80C040E020D9503
  109.         000030B0B80CC40EE209D103000030F0FB0CC40AA60D9503000030FBFB0CC40A
  110.         0209D103000030BFB80CC40E060D0503000030FBFB0C040A02090103000030B0
  111.         080C040E060D0503000030FBFB0C040A02098103000030B0B80C040E060D0503
  112.         000030FBFB0C040AA2090103000030B0080CC400000D0503000030FBFB000003
  113.         330901030000330000333333330D950300003333333333333330003300003333
  114.         33333333333333330000}
  115.       ParentShowHint = False
  116.       ShowHint = True
  117.     end
  118.     object SpeedButton4: TSpeedButton
  119.       Left = 104
  120.       Top = 8
  121.       Width = 25
  122.       Height = 25
  123.       Hint = 'Button Hint'
  124.       Glyph.Data = {
  125.         78010000424D7801000000000000760000002800000020000000100000000100
  126.         04000000000000000000120B0000120B00000000000000000000000000000000
  127.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  128.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
  129.         00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
  130.         0333337733F733F77F33370980FFF08907333373373F373373F33099FFFFFFF9
  131.         903337F3F373F33FF7F33090F000FF00903337F73337F37737F3B099FFF0FFF9
  132.         90B3373F33F7F3F33733070980F0F0890703337FF737F7337F33BB0098F0F890
  133.         0BB33F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
  134.         77037F3377777773337F088887707888870373F3337773F33373B078800B0088
  135.         70B3373FF733373FF73303700BBBBB007303337773F3F3777F33330BB0B0B0BB
  136.         033333733737F73F73F330BB03B0B30BB03337337337337337330000}
  137.       NumGlyphs = 2
  138.       ParentShowHint = False
  139.       ShowHint = True
  140.     end
  141.     object SpeedButton5: TSpeedButton
  142.       Left = 136
  143.       Top = 8
  144.       Width = 25
  145.       Height = 25
  146.       Hint = 'Button Hint'
  147.       Glyph.Data = {
  148.         42010000424D4201000000000000760000002800000011000000110000000100
  149.         040000000000CC00000000000000000000001000000010000000000000000000
  150.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  151.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  152.         7777700000007777770000000000700000007777770FFFFFFFF0700000007777
  153.         770FFFFFFFF0700000007777770FFFFFFFF07000000088888800000000007000
  154.         00008FFFFF0FCCCCCCC0700000008FFFFF0000000000700000008FFFFFFFF877
  155.         7777700000008888888888888887700000008F88888888FFFF87700000008888
  156.         888888FFFF8770000000777778FFFFFFFF877000000077777888888888877000
  157.         0000777778F88888888770000000777778888888888770000000777777777777
  158.         777770000000}
  159.       ParentShowHint = False
  160.       ShowHint = True
  161.     end
  162.     object SpeedButton6: TSpeedButton
  163.       Left = 168
  164.       Top = 8
  165.       Width = 25
  166.       Height = 25
  167.       Hint = 'Button Hint'
  168.       Glyph.Data = {
  169.         42010000424D4201000000000000760000002800000011000000110000000100
  170.         040000000000CC00000000000000000000001000000010000000000000000000
  171.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  172.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  173.         7777700000007777777777777777700000007777777777777777700000007777
  174.         7447774477777000000077777744744777777000000077777774447777777000
  175.         0000770070774777007770000000707707777770770770000000707707777770
  176.         7777700000007077077177707707700000007700077117770077700000007777
  177.         7717717777777000000077777117717777777000000077771771177777777000
  178.         0000777177777777777770000000777777777777777770000000777777777777
  179.         777770000000}
  180.       ParentShowHint = False
  181.       ShowHint = True
  182.     end
  183.     object SpeedButton7: TSpeedButton
  184.       Left = 200
  185.       Top = 8
  186.       Width = 25
  187.       Height = 25
  188.       Hint = 'Button Hint'
  189.       Glyph.Data = {
  190.         4E010000424D4E01000000000000760000002800000012000000120000000100
  191.         040000000000D800000000000000000000001000000010000000000000000000
  192.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  193.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
  194.         DDDDDD000000DDDDDDD0FFFFFFFF0D000000DDDDDDD0FFFFFFFF0D000000DDDD
  195.         D000007FFFFF0D000000DDDDD0FBFB0FFFF70D000000DDDDD00FBF30FF70DD00
  196.         0000DDDDD0F03BF3000DDD000000DDD000B3BFBFB0DDDD000000DDD0FBFBFBFB
  197.         F0DDDD000000DDD73F0F0FBFB0DDDD000000DDDD0B00FBFBF0DDDD000000DDDD
  198.         D0BFBFBFB0DDDD000000D0000CCCCCCCC4DDDD000000DDDDD4CCCCCCC4DDDD00
  199.         0000DDDDDD4CCCCC4DDDDD000000DDDDDDD44444DDDDDD000000DDDDDDDDDDDD
  200.         DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
  201.       ParentShowHint = False
  202.       ShowHint = True
  203.     end
  204.     object SpeedButton8: TSpeedButton
  205.       Left = 232
  206.       Top = 8
  207.       Width = 25
  208.       Height = 25
  209.       Hint = 'Button Hint'
  210.       Glyph.Data = {
  211.         78010000424D7801000000000000760000002800000020000000100000000100
  212.         04000000000000000000120B0000120B00000000000000000000000000000000
  213.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  214.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  215.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  216.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  217.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  218.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  219.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  220.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  221.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  222.         05555777775555557F55550005555555055555777555555575550000}
  223.       NumGlyphs = 2
  224.       ParentShowHint = False
  225.       ShowHint = True
  226.     end
  227.   end
  228.   object Panel1: TPanel
  229.     Left = 0
  230.     Top = 41
  231.     Width = 377
  232.     Height = 216
  233.     Align = alClient
  234.     Caption = 'Panel1'
  235.     TabOrder = 1
  236.     object Memo1: TMemo
  237.       Left = 1
  238.       Top = 1
  239.       Width = 375
  240.       Height = 214
  241.       Align = alClient
  242.       Lines.Strings = (
  243.         'This is a Sample Application to demonstrate some of the '
  244.         'capabilities '
  245.         'of TDocpanel. '
  246.         ''
  247.         'Press F1 for help on any of the settings'
  248.         ''
  249.         'Try changing the settings and see the effects on the panel.'
  250.         ''
  251.         'The code for the first Button Demonstrates how to change '
  252.         'the '
  253.         'components on a dockbar at run-time'
  254.         ''
  255.         'Also Try Resizing this window with the panel in a docked '
  256.         'position to '
  257.         'see the effects of the new autowrap Property'
  258.         ''
  259.         'The main menu is also a TDocPanel with the docking '
  260.         'method set to '
  261.         'dmnone'
  262.         ''
  263.         'Enjoy the component'
  264.         ''
  265.         'Peter van Lonkhuyzen'
  266.         ''
  267.         'email '
  268.         '      peterv@global.co.za'
  269.         'post '
  270.         '       PO Box 1041'
  271.         '       Randpark Ridge'
  272.         '       2156')
  273.       ReadOnly = True
  274.       ScrollBars = ssVertical
  275.       TabOrder = 0
  276.     end
  277.   end
  278.   object MainMenu: TDocPanel
  279.     Left = 0
  280.     Top = 69
  281.     Width = 377
  282.     Height = 172
  283.     Align = alNone
  284.     Font.Color = clBlack
  285.     Font.Height = -11
  286.     Font.Name = 'Arial'
  287.     Font.Style = []
  288.     ParentFont = False
  289.     TabOrder = 2
  290.     AutoWrap = False
  291.     Arrangement = amNone
  292.     AutoHide = False
  293.     DropDown = True
  294.     Docked = False
  295.     DockingMethod = dmNone
  296.     Icon.Data = {<image001.ico>}
  297.     NotificationCursor = False
  298.     Shrink = False
  299.     Title = 'Demonstration Menu'
  300.     TitleFont.Color = clBlack
  301.     TitleFont.Height = -9
  302.     TitleFont.Name = 'Arial'
  303.     TitleFont.Style = []
  304.     object Label1: TLabel
  305.       Left = 24
  306.       Top = 16
  307.       Width = 56
  308.       Height = 14
  309.       Caption = 'FloatBorder'
  310.     end
  311.     object Label2: TLabel
  312.       Left = 8
  313.       Top = 40
  314.       Width = 73
  315.       Height = 14
  316.       Caption = 'DockingMethod'
  317.     end
  318.     object Label3: TLabel
  319.       Left = 8
  320.       Top = 64
  321.       Width = 60
  322.       Height = 14
  323.       Caption = 'CaptionType'
  324.     end
  325.     object Label4: TLabel
  326.       Left = 8
  327.       Top = 88
  328.       Width = 63
  329.       Height = 14
  330.       Caption = 'Arrangement'
  331.     end
  332.     object Label5: TLabel
  333.       Left = 88
  334.       Top = 136
  335.       Width = 68
  336.       Height = 14
  337.       Caption = 'Docking Sides'
  338.     end
  339.     object Label6: TLabel
  340.       Left = 184
  341.       Top = 88
  342.       Width = 47
  343.       Height = 14
  344.       Caption = 'MaxWidth'
  345.     end
  346.     object DockFrame: TLabel
  347.       Left = 184
  348.       Top = 56
  349.       Width = 54
  350.       Height = 14
  351.       Caption = 'DockFrame'
  352.     end
  353.     object Docked: TCheckBox
  354.       Left = 256
  355.       Top = 16
  356.       Width = 57
  357.       Height = 17
  358.       HelpContext = 14
  359.       Caption = 'Docked'
  360.       State = cbChecked
  361.       TabOrder = 0
  362.       OnClick = DockedClick
  363.     end
  364.     object Button1: TButton
  365.       Left = 88
  366.       Top = 112
  367.       Width = 73
  368.       Height = 25
  369.       Caption = 'Toggle Visible'
  370.       TabOrder = 1
  371.       OnClick = Button1Click
  372.     end
  373.     object ComboBox1: TComboBox
  374.       Left = 88
  375.       Top = 16
  376.       Width = 89
  377.       Height = 22
  378.       HelpContext = 18
  379.       Style = csDropDownList
  380.       ItemHeight = 14
  381.       Items.Strings = (
  382.         'fbSingle'
  383.         'fbSizable')
  384.       TabOrder = 2
  385.       OnChange = ComboBox1Change
  386.     end
  387.     object ComboBox2: TComboBox
  388.       Left = 88
  389.       Top = 40
  390.       Width = 89
  391.       Height = 22
  392.       HelpContext = 15
  393.       Style = csDropDownList
  394.       ItemHeight = 14
  395.       Items.Strings = (
  396.         'dmBoth'
  397.         'dmDblClick'
  398.         'dmDrag'
  399.         'dmNone')
  400.       TabOrder = 3
  401.       OnChange = ComboBox2Change
  402.     end
  403.     object ComboBox3: TComboBox
  404.       Left = 88
  405.       Top = 64
  406.       Width = 89
  407.       Height = 22
  408.       HelpContext = 12
  409.       Style = csDropDownList
  410.       ItemHeight = 14
  411.       Items.Strings = (
  412.         'ctCustom'
  413.         'ctNot3x'
  414.         'ctWindows')
  415.       TabOrder = 4
  416.       OnChange = ComboBox3Change
  417.     end
  418.     object CheckBox1: TCheckBox
  419.       Left = 184
  420.       Top = 16
  421.       Width = 65
  422.       Height = 17
  423.       HelpContext = 11
  424.       Caption = 'AutoHide'
  425.       State = cbChecked
  426.       TabOrder = 5
  427.       OnClick = CheckBox1Click
  428.     end
  429.     object ComboBox4: TComboBox
  430.       Left = 88
  431.       Top = 88
  432.       Width = 89
  433.       Height = 22
  434.       HelpContext = 9
  435.       Style = csDropDownList
  436.       ItemHeight = 14
  437.       Items.Strings = (
  438.         'amAuto'
  439.         'amNone'
  440.         'amWidth')
  441.       TabOrder = 6
  442.       OnChange = ComboBox4Change
  443.     end
  444.     object left: TCheckBox
  445.       Left = 16
  446.       Top = 154
  447.       Width = 41
  448.       Height = 17
  449.       HelpContext = 17
  450.       Caption = 'Left'
  451.       State = cbChecked
  452.       TabOrder = 7
  453.       OnClick = leftClick
  454.     end
  455.     object top: TCheckBox
  456.       Left = 128
  457.       Top = 154
  458.       Width = 41
  459.       Height = 17
  460.       HelpContext = 17
  461.       Caption = 'Top'
  462.       State = cbChecked
  463.       TabOrder = 8
  464.       OnClick = leftClick
  465.     end
  466.     object bottom: TCheckBox
  467.       Left = 184
  468.       Top = 154
  469.       Width = 57
  470.       Height = 17
  471.       HelpContext = 17
  472.       Caption = 'Bottom'
  473.       State = cbChecked
  474.       TabOrder = 9
  475.       OnClick = leftClick
  476.     end
  477.     object right: TCheckBox
  478.       Left = 64
  479.       Top = 154
  480.       Width = 49
  481.       Height = 17
  482.       HelpContext = 17
  483.       Caption = 'Right'
  484.       State = cbChecked
  485.       TabOrder = 10
  486.       OnClick = leftClick
  487.     end
  488.     object SpinEdit1: TSpinEdit
  489.       Left = 240
  490.       Top = 88
  491.       Width = 65
  492.       Height = 23
  493.       HelpContext = 19
  494.       MaxValue = 1000
  495.       MinValue = -1
  496.       TabOrder = 11
  497.       Value = -1
  498.       OnChange = SpinEdit1Change
  499.     end
  500.     object CheckBox2: TCheckBox
  501.       Left = 192
  502.       Top = 120
  503.       Width = 121
  504.       Height = 17
  505.       HelpContext = 20
  506.       Caption = 'MaxWidthRestore'
  507.       State = cbChecked
  508.       TabOrder = 12
  509.       OnClick = CheckBox2Click
  510.     end
  511.     object BitBtn1: TBitBtn
  512.       Left = 240
  513.       Top = 138
  514.       Width = 73
  515.       Height = 33
  516.       HelpContext = 13
  517.       Caption = 'Font'
  518.       TabOrder = 13
  519.       OnClick = BitBtn1Click
  520.       Glyph.Data = {
  521.         76010000424D7601000000000000760000002800000020000000100000000100
  522.         04000000000000010000130B0000130B00000000000000000000000000000000
  523.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  524.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  525.         3333333333333333333333333333333333333333FFF33FFFFF33333300033000
  526.         00333337773377777333333330333300033333337FF33777F333333330733300
  527.         0333333377FFF777F33333333700000073333333777777773333333333033000
  528.         3333333337FF777F333333333307300033333333377F777F3333333333703007
  529.         33333333377F7773333333333330000333333333337777F33333333333300003
  530.         33333333337777F3333333333337007333333333337777333333333333330033
  531.         3333333333377333333333333333033333333333333733333333333333333333
  532.         3333333333333333333333333333333333333333333333333333}
  533.       NumGlyphs = 2
  534.     end
  535.     object ComboBox5: TComboBox
  536.       Left = 240
  537.       Top = 56
  538.       Width = 73
  539.       Height = 22
  540.       HelpContext = 25
  541.       Style = csDropDownList
  542.       ItemHeight = 14
  543.       Items.Strings = (
  544.         'dfInner'
  545.         'dfOuter')
  546.       TabOrder = 14
  547.       OnChange = ComboBox5Change
  548.     end
  549.     object CheckBox3: TCheckBox
  550.       Left = 256
  551.       Top = 36
  552.       Width = 105
  553.       Height = 17
  554.       Caption = 'NotificationCursor'
  555.       TabOrder = 15
  556.       OnClick = CheckBox3Click
  557.     end
  558.     object CheckBox4: TCheckBox
  559.       Left = 184
  560.       Top = 36
  561.       Width = 73
  562.       Height = 17
  563.       Caption = 'DropDown'
  564.       TabOrder = 16
  565.       OnClick = CheckBox4Click
  566.     end
  567.     object shrink: TCheckBox
  568.       Left = 312
  569.       Top = 16
  570.       Width = 57
  571.       Height = 17
  572.       HelpContext = 38
  573.       Caption = 'Shrink'
  574.       TabOrder = 17
  575.       OnClick = shrinkClick
  576.     end
  577.   end
  578.   object FontDialog1: TFontDialog
  579.     Font.Color = clWindowText
  580.     Font.Height = -13
  581.     Font.Name = 'System'
  582.     Font.Style = []
  583.     MinFontSize = 0
  584.     MaxFontSize = 0
  585.     Left = 336
  586.     Top = 170
  587.   end
  588. end
  589.