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 = {} 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