Practical Internet 2001 July/Practical Internet July 2001.iso/Software/Full/WebGraphics/GTImageViewer.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2001-09-22 | 7.7 KB | 408 lines

object Form1: TForm1
  Left = 77
  Top = 101
  Anchors = [akTop]
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'GT Image Viewer (c)2001 Guildhall Leisure - By Gary Thomlinson'
  ClientHeight = 364
  ClientWidth = 577
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Backdrop: TImage
    Left = 0
    Top = 0
    Width = 577
    Height = 364
    AutoSize = True
    Picture.Data = {<image001.bmp>}
  end
  object Image1: TImage
    Left = 24
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    ParentShowHint = False
    ShowHint = False
    Stretch = True
    OnClick = Image1Click
  end
  object Image2: TImage
    Left = 24
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image2Click
  end
  object Image3: TImage
    Left = 112
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    ParentShowHint = False
    ShowHint = False
    Stretch = True
    OnClick = Image3Click
  end
  object Image4: TImage
    Left = 112
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image4Click
  end
  object Image5: TImage
    Left = 200
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image5Click
  end
  object Image6: TImage
    Left = 200
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image6Click
  end
  object Image7: TImage
    Left = 288
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image7Click
  end
  object Image8: TImage
    Left = 288
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image8Click
  end
  object Image9: TImage
    Left = 376
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image9Click
  end
  object BlankImage: TImage
    Left = 521
    Top = 417
    Width = 48
    Height = 24
    Picture.Data = {<image002.bmp>}
    Stretch = True
  end
  object Image10: TImage
    Left = 8
    Top = 416
    Width = 33
    Height = 33
    AutoSize = True
  end
  object Image11: TImage
    Left = 8
    Top = 456
    Width = 33
    Height = 33
  end
  object Image13: TImage
    Left = 376
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image13Click
  end
  object Image14: TImage
    Left = 464
    Top = 136
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image14Click
  end
  object Image15: TImage
    Left = 464
    Top = 216
    Width = 81
    Height = 73
    Cursor = crHandPoint
    Stretch = True
    OnClick = Image15Click
  end
  object ExitImage: TImage
    Left = 512
    Top = 320
    Width = 49
    Height = 33
    Cursor = crHandPoint
    OnClick = ExitImageClick
  end
  object WebsiteImage: TImage
    Left = 408
    Top = 320
    Width = 97
    Height = 33
    Cursor = crHandPoint
    OnClick = WebsiteImageClick
  end
  object CopyToClipImage: TImage
    Left = 264
    Top = 320
    Width = 129
    Height = 33
    Cursor = crHandPoint
    OnClick = CopyToClipImageClick
  end
  object ViewImage: TImage
    Left = 184
    Top = 320
    Width = 73
    Height = 33
    Cursor = crHandPoint
    OnClick = ViewImageClick
  end
  object SaveImage: TImage
    Left = 16
    Top = 320
    Width = 73
    Height = 33
    Cursor = crHandPoint
    OnClick = SaveImageJPGClick
  end
  object Textures: TImage
    Left = 16
    Top = 62
    Width = 105
    Height = 24
    Cursor = crHandPoint
    OnClick = ButtonsClick
  end
  object Photos: TImage
    Left = 128
    Top = 62
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = IconsClick
  end
  object Borders: TImage
    Left = 232
    Top = 62
    Width = 105
    Height = 24
    Cursor = crHandPoint
    OnClick = PartsClick
  end
  object Food: TImage
    Left = 16
    Top = 96
    Width = 105
    Height = 24
    Cursor = crHandPoint
    OnClick = GFONTSClick
  end
  object Holiday: TImage
    Left = 128
    Top = 96
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = TilesClick
  end
  object Kids: TImage
    Left = 232
    Top = 96
    Width = 105
    Height = 24
    Cursor = crHandPoint
    OnClick = GIFClick
  end
  object Music: TImage
    Left = 344
    Top = 96
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = FontViewClick
  end
  object Plants: TImage
    Left = 456
    Top = 96
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = HelpOnFontsClick
  end
  object Fonts: TImage
    Left = 344
    Top = 62
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = PatternsClick
  end
  object HelpFonts: TImage
    Left = 456
    Top = 62
    Width = 97
    Height = 24
    Cursor = crHandPoint
    OnClick = BannersClick
  end
  object SaveImage2: TImage
    Left = 88
    Top = 320
    Width = 81
    Height = 33
    OnClick = SaveImageBMPClick
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 496
    Width = 249
    Height = 265
    Cursor = crHandPoint
    Hint = 'Select the appropriate folder here...'
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = DirectoryListBox1Change
    OnEnter = DirectoryListBox1Enter
  end
  object Button1: TButton
    Left = 368
    Top = 560
    Width = 105
    Height = 17
    Cursor = crHandPoint
    Caption = 'View our Website'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 480
    Top = 560
    Width = 105
    Height = 17
    Cursor = crHandPoint
    Caption = 'View our Catalogue'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 592
    Top = 560
    Width = 105
    Height = 17
    Cursor = crHandPoint
    Caption = 'Technical Support'
    TabOrder = 3
    OnClick = Button3Click
  end
  object ScrollBar1: TScrollBar
    Left = 24
    Top = 296
    Width = 521
    Height = 17
    Cursor = crHandPoint
    LargeChange = 8
    PageSize = 0
    SmallChange = 2
    TabOrder = 4
    OnChange = ScrollBar1Change
  end
  object Button4: TButton
    Left = 840
    Top = 560
    Width = 73
    Height = 17
    Cursor = crHandPoint
    Cancel = True
    Caption = 'Exit'
    TabOrder = 5
    OnClick = Button4Click
  end
  object GenerateThumbnailsButton: TButton
    Left = 48
    Top = 456
    Width = 521
    Height = 33
    Caption = 'Generate Thumbnails'
    TabOrder = 6
    OnClick = GenerateThumbnailsButtonClick
  end
  object FontsButton: TButton
    Left = 704
    Top = 560
    Width = 113
    Height = 17
    Caption = 'View the Fonts'
    TabOrder = 7
    OnClick = FontsButtonClick
  end
  object MediaPlayer1: TMediaPlayer
    Left = 104
    Top = 376
    Width = 57
    Height = 20
    EnabledButtons = [btPlay, btStop]
    VisibleButtons = [btPlay, btStop]
    AutoOpen = True
    AutoRewind = False
    DeviceType = dtWaveAudio
    FileName = 'formload.wav'
    Visible = False
    TabOrder = 8
  end
  object SaveDialog1: TSaveDialog
    Left = 312
    Top = 392
  end
end