Chip 2000 November/Chip_2000-11_cd2.bin/sharewar/2020/SETUP.EXE/%MAINDIR%/2020.exe/0/RCDATA/TNAILCONTROL/TNAILCONTROL.txt

Text File | 2000-09-13 | 12.6 KB | 595 lines

object NailControl: TNailControl
  Left = 78
  Top = 68
  Width = 648
  Height = 488
  BorderIcons = [biSystemMenu]
  Caption = '20/20 Thumb Nail Generator'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object FileListBox: TFileListBox
    Left = 4
    Top = 6
    Width = 188
    Height = 293
    DragCursor = crMultiDrag
    DragMode = dmAutomatic
    ItemHeight = 16
    Mask = '*.gif;*.jpg;*.jpeg;*.bmp;*.eps;*.tif;*.dib'
    MultiSelect = True
    ShowGlyphs = True
    TabOrder = 0
    OnChange = FileListBoxChange
    OnDblClick = FileListBoxDblClick
  end
  object Button1: TButton
    Left = 4
    Top = 326
    Width = 189
    Height = 25
    Caption = 'Change Directory'
    TabOrder = 2
    OnClick = Button1Click
  end
  object FilterComboBox1: TFilterComboBox
    Left = 5
    Top = 301
    Width = 188
    Height = 21
    FileList = FileListBox
    Filter =
      'All Graphics|*.gif;*.jpg;*.jpeg;*.bmp;*.eps;*.tif;*.dib|JPEG|*.j' +
      'pg;*.jpeg|GIF|*.gif|BMP|*.bmp;*.dib'
    TabOrder = 1
  end
  object hImage: TPMultiImage
    Left = 108
    Top = 243
    Width = 40
    Height = 37
    GrabHandCursor = 5
    Scrolling = True
    ShowScrollbars = True
    B_W_CopyFlags = [C_DEL]
    Color = clBtnFace
    ImageReadRes = lAutoMatic
    BlitMode = sLight
    ImageWriteRes = sAutoMatic
    TifSaveCompress = sNONE
    TiffPage = 0
    TiffAppend = False
    JPegSaveQuality = 25
    JPegSaveSmooth = 5
    RubberBandBtn = mbLeft
    ScrollbarWidth = 12
    ParentColor = True
    TextLeft = 0
    TextTop = 0
    TextRotate = 0
    TabOrder = 6
    TabStop = False
    Visible = False
    ZoomBy = 10
  end
  object pcOptions: TPageControl
    Left = 206
    Top = 304
    Width = 422
    Height = 150
    ActivePage = tsGeneral
    TabOrder = 8
    object tsGeneral: TTabSheet
      Caption = 'General'
      object Label2: TLabel
        Left = 183
        Top = 6
        Width = 58
        Height = 13
        Caption = 'Background'
      end
      object Label4: TLabel
        Left = 207
        Top = 27
        Width = 34
        Height = 13
        Caption = 'Frames'
      end
      object Label5: TLabel
        Left = 188
        Top = 47
        Width = 53
        Height = 13
        Caption = 'Description'
      end
      object cbPreview: TCheckBox
        Left = 90
        Top = 102
        Width = 63
        Height = 17
        Caption = 'Preview'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = cbPreviewClick
      end
      object cbAspect: TCheckBox
        Left = 90
        Top = 83
        Width = 78
        Height = 17
        Caption = 'Use Aspect'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = cbAspectClick
      end
      object pbgcolor: TPanel
        Left = 247
        Top = 5
        Width = 38
        Height = 16
        TabOrder = 4
        OnClick = pbgcolorClick
      end
      object cbthumbSize: TRadioGroup
        Left = 4
        Top = 0
        Width = 81
        Height = 119
        Caption = 'Thumb Size'
        ItemIndex = 2
        Items.Strings = (
          'Smallest'
          'Small'
          'Normal'
          'Large'
          'Largest')
        TabOrder = 0
        OnClick = cbthumbSizeClick
      end
      object DropMethod: TRadioGroup
        Left = 311
        Top = 0
        Width = 85
        Height = 81
        Caption = 'Drop Method'
        ItemIndex = 0
        Items.Strings = (
          'Append'
          'On Target'
          'Sort')
        TabOrder = 9
        OnClick = DropMethodClick
      end
      object cbScanSub: TCheckBox
        Left = 179
        Top = 82
        Width = 120
        Height = 17
        Caption = 'Scan Sub-Directories'
        TabOrder = 7
      end
      object pfcolor: TPanel
        Left = 247
        Top = 25
        Width = 38
        Height = 16
        TabOrder = 5
        OnClick = pfcolorClick
      end
      object pdcolor: TPanel
        Left = 247
        Top = 45
        Width = 38
        Height = 16
        Color = clBlack
        TabOrder = 6
        OnClick = pdcolorClick
      end
      object cbSSmall: TCheckBox
        Left = 179
        Top = 101
        Width = 98
        Height = 17
        Caption = 'Stretch Smaller'
        TabOrder = 8
      end
      object GroupBox2: TGroupBox
        Left = 89
        Top = 0
        Width = 79
        Height = 78
        Caption = 'Margins'
        TabOrder = 1
        object Label6: TLabel
          Left = 5
          Top = 20
          Width = 19
          Height = 13
          Caption = 'L/R'
        end
        object Label7: TLabel
          Left = 5
          Top = 51
          Width = 19
          Height = 13
          Caption = 'T/B'
        end
        object SELR: TSpinEdit
          Left = 30
          Top = 16
          Width = 43
          Height = 22
          MaxValue = 1000
          MinValue = 0
          TabOrder = 0
          Value = 5
          OnChange = SELRChange
        end
        object SETB: TSpinEdit
          Left = 30
          Top = 47
          Width = 43
          Height = 22
          MaxValue = 1000
          MinValue = 0
          TabOrder = 1
          Value = 5
          OnChange = SETBChange
        end
      end
    end
    object tsFrames: TTabSheet
      Caption = 'Frames'
      object Label1: TLabel
        Left = 274
        Top = 9
        Width = 69
        Height = 13
        Caption = 'Images Across'
      end
      object Label3: TLabel
        Left = 291
        Top = 37
        Width = 52
        Height = 13
        Caption = 'Gutter Size'
      end
      object cbFrames: TRadioGroup
        Left = 3
        Top = 5
        Width = 78
        Height = 105
        Caption = 'Bevel Width'
        ItemIndex = 0
        Items.Strings = (
          'Thin'
          'Normal'
          'Thick'
          'Thicker'
          'Thickest')
        TabOrder = 0
        OnClick = cbFramesClick
      end
      object cbOBevel: TRadioGroup
        Left = 89
        Top = 5
        Width = 85
        Height = 105
        Caption = 'Outer Bevel'
        ItemIndex = 2
        Items.Strings = (
          'None'
          'Lowered'
          'Raised')
        TabOrder = 1
        OnClick = cbOBevelClick
      end
      object cbIBevel: TRadioGroup
        Left = 181
        Top = 5
        Width = 86
        Height = 105
        Caption = 'Inner Bevel'
        ItemIndex = 0
        Items.Strings = (
          'None'
          'Lowered'
          'Raised')
        TabOrder = 2
        OnClick = cbIBevelClick
      end
      object ThumbCols: TSpinEdit
        Left = 349
        Top = 7
        Width = 38
        Height = 22
        MaxValue = 25
        MinValue = 1
        TabOrder = 3
        Value = 5
        OnChange = ThumbColsChange
      end
      object GutterSize: TSpinEdit
        Left = 349
        Top = 33
        Width = 38
        Height = 22
        MaxValue = 100
        MinValue = 0
        TabOrder = 4
        Value = 5
        OnChange = GutterSizeChange
      end
      object GroupBox1: TGroupBox
        Left = 303
        Top = 61
        Width = 86
        Height = 52
        Caption = 'Description'
        TabOrder = 5
        object cbdfilename: TCheckBox
          Left = 7
          Top = 14
          Width = 72
          Height = 17
          Caption = 'File Name'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = cbdfilenameClick
        end
        object cbdfsize: TCheckBox
          Left = 7
          Top = 31
          Width = 68
          Height = 17
          Caption = 'File Size'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = cbdfilenameClick
        end
      end
    end
    object tsOutput: TTabSheet
      Caption = 'Output'
      object rgOutType: TRadioGroup
        Left = 7
        Top = 8
        Width = 116
        Height = 105
        Caption = 'Output Type'
        ItemIndex = 0
        Items.Strings = (
          'Preview Window'
          '20/20'
          'File'
          'Html')
        TabOrder = 0
      end
    end
    object tsHTML1: TTabSheet
      Caption = 'Html Options 1'
      object Label11: TLabel
        Left = 45
        Top = 79
        Width = 42
        Height = 13
        Caption = 'Prologue'
      end
      object Label12: TLabel
        Left = 46
        Top = 103
        Width = 41
        Height = 13
        Caption = 'Epilogue'
      end
      object Label8: TLabel
        Left = 16
        Top = 6
        Width = 71
        Height = 13
        Caption = 'Html File Name'
      end
      object Label9: TLabel
        Left = 18
        Top = 30
        Width = 69
        Height = 13
        Caption = 'Base Directory'
      end
      object Label10: TLabel
        Left = 13
        Top = 55
        Width = 74
        Height = 13
        Caption = 'Image Directory'
      end
      object htmlprologue: TEdit
        Left = 93
        Top = 76
        Width = 229
        Height = 21
        TabOrder = 3
        OnDblClick = Button5Click
        OnEnter = htmlfnameExit
        OnExit = htmlfnameExit
      end
      object htmlepilogue: TEdit
        Left = 93
        Top = 100
        Width = 229
        Height = 21
        TabOrder = 4
        OnDblClick = Button5Click
        OnEnter = htmlfnameExit
        OnExit = htmlfnameExit
      end
      object htmlfname: TEdit
        Left = 93
        Top = 3
        Width = 229
        Height = 21
        TabOrder = 0
        OnDblClick = Button5Click
        OnEnter = htmlfnameExit
        OnExit = htmlfnameExit
      end
      object Button5: TButton
        Left = 331
        Top = 49
        Width = 75
        Height = 25
        Caption = 'Browse'
        TabOrder = 5
        OnClick = Button5Click
      end
      object htmlbdir: TEdit
        Left = 93
        Top = 27
        Width = 229
        Height = 21
        TabOrder = 1
        OnDblClick = Button5Click
        OnEnter = htmlfnameExit
        OnExit = htmlfnameExit
      end
      object htmlidir: TEdit
        Left = 93
        Top = 52
        Width = 229
        Height = 21
        TabOrder = 2
        OnDblClick = Button5Click
        OnEnter = htmlfnameExit
        OnExit = htmlfnameExit
      end
    end
    object tshtml2: TTabSheet
      Caption = '2'
      object rgthumbtype: TRadioGroup
        Left = 6
        Top = 5
        Width = 88
        Height = 105
        Caption = 'Thumb Type'
        ItemIndex = 0
        Items.Strings = (
          'GIF'
          'JPEG'
          'PNG'
          'Original')
        TabOrder = 0
      end
      object rgimagetype: TRadioGroup
        Left = 102
        Top = 5
        Width = 94
        Height = 105
        Caption = 'Image Link Type'
        Enabled = False
        ItemIndex = 0
        Items.Strings = (
          'GIF'
          'JPEG'
          'PNG'
          'Original')
        TabOrder = 1
      end
      object cbLink: TCheckBox
        Left = 210
        Top = 14
        Width = 97
        Height = 17
        Caption = 'Link To Original'
        TabOrder = 2
        OnClick = cbLinkClick
      end
      object cbhtmlpreview: TCheckBox
        Left = 210
        Top = 53
        Width = 135
        Height = 17
        Caption = 'Preview After Generate'
        TabOrder = 3
      end
    end
  end
  object Gridbox: TScrollBox
    Left = 206
    Top = 2
    Width = 419
    Height = 297
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Color = clSilver
    ParentColor = False
    TabOrder = 7
  end
  object Button2: TButton
    Left = 4
    Top = 360
    Width = 189
    Height = 25
    Caption = 'Scan and Load'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 4
    Top = 395
    Width = 189
    Height = 25
    Caption = 'Clear Thumbnails'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 4
    Top = 429
    Width = 189
    Height = 25
    Caption = 'Generate'
    TabOrder = 5
    OnClick = Button4Click
  end
  object BrowseFolder1: TBrowseFolder
    Title = 'Select Image Directory'
    Flags = [bfFileSysDirsOnly, bfStatusText]
    ShowPathInStatusArea = True
    SyncCustomButton = False
    Left = 277
    Top = 223
  end
  object cd: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen]
    Left = 214
    Top = 222
  end
  object fd: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 245
    Top = 223
  end
  object od: TOpenDialog
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 318
    Top = 223
  end
end