PC World Komputer 1997 May/Pcwk0597.iso/delphi/imagelib/bimage.df_/bimage.df/bimage.txt

Text File | 1995-11-19 | 11KB | 481 lines

object ConvertForm1: TConvertForm1
  Left = 3
  Top = 6
  Width = 622
  Height = 470
  ActiveControl = DirectoryListBox1
  Caption = 'Imagelib user'#39's example. Image Convert'
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 15
  object QualityLabel: TLabel
    Left = 202
    Top = 315
    Width = 84
    Height = 14
    Caption = 'Jpeg Save Quality '
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object SmoothLabel: TLabel
    Left = 203
    Top = 381
    Width = 83
    Height = 14
    Caption = 'Jpeg Save Smooth'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 11
    Width = 82
    Height = 15
    Caption = 'Source Directory'
  end
  object Label2: TLabel
    Left = 160
    Top = 12
    Width = 106
    Height = 15
    Caption = 'Destination Directory'
  end
  object Label3: TLabel
    Left = 384
    Top = 0
    Width = 145
    Height = 25
    Alignment = taCenter
    AutoSize = False
    Color = 12639424
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 381
    Width = 145
    Height = 21
    Color = clGray
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 268
    Width = 144
    Height = 110
    Color = clGray
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 1
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 8
    Top = 56
    Width = 145
    Height = 209
    Color = clGray
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 16
    Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG'
    MultiSelect = True
    ParentFont = False
    ShowGlyphs = True
    TabOrder = 2
    OnChange = FileListBox1Change
    OnDblClick = FileListBox1Change
  end
  object Convert: TBitBtn
    Left = 515
    Top = 363
    Width = 81
    Height = 50
    Caption = '&Convert'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = ConvertClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
      03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
      30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
      07807F777733337F7F3707888887880808807F333333337F7F37077777778800
      08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
      33003777737777333377333080333333333333F7373333333333300803333333
      33333773733333333333088033333333333373F7F33333333333308033333333
      33333737333333333333330333333333333333733333333333330000}
    Layout = blGlyphTop
    NumGlyphs = 2
    Style = bsNew
  end
  object QualitySpin: TSpinEdit
    Left = 203
    Top = 332
    Width = 49
    Height = 24
    Hint = '0 to 100 for jpeg saving quality'
    AutoSize = False
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Value = 25
    OnChange = QualitySpinChange
  end
  object Smoothspin: TSpinEdit
    Left = 203
    Top = 355
    Width = 49
    Height = 24
    Hint = '0 to 100 for jpeg smoothing quality'
    AutoSize = False
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Value = 0
    OnChange = SmoothspinChange
  end
  object GroupBox1: TGroupBox
    Left = 485
    Top = 271
    Width = 126
    Height = 81
    Hint = 'Options for viewing only'
    Caption = 'Display resolution'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    object res4: TRadioButton
      Left = 8
      Top = 17
      Width = 105
      Height = 17
      Caption = '4 bit (16 colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = ResClick
    end
    object res24: TRadioButton
      Left = 8
      Top = 61
      Width = 105
      Height = 17
      Caption = '24 bit (true color)'
      TabOrder = 1
      OnClick = ResClick
    end
    object res8: TRadioButton
      Left = 8
      Top = 38
      Width = 105
      Height = 17
      Caption = '8 bit (256 colors)'
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = ResClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 328
    Top = 331
    Width = 144
    Height = 70
    Hint = 'Options for viewing only'
    Caption = 'Display dither'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    object CheckBox1: TCheckBox
      Left = 24
      Top = 32
      Width = 97
      Height = 17
      Caption = 'Dither On/Off'
      TabOrder = 0
      OnClick = DitherClick
    end
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 32
    Width = 145
    Height = 22
    Color = clGray
    DropDownCount = 15
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ItemHeight = 14
    Items.Strings = (
      '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG'
      '*.JPG'
      '*.GIF'
      '*.PCX'
      '*.BMP'
      '*.PNG'
      '')
    ParentFont = False
    TabOrder = 8
    Text = 'Select file type'
    OnChange = ComboBox1Change
  end
  object Sstretch: TCheckBox
    Left = 291
    Top = 2
    Width = 86
    Height = 17
    Caption = 'Stretch Image'
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 9
    OnClick = SstretchOnOff
  end
  object GroupBox3: TGroupBox
    Left = 327
    Top = 186
    Width = 153
    Height = 141
    Caption = 'Convert to'
    Font.Color = clPurple
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    object CTOJPEG: TRadioButton
      Left = 16
      Top = 20
      Width = 89
      Height = 17
      Caption = 'Jpeg Images'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = CTOJPEGClick
    end
    object CTOBMP: TRadioButton
      Left = 16
      Top = 44
      Width = 89
      Height = 17
      Caption = 'BMP Images'
      TabOrder = 1
      OnClick = CTOJPEGClick
    end
    object CTOGIF: TRadioButton
      Left = 16
      Top = 69
      Width = 113
      Height = 17
      Caption = 'GIF Images'
      TabOrder = 2
      OnClick = CTOJPEGClick
    end
    object CTOPCX: TRadioButton
      Left = 16
      Top = 94
      Width = 113
      Height = 17
      Caption = 'PCX Images'
      TabOrder = 3
      OnClick = CTOJPEGClick
    end
    object CTOPNG: TRadioButton
      Left = 16
      Top = 120
      Width = 113
      Height = 17
      Caption = 'PNG Images'
      TabOrder = 4
      OnClick = CTOJPEGClick
    end
  end
  object FileListBox2: TFileListBox
    Left = 160
    Top = 32
    Width = 137
    Height = 125
    Color = clTeal
    ItemHeight = 15
    Mask = '*.JPG;*.GIF;*.PCX;*.BMP;*.PNG'
    TabOrder = 11
    OnChange = FileListBox2Change
    OnDblClick = FileListBox2Change
  end
  object DirectoryListBox2: TDirectoryListBox
    Left = 160
    Top = 160
    Width = 137
    Height = 121
    Color = clTeal
    ItemHeight = 16
    TabOrder = 12
    OnChange = DirectoryListBox2Change
  end
  object DriveComboBox2: TDriveComboBox
    Left = 160
    Top = 283
    Width = 137
    Height = 21
    Color = clTeal
    TabOrder = 13
    OnChange = DriveComboBox2Change
  end
  object MultiImage1: TPMultiImage
    Left = 328
    Top = 32
    Width = 257
    Height = 153
    Center = True
    Color = clBtnFace
    ImageName = 'file not found'
    ImageDither = True
    ImageReadRes = Color256
    ImageWriteRes = Color256
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    OnClick = MultiImage1Click
    Stretch = True
    TabOrder = 14
    TabStop = False
  end
  object GroupBox4: TGroupBox
    Left = 484
    Top = 186
    Width = 126
    Height = 81
    Hint = 'Options for Saving only'
    Caption = 'Save resolution'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    object Saveres4: TRadioButton
      Left = 8
      Top = 17
      Width = 105
      Height = 17
      Caption = '4 bit (16 colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object Saveres24: TRadioButton
      Left = 8
      Top = 61
      Width = 105
      Height = 17
      Caption = '24 bit (true color)'
      TabOrder = 1
    end
    object Saveres8: TRadioButton
      Left = 8
      Top = 38
      Width = 105
      Height = 17
      Caption = '8 bit (256 colors)'
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = SaveRes
    end
  end
  object CheckBox2: TCheckBox
    Left = 181
    Top = 349
    Width = 126
    Height = 17
    Caption = 'Save PNG Interlaced '
    TabOrder = 16
    Visible = False
    OnClick = CheckBox2Click
  end
  object MainMenu1: TMainMenu
    Left = 576
    Top = 65535
    object N1: TMenuItem
      Caption = '&File'
      object E1: TMenuItem
        Caption = 'E&xit'
        OnClick = E1Click
      end
    end
    object A1: TMenuItem
      Caption = 'Order && About'
      OnClick = A1Click
    end
  end
end