Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/zcd30120.exe/Demo/Bartest1.dfm/Bartest1.txt

Text File | 1996-01-26 | 4KB | 160 lines

object Form1: TForm1
  Left = 157
  Top = 174
  Width = 385
  Height = 211
  Caption = 'Toolbar test (A home-brewed Dockable and a floating)'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 13
  object zMovePanel1: TzMovePanel
    Left = 136
    Top = -2
    Width = 241
    Height = 43
    Hint =
      'You can move the toolbar by draging it, everywhere no control ex' +
      'ists'
    OnBeforeUpdate = zMovePanel1BeforeUpdate
    Alignment = taRightJustify
    Caption = ' '
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 3
      Top = 3
      Width = 25
      Height = 25
      Hint = 'Turn a floating toolbar on and off'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5000555555555555577755555555555550B0555555555555F7F7555555555550
        00B05555555555577757555555555550B3B05555555555F7F557555555555000
        3B0555555555577755755555555500B3B0555555555577555755555555550B3B
        055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
        555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
        55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
        555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
        55555575FFFF77555555555700007555555555577777755555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 27
      Top = 3
      Width = 25
      Height = 25
      Hint = 'A control, so you can'#39't drag the toolbar here'
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton3: TSpeedButton
      Left = 51
      Top = 3
      Width = 25
      Height = 37
      Hint = 'This is a control, so no drag here'
      ParentShowHint = False
      ShowHint = True
    end
    object Label1: TLabel
      Left = 112
      Top = 5
      Width = 97
      Height = 32
      Hint = 'This is a control, so you can'#39't drag the toolbar by draging here'
      Alignment = taCenter
      AutoSize = False
      Caption = 'Dockable toolbar (Top && left)'
      ParentShowHint = False
      ShowHint = True
      WordWrap = True
    end
  end
  object zMovePanel2: TzMovePanel
    Left = 48
    Top = 80
    Width = 137
    Height = 81
    Caption = 'Floating toolbar'
    TabOrder = 1
    object SpeedButton4: TSpeedButton
      Left = 8
      Top = 6
      Width = 25
      Height = 25
    end
    object SpeedButton5: TSpeedButton
      Left = 32
      Top = 6
      Width = 25
      Height = 25
    end
    object SpeedButton6: TSpeedButton
      Left = 56
      Top = 6
      Width = 25
      Height = 25
    end
    object SpeedButton7: TSpeedButton
      Left = 80
      Top = 6
      Width = 25
      Height = 25
    end
    object SpeedButton8: TSpeedButton
      Left = 104
      Top = 6
      Width = 25
      Height = 25
    end
    object SpeedButton9: TSpeedButton
      Left = 8
      Top = 51
      Width = 25
      Height = 25
    end
    object SpeedButton10: TSpeedButton
      Left = 32
      Top = 51
      Width = 25
      Height = 25
    end
    object SpeedButton11: TSpeedButton
      Left = 56
      Top = 51
      Width = 25
      Height = 25
    end
    object SpeedButton12: TSpeedButton
      Left = 80
      Top = 51
      Width = 25
      Height = 25
    end
    object SpeedButton13: TSpeedButton
      Left = 104
      Top = 51
      Width = 25
      Height = 25
    end
  end
  object zHint1: TzHint
    HintPosition = hpNormal
    PartOfScreen = 3
    Left = 8
    Top = 8
  end
end