PC World Komputer 1998 April A/Pcwk4a98.iso/PROGRAM/DELPHI16/Calmira/Src/SRC/SYSPROP.DFM/SYSPROP.txt

Text File | 1997-02-17 | 12KB | 451 lines

object SysPropDlg: TSysPropDlg
  Left = 213
  Top = 100
  HelpContext = 57
  ActiveControl = OKBtn
  BorderStyle = bsDialog
  Caption = 'System Properties'
  ClientHeight = 337
  ClientWidth = 313
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object OKBtn: TBitBtn
    Left = 72
    Top = 306
    Width = 77
    Height = 27
    TabOrder = 1
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object CancelBtn: TBitBtn
    Left = 152
    Top = 306
    Width = 77
    Height = 27
    TabOrder = 2
    Kind = bkCancel
    Margin = 4
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object Notebook: TTabbedNotebook
    Left = 2
    Top = 0
    Width = 309
    Height = 303
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    OnChange = NotebookChange
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'General'
      object Bevel1: TBevel
        Left = 10
        Top = 12
        Width = 279
        Height = 65
        Shape = bsFrame
      end
      object Label2: TLabel
        Left = 20
        Top = 22
        Width = 114
        Height = 13
        Caption = '&System window caption:'
        FocusControl = CapEdit
      end
      object Label1: TLabel
        Left = 12
        Top = 96
        Width = 69
        Height = 13
        Caption = '&Preferences'
        FocusControl = PrefList
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object CapEdit: TEdit
        Left = 22
        Top = 40
        Width = 253
        Height = 20
        TabOrder = 0
      end
      object PrefList: TCheckList
        Left = 10
        Top = 114
        Width = 279
        Height = 142
        Color = clBtnFace
        IntegralHeight = True
        ItemHeight = 20
        Items.Strings = (
          'Display splash screen during loading'
          'Restore system window after loading'
          'Quit Calmira when the system window is closed'
          'Ask for confirmation before exiting the program'
          'Play system sounds when displaying messages'
          'Run taskbar program together with main module'
          'Scroll window contents when dragging scrollbar'
          'Allow Escape key to break out of long disk reads')
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Display'
      object Bevel2: TBevel
        Left = 10
        Top = 10
        Width = 279
        Height = 139
        Shape = bsFrame
      end
      object CustomBtn: TStyleSpeed
        Left = 126
        Top = 112
        Width = 147
        Height = 25
        Caption = 'Choose c&ustom colour...'
        Enabled = False
        OnClick = CustomBtnClick
        Style = sbBitBtn
      end
      object Sample: TShape
        Left = 26
        Top = 112
        Width = 89
        Height = 25
      end
      object Label3: TLabel
        Left = 26
        Top = 22
        Width = 74
        Height = 13
        Caption = 'Screen &element'
        FocusControl = Element
      end
      object Label4: TLabel
        Left = 26
        Top = 64
        Width = 74
        Height = 13
        Caption = 'System &colours:'
        FocusControl = ColorPick
      end
      object Bevel3: TBevel
        Left = 10
        Top = 162
        Width = 279
        Height = 99
        Shape = bsFrame
      end
      object Label5: TLabel
        Left = 26
        Top = 4
        Width = 29
        Height = 13
        Caption = 'Colors'
      end
      object Label6: TLabel
        Left = 26
        Top = 156
        Width = 85
        Height = 13
        Caption = 'Spacing (in pixels)'
      end
      object Label8: TLabel
        Left = 24
        Top = 178
        Width = 154
        Height = 13
        Caption = '&Width of grid for large icon views'
        FocusControl = GridWidth
      end
      object Label7: TLabel
        Left = 24
        Top = 205
        Width = 157
        Height = 13
        Caption = '&Height of grid for large icon views'
        FocusControl = GridHeight
      end
      object Label9: TLabel
        Left = 24
        Top = 232
        Width = 146
        Height = 13
        Caption = 'Height of &rows in lists and trees'
        FocusControl = RowHeight
      end
      object Element: TComboBox
        Left = 26
        Top = 38
        Width = 247
        Height = 20
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        OnChange = ElementChange
      end
      object ColorPick: TComboBox
        Left = 26
        Top = 80
        Width = 247
        Height = 20
        Style = csDropDownList
        Enabled = False
        ItemHeight = 13
        TabOrder = 1
        OnChange = ColorPickChange
      end
      object GridWidth: TSpinEdit
        Left = 206
        Top = 174
        Width = 65
        Height = 22
        MaxValue = 128
        MinValue = 8
        TabOrder = 2
        Value = 16
      end
      object GridHeight: TSpinEdit
        Left = 206
        Top = 202
        Width = 65
        Height = 22
        MaxValue = 128
        MinValue = 8
        TabOrder = 3
        Value = 16
      end
      object RowHeight: TSpinEdit
        Left = 206
        Top = 230
        Width = 65
        Height = 22
        MaxValue = 128
        MinValue = 8
        TabOrder = 4
        Value = 16
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Network'
      object Label10: TLabel
        Left = 12
        Top = 176
        Width = 52
        Height = 13
        Caption = '&Connect to'
        FocusControl = RemoteEdit
      end
      object Label11: TLabel
        Left = 12
        Top = 206
        Width = 46
        Height = 13
        Caption = '&Password'
        FocusControl = PasswordEdit
      end
      object Connect: TStyleSpeed
        Left = 104
        Top = 236
        Width = 91
        Height = 25
        Caption = 'Co&nnect'
        Enabled = False
        Glyph.Data = {
          10010000424D1001000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          330033333333333330883330000000000877330888888888087733087070707F
          087733087070707F087700087070707F087777787070707F087700087070707F
          087733087070707F087733087070707F08773308FFFFFFFF0877333000000000
          0F7733333333333330FF33333333333333003333333333333333000000000000
          0000000000000000000000000000000000000000}
        OnClick = ConnectClick
        Style = sbBitBtn
      end
      object Disconnect: TStyleSpeed
        Left = 198
        Top = 236
        Width = 91
        Height = 25
        Caption = '&Disconnect'
        Enabled = False
        Glyph.Data = {
          10010000424D1001000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333330000000000333330888888888033333087070707F003333087070707
          F0B0000087070707F0F0777787070707F0B0000087070707F0F0333087070707
          F0B0333087070707F00333308FFFFFFFF0333333000000000033333333333333
          3333333333333333333333333333333333333333333333333333000000000000
          0000000000000000000000000000000000000000}
        OnClick = ConnectClick
        Style = sbBitBtn
      end
      object RefreshNet: TStyleSpeed
        Left = 10
        Top = 236
        Width = 91
        Height = 25
        Caption = '&Refresh'
        Glyph.Data = {
          68010000424D6801000000000000760000002800000012000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777007777777
          877777000000770000777777877777000000770F000777778777770000007770
          F000777787777700000077770F000777877777000000777770F0000000877700
          00007777770F00888780770000007777777008788F7807000000777777708778
          87F788000000777777707778877F70000000770000008788777F700000000008
          78F0888F7777700000000B0878F888FF7777880000000B0878F7088777780700
          00000B0878F07088888077000000000FFFF07780008777000000770000077777
          7777770000007777777777777777770000000000000000000000000000000000
          000000000000000000000000}
        OnClick = RefreshNetClick
        Style = sbBitBtn
      end
      object DeviceList: TListBox
        Left = 10
        Top = 30
        Width = 279
        Height = 133
        ItemHeight = 16
        Style = lbOwnerDrawFixed
        TabOrder = 1
        OnClick = DeviceListClick
        OnDrawItem = DeviceListDrawItem
      end
      object Header: THeader
        Left = 10
        Top = 12
        Width = 279
        Height = 19
        Sections.Sections = (
          #0'97'#0'Local device'
          #0'156'#0'Shared device or remote server')
        TabOrder = 0
        OnSized = HeaderSized
      end
      object RemoteEdit: TEdit
        Left = 78
        Top = 174
        Width = 211
        Height = 20
        TabOrder = 2
      end
      object PasswordEdit: TEdit
        Left = 78
        Top = 204
        Width = 211
        Height = 20
        PasswordChar = '#'
        TabOrder = 3
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Advanced'
      object AddBtn: TStyleSpeed
        Left = 10
        Top = 240
        Width = 67
        Height = 25
        Caption = '&Add...'
        OnClick = AddBtnClick
        Style = sbBitBtn
      end
      object RemoveBtn: TStyleSpeed
        Left = 80
        Top = 240
        Width = 67
        Height = 25
        Caption = '&Remove'
        OnClick = RemoveBtnClick
        Style = sbBitBtn
      end
      object ModifyBtn: TStyleSpeed
        Left = 150
        Top = 240
        Width = 67
        Height = 25
        Caption = '&Modify...'
        OnClick = ModifyBtnClick
        Style = sbBitBtn
      end
      object SaveBtn: TStyleSpeed
        Left = 220
        Top = 240
        Width = 69
        Height = 25
        Caption = '&Save'
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
          00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
          00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
          00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
          00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
          0003737FFFFFFFFF7F73300999999999003337777777777777330000}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SaveBtnClick
        Style = sbBitBtn
      end
      object Outline: TScrollTree
        Left = 10
        Top = 10
        Width = 279
        Height = 223
        OutlineStyle = osPlusMinusPictureText
        Style = otOwnerDraw
        ItemHeight = 18
        OnDrawItem = OutlineDrawItem
        Color = clWhite
        TabOrder = 0
        OnClick = OutlineClick
        ItemSeparator = '\'
        PicturePlus.Data = {<image000.unknown>}
        PictureMinus.Data = {<image001.unknown>}
        PictureOpen.Data = {<image002.
BM
v>}