Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/rzcomps.exe/DEMO/TBARFRM.DF_/TBARFRM.DF/TBARFRM.txt

Text File | 1996-10-18 | 7KB | 288 lines

object FrmToolbar: TFrmToolbar
  Left = 200
  Top = 99
  Width = 568
  Height = 307
  Caption = 'RzToolbar & RzStatusBar Components'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object Toolbar1: TRzToolbar
    Left = 0
    Top = 0
    Width = 560
    Hint = 'This is an RzToolbar'
    ParentShowHint = False
    TabOrder = 0
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 240
    Width = 560
    TabOrder = 1
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 85
      Height = 23
      Hint = 'This is an RzStatusPane'
      Align = alLeft
      Caption = 'Overwrite'
    end
    object RzClockStatus1: TRzClockStatus
      Left = 85
      Top = 0
      Width = 105
      Height = 23
      Hint = 'This is an RzClockStatus'
      Align = alLeft
      Format = 'ddddd t'
    end
    object RzKeyStatus1: TRzKeyStatus
      Left = 190
      Top = 0
      Width = 40
      Height = 23
      Hint = 'This is an RzKeyStatus'
      Align = alLeft
      Enabled = False
    end
    object RzKeyStatus2: TRzKeyStatus
      Left = 230
      Top = 0
      Width = 40
      Height = 23
      Hint = 'This is an RzKeyStatus'
      Align = alLeft
      Enabled = False
      Key = tkNumLock
    end
    object RzKeyStatus3: TRzKeyStatus
      Left = 270
      Top = 0
      Width = 40
      Height = 23
      Hint = 'This is an RzKeyStatus'
      Align = alLeft
      Enabled = False
      Key = tkScrollLock
    end
    object RzResourceStatus1: TRzResourceStatus
      Left = 310
      Top = 0
      Width = 132
      Height = 23
      Hint = 'System: 66%'
      Align = alLeft
      ParentShowHint = False
      ShowHint = True
      BackColor = clBtnFace
      ShowPercent = True
    end
    object RzGlyphStatus1: TRzGlyphStatus
      Left = 442
      Top = 0
      Width = 118
      Height = 23
      Hint = 'This is an RzGlyphStatus'
      Align = alClient
      Caption = 'Alarm Set'
      Glyph.Data = {
        36010000424D3601000000000000760000002800000012000000100000000100
        040000000000C000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666680
        8666660000006666666666000666660000006666688888888666660000006668
        87777777788666000000668777FFF7777780660000006687FF77777778806600
        0000666877777777880666000000666687777777806666000000666687777777
        806666000000666687777777806666000000666687FF77778066660000006666
        6877777806666600000066666688888066666600000066666668770666666600
        000066666668F706666666000000666666668866666666000000}
      GlyphOffset = 4
    end
  end
  object PnlWorkspace: TRzPanel
    Left = 0
    Top = 32
    Width = 560
    Height = 208
    Align = alClient
    BorderOuter = fsLowered
    FrameSides = []
    TabOrder = 2
    object RzLabel7: TRzLabel
      Left = 8
      Top = 12
      Width = 549
      Height = 33
      TextStyle = tsNormal
      AutoSize = False
      Caption =
        'The RzToolbar and RzStatusBar components both automatically adju' +
        'st their style according to the operation system.'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object RzLabel8: TRzLabel
      Left = 8
      Top = 32
      Width = 405
      Height = 45
      TextStyle = tsNormal
      AutoSize = False
      Caption =
        'When running under the new Windows 95 style interface, the ShowD' +
        'ivider property of RzToolbar can be used to insert a groove divi' +
        'der between a menu or other toolbars.'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object RzLabel9: TRzLabel
      Left = 8
      Top = 72
      Width = 417
      Height = 49
      TextStyle = tsNormal
      AutoSize = False
      Caption =
        'Both components have custom component editors which make it easy' +
        ' to populate each control with other components.  Try it now for' +
        ' the toolbar by pressing the Edit Toolbar button.  New buttons a' +
        're added to the toolbar by simply pressing them in the editor.'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object BtnToolbarEdit: TButton
      Left = 468
      Top = 76
      Width = 75
      Height = 25
      Caption = 'Edit Toolbar'
      TabOrder = 0
      OnClick = BtnToolbarEditClick
    end
    object ChkShowDivider: TCheckBox
      Left = 468
      Top = 40
      Width = 85
      Height = 17
      Caption = 'Show Divider'
      State = cbChecked
      TabOrder = 1
      OnClick = ChkShowDividerClick
    end
    object RzPanel1: TRzPanel
      Left = 2
      Top = 140
      Width = 556
      Height = 66
      Align = alBottom
      BorderOuter = fsNone
      FrameSides = []
      TabOrder = 2
      object RzLabel1: TRzLabel
        Left = 8
        Top = 51
        Width = 64
        Height = 13
        TextStyle = tsNormal
        Caption = 'Simple Status'
      end
      object RzLabel2: TRzLabel
        Left = 92
        Top = 51
        Width = 91
        Height = 13
        TextStyle = tsNormal
        Caption = 'Date && Time Status'
      end
      object RzLabel3: TRzLabel
        Left = 208
        Top = 51
        Width = 78
        Height = 13
        TextStyle = tsNormal
        Caption = 'Keyboard Status'
      end
      object RzLabel4: TRzLabel
        Left = 316
        Top = 51
        Width = 116
        Height = 13
        TextStyle = tsNormal
        Caption = 'System Resource Status'
      end
      object RzLabel5: TRzLabel
        Left = 468
        Top = 51
        Width = 60
        Height = 13
        TextStyle = tsNormal
        Caption = 'Glyph Status'
      end
      object RzBorder1: TRzBorder
        Left = 0
        Top = 36
        Width = 556
        Height = 30
        BorderSides = [sdTop]
        Align = alBottom
      end
      object RzLabel6: TRzLabel
        Left = 200
        Top = 30
        Width = 145
        Height = 13
        TextStyle = tsRaised
        Caption = 'Specialized Status Panes'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object BtnDone: TButton
        Left = 465
        Top = 4
        Width = 75
        Height = 25
        Caption = 'Done'
        ModalResult = 1
        TabOrder = 0
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 465
    Top = 4
    object File1: TMenuItem
      Caption = '&File'
      object Close1: TMenuItem
        Caption = '&Close'
        OnClick = Close1Click
      end
    end
  end
end