Intermedia 1998 January/inter1_98.iso/pulpit/wallwiz/wallwiz.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-02-19 | 16KB | 639 lines

object MainForm: TMainForm
  Left = 426
  Top = 211
  BorderIcons = [biHelp]
  BorderStyle = bsSingle
  Caption = 'Wall Wizard'
  ClientHeight = 279
  ClientWidth = 300
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SystemIcon: TImage
    Left = 1
    Top = 230
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.ico>}
    Visible = False
  end
  object PreviewIcon: TImage
    Left = 34
    Top = 230
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image001.ico>}
    Visible = False
  end
  object PageControl: TPageControl
    Left = 8
    Top = 8
    Width = 285
    Height = 237
    ActivePage = PreviewSheet
    TabOrder = 0
    object PreviewSheet: TTabSheet
      Caption = 'Preview'
      PopupMenu = ThumbPopup
      object Label8: TLabel
        Left = 11
        Top = 188
        Width = 88
        Height = 13
        Caption = 'Current wallpaper: '
      end
      object InstalledLabel: TLabel
        Left = 101
        Top = 188
        Width = 45
        Height = 13
        Caption = 'No Paper'
      end
      object GoButton: TButton
        Left = 188
        Top = 157
        Width = 81
        Height = 21
        Hint = 'Start or Stop Timer'
        Caption = 'Start Timer'
        TabOrder = 0
        OnClick = GoButtonClick
      end
      object NextButton: TButton
        Left = 188
        Top = 39
        Width = 81
        Height = 21
        Hint = 'Preview next image'
        Caption = 'Next'
        TabOrder = 1
        OnClick = NextButtonClick
      end
      object RestoreButton: TButton
        Left = 188
        Top = 127
        Width = 81
        Height = 21
        Hint = 'Restore default wallpaper'
        Caption = 'Restore Default'
        TabOrder = 2
        OnClick = RestoreButtonClick
      end
      object ChooseButton: TButton
        Left = 188
        Top = 98
        Width = 81
        Height = 21
        Hint = 'Select preview file from list'
        Caption = 'Choose...'
        TabOrder = 3
        OnClick = ChooseButtonClick
      end
      object Panel1: TPanel
        Left = 4
        Top = 10
        Width = 176
        Height = 169
        BevelInner = bvRaised
        BevelOuter = bvLowered
        Ctl3D = False
        ParentCtl3D = False
        PopupMenu = ThumbPopup
        TabOrder = 4
        object ThumbFrame: TShape
          Left = 11
          Top = 23
          Width = 154
          Height = 116
          Brush.Color = clBackground
          Pen.Color = clGray
        end
        object Thumbnail: TImage
          Left = 12
          Top = 24
          Width = 152
          Height = 114
          Hint = 'Click to set wallpaper'
          OnClick = ThumbnailClick
        end
        object PreviewLabel: TLabel
          Left = 5
          Top = 5
          Width = 55
          Height = 13
          Caption = 'No Preview'
        end
        object DimensionsLabel: TLabel
          Left = 152
          Top = 5
          Width = 17
          Height = 13
          Alignment = taRightJustify
          Caption = '0x0'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object TileButton: TRadioButton
          Left = 7
          Top = 146
          Width = 41
          Height = 17
          Hint = 'Show wallpaper as repeating pattern'
          Caption = 'Tile'
          Checked = True
          PopupMenu = ThumbPopup
          TabOrder = 0
          TabStop = True
          OnClick = TileCenterStretchClick
        end
        object CenterButton: TRadioButton
          Left = 55
          Top = 146
          Width = 53
          Height = 17
          Hint = 'Center wallpaper on screen'
          Caption = 'Center'
          PopupMenu = ThumbPopup
          TabOrder = 1
          OnClick = TileCenterStretchClick
        end
        object StretchButton: TRadioButton
          Left = 115
          Top = 146
          Width = 57
          Height = 17
          Hint = 'Fit image to screen'
          Caption = 'Stretch'
          PopupMenu = ThumbPopup
          TabOrder = 2
          OnClick = TileCenterStretchClick
        end
      end
      object SetWallpaperButton: TButton
        Left = 188
        Top = 9
        Width = 81
        Height = 21
        Hint = 'Install preview image as wallpaper'
        Caption = 'Set Wallpaper'
        TabOrder = 5
        OnClick = ThumbnailClick
      end
      object PreviousButton: TButton
        Left = 188
        Top = 68
        Width = 81
        Height = 21
        Hint = 'Preview previous image'
        Caption = 'Previous'
        TabOrder = 6
        OnClick = PreviousButtonClick
      end
    end
    object SettingsSheet: TTabSheet
      Caption = 'Settings'
      object TimerGroup: TGroupBox
        Left = 4
        Top = 144
        Width = 141
        Height = 63
        Caption = 'Timer'
        TabOrder = 0
        object Label2: TLabel
          Left = 9
          Top = 14
          Width = 117
          Height = 13
          Caption = 'Change wallpaper every:'
        end
        object Label6: TLabel
          Left = 45
          Top = 34
          Width = 5
          Height = 16
          Caption = ':'
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label7: TLabel
          Left = 91
          Top = 34
          Width = 5
          Height = 16
          Caption = ':'
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object MinutesSpin: TSpinEdit
          Left = 53
          Top = 33
          Width = 35
          Height = 22
          Hint = 'Minutes'
          MaxValue = 59
          MinValue = 0
          TabOrder = 0
          Value = 10
          OnChange = DelayChange
        end
        object SecondsSpin: TSpinEdit
          Left = 99
          Top = 33
          Width = 35
          Height = 22
          Hint = 'Seconds'
          MaxValue = 59
          MinValue = 0
          TabOrder = 1
          Value = 0
          OnChange = DelayChange
        end
        object HoursSpin: TSpinEdit
          Left = 7
          Top = 33
          Width = 35
          Height = 22
          Hint = 'Hours'
          MaxValue = 24
          MinValue = 0
          TabOrder = 2
          Value = 0
          OnChange = DelayChange
        end
      end
      object FindGroup: TGroupBox
        Left = 4
        Top = 2
        Width = 270
        Height = 53
        Caption = 'Find wallpaper in:'
        PopupMenu = FolderPopup
        TabOrder = 1
        object FolderCombo: TComboBox
          Left = 8
          Top = 18
          Width = 193
          Height = 21
          Hint = 'Where to find *.JPG, *.BMP. Right click to explore.'
          ItemHeight = 13
          PopupMenu = FolderPopup
          TabOrder = 0
          OnChange = FolderComboChange
        end
        object BrowseButton: TButton
          Left = 206
          Top = 18
          Width = 57
          Height = 21
          Hint = 'Choose directory'
          Caption = 'Browse...'
          PopupMenu = FolderPopup
          TabOrder = 1
          OnClick = BrowseButtonClick
        end
      end
      object OptionsGroup: TGroupBox
        Left = 4
        Top = 56
        Width = 270
        Height = 87
        Caption = 'Options'
        TabOrder = 2
        object RandomizeBox: TCheckBox
          Left = 10
          Top = 14
          Width = 81
          Height = 16
          Hint = 'Show wallpaper in random order'
          Caption = 'Randomize'
          State = cbChecked
          TabOrder = 0
        end
        object AutoStartBox: TCheckBox
          Left = 140
          Top = 14
          Width = 125
          Height = 16
          Hint = 'New wallpaper when WallWiz opens'
          Caption = 'New paper on startup'
          TabOrder = 1
        end
        object StretchBox: TCheckBox
          Left = 10
          Top = 31
          Width = 95
          Height = 16
          Hint = 'Stretch image to screen if proper aspect ratio'
          AllowGrayed = True
          Caption = 'Smart stretching'
          State = cbChecked
          TabOrder = 2
        end
        object AutoTimerBox: TCheckBox
          Left = 140
          Top = 31
          Width = 109
          Height = 16
          Hint = 'Start timer when WallWiz opens'
          Caption = 'Timer on at startup'
          TabOrder = 3
        end
        object ExitRestoreBox: TCheckBox
          Left = 10
          Top = 65
          Width = 97
          Height = 16
          Hint = 'Restore default wallpaper when WallWiz exits'
          Caption = 'Restore on exit'
          State = cbChecked
          TabOrder = 4
        end
        object LeftClickNextBox: TCheckBox
          Left = 140
          Top = 48
          Width = 109
          Height = 16
          Hint = 'Left click tray icon for next wallpaper'
          Caption = 'Click icon for next'
          TabOrder = 5
        end
        object ViewAsPaperBox: TCheckBox
          Left = 10
          Top = 48
          Width = 127
          Height = 17
          Hint = 'Use tile, center, or stretch on preview'
          Caption = 'Preview as Wallpaper'
          State = cbChecked
          TabOrder = 6
          OnClick = ViewAsPaperBoxClick
        end
        object SwapClicksBox: TCheckBox
          Left = 140
          Top = 65
          Width = 105
          Height = 17
          Hint = 'Use left mouse button for context menu'
          Caption = 'Swap icon clicks'
          State = cbChecked
          TabOrder = 7
        end
      end
      object TilingGroup: TGroupBox
        Left = 152
        Top = 144
        Width = 122
        Height = 63
        Caption = 'Allow'
        TabOrder = 3
        object Label1: TLabel
          Left = 13
          Top = 18
          Width = 57
          Height = 12
          Caption = 'Tile if margin:'
          Font.Color = clBlack
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 111
          Top = 17
          Width = 8
          Height = 13
          Caption = '%'
        end
        object Label3: TLabel
          Left = 2
          Top = 42
          Width = 68
          Height = 12
          Caption = 'Stretch if within:'
          Font.Color = clBlack
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 111
          Top = 41
          Width = 8
          Height = 13
          Caption = '%'
        end
        object MarginSpin: TSpinEdit
          Left = 71
          Top = 12
          Width = 41
          Height = 22
          Hint = '% of another image visible before auto tiling'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 1000
          MinValue = 0
          ParentFont = False
          TabOrder = 0
          Value = 50
        end
        object StretchAllowSpin: TSpinEdit
          Left = 71
          Top = 38
          Width = 41
          Height = 22
          Hint = 'Stretch if this close to screen aspect ratio'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxValue = 100
          MinValue = 0
          ParentFont = False
          TabOrder = 1
          Value = 10
        end
      end
    end
  end
  object OkButton: TButton
    Left = 54
    Top = 252
    Width = 75
    Height = 23
    Hint = 'Close this window'
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = OkButtonClick
  end
  object CancelButton: TButton
    Left = 135
    Top = 252
    Width = 75
    Height = 23
    Hint = 'Undo settings changes'
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = CancelButtonClick
  end
  object QuitButton: TButton
    Left = 216
    Top = 252
    Width = 77
    Height = 23
    Hint = 'Exit application'
    Cancel = True
    Caption = 'Exit WallWiz'
    TabOrder = 3
    OnClick = QuitButtonClick
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'Bitmap files (*.bmp)|*.bmp|JPEG files (*.jpg)|*.jpg|Image files ' +
      '(*.bmp, *.jpg)|*.bmp; *.jpg'
    FilterIndex = 3
    Left = 264
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenuPopup
    Left = 206
    object NextItem: TMenuItem
      Caption = 'Next'
      ShortCut = 0
      OnClick = NextItemClick
    end
    object GoItem: TMenuItem
      Caption = 'Start Timer'
      ShortCut = 0
      OnClick = GoButtonClick
    end
    object ChooseItem: TMenuItem
      Caption = 'Choose...'
      ShortCut = 0
      OnClick = ChooseItemClick
    end
    object RestoreItem: TMenuItem
      Caption = 'Restore Default'
      ShortCut = 0
      OnClick = RestoreButtonClick
    end
    object Spud1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PropertiesItem: TMenuItem
      Caption = 'Properties...'
      Default = True
      ShortCut = 0
      OnClick = PropertiesItemClick
    end
    object AboutItem: TMenuItem
      Caption = 'About...'
      ShortCut = 0
      OnClick = AboutItemClick
    end
    object ExitItem: TMenuItem
      Caption = 'Exit WallWiz'
      ShortCut = 0
      OnClick = QuitButtonClick
    end
  end
  object Timer: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = TimerTimer
    Left = 236
  end
  object ThumbPopup: TPopupMenu
    OnPopup = ThumbPopupPopup
    Left = 177
    object ViewAsPaperItem: TMenuItem
      Caption = 'Preview as Wallpaper'
      ShortCut = 0
      OnClick = ViewAsPaperItemClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ViewDefaultItem: TMenuItem
      Caption = 'Preview Windows Default'
      ShortCut = 0
      OnClick = ViewDefaultItemClick
    end
    object InstallDefaultItem: TMenuItem
      Caption = 'Install as Windows Default'
      ShortCut = 0
      OnClick = InstallDefaultItemClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ReloadItem: TMenuItem
      Caption = 'Reload Preview'
      ShortCut = 0
      OnClick = ReloadItemClick
    end
    object OpenPreviewItem: TMenuItem
      Caption = 'Open Image in Shell'
      ShortCut = 0
      OnClick = OpenPreviewItemClick
    end
    object ExploreCurrentFolderItem: TMenuItem
      Caption = 'Explore Current Folder'
      ShortCut = 0
      OnClick = ExploreItemClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
  end
  object FolderPopup: TPopupMenu
    Left = 150
    object OpenItem: TMenuItem
      Caption = 'Open Folder'
      ShortCut = 0
      OnClick = OpenItemClick
    end
    object ExploreItem: TMenuItem
      Caption = 'Explore Folder'
      ShortCut = 0
      OnClick = ExploreItemClick
    end
    object Browse1: TMenuItem
      Caption = 'Browse...'
      ShortCut = 0
      OnClick = BrowseButtonClick
    end
  end
end