www.pudn.com > JPEG_Batch_Compress__V0.18beta.rar > Unit1.dfm

object Form1: TForm1 
  Left = 204 
  Top = 191 
  BorderIcons = [biSystemMenu, biMinimize] 
  BorderStyle = bsSingle 
  Caption = 'JPEG Batch Compress V0.18beta' 
  ClientHeight = 367 
  ClientWidth = 626 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  OldCreateOrder = False 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Image1: TImage 
    Left = 584 
    Top = 0 
    Width = 33 
    Height = 33 
  end 
  object Label1: TLabel 
    Left = 16 
    Top = 24 
    Width = 85 
    Height = 16 
    Caption = 'Start Path '#65306 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -13 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [fsBold] 
    ParentFont = False 
  end 
  object Label2: TLabel 
    Left = 16 
    Top = 312 
    Width = 160 
    Height = 16 
    Caption = 'Compress Files Nunbers'#65306 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -13 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
  end 
  object Label3: TLabel 
    Left = 176 
    Top = 312 
    Width = 57 
    Height = 17 
    AutoSize = False 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -13 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
  end 
  object Button1: TButton 
    Left = 480 
    Top = 16 
    Width = 75 
    Height = 25 
    Caption = 'START(&S)' 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [fsBold] 
    ParentFont = False 
    TabOrder = 0 
    OnClick = StartButton 
  end 
  object ListBox1: TListBox 
    Left = 32 
    Top = 88 
    Width = 561 
    Height = 201 
    ItemHeight = 13 
    TabOrder = 1 
  end 
  object Edit1: TEdit 
    Left = 98 
    Top = 24 
    Width = 289 
    Height = 21 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clGray 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 2 
    Text = 'Input Start Directory' 
    OnEnter = Edit1Enter 
    OnExit = Edit1Exit 
  end 
  object ProgressBar1: TProgressBar 
    Left = 264 
    Top = 312 
    Width = 329 
    Height = 16 
    TabOrder = 3 
  end 
  object Button2: TButton 
    Left = 480 
    Top = 48 
    Width = 75 
    Height = 25 
    Caption = 'STOP' 
    Enabled = False 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [fsBold] 
    ParentFont = False 
    TabOrder = 4 
    OnClick = StopButton 
  end 
  object Button3: TButton 
    Left = 386 
    Top = 24 
    Width = 55 
    Height = 21 
    Caption = 'Select ...' 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'MS Sans Serif' 
    Font.Style = [] 
    ParentFont = False 
    TabOrder = 5 
    OnClick = SelectDir 
  end 
end