Freelog 34/Freelog034.iso/Bas/Internet/Netedit/_SETUP.1/netedit.exe/0/RCDATA/TCHIMAGE/TCHIMAGE.txt

Text File | 2002-01-17 | 4.9 KB | 267 lines

object chimage: Tchimage
  Left = 94
  Top = 77
  Width = 640
  Height = 480
  Caption = 'Choix d'#39'une image'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 128
    Height = 13
    Caption = 'G:\Developpement\netedit'
  end
  object DriveComboBox1: TDriveComboBox
    Left = 168
    Top = 136
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 4
  end
  object FilterComboBox1: TFilterComboBox
    Left = 8
    Top = 136
    Width = 145
    Height = 21
    FileList = FileListBox1
    Filter =
      'Fichiers Images (*.gif,*.jpg,*.png)|*.gif;*.jpg;*.png|Fichiers B' +
      'itmap (*.bmp)|*.bmp|Tous les fichiers (*.*)|*.*'
    TabOrder = 2
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 168
    Top = 24
    Width = 145
    Height = 105
    DirLabel = Label1
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 3
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 8
    Top = 48
    Width = 145
    Height = 81
    FileEdit = Edit1
    ItemHeight = 16
    Mask = '*.gif;*.jpg;*.png'
    TabOrder = 1
    OnChange = FileListBox1Change
    OnDblClick = FileListBox1DblClick
  end
  object Edit1: TEdit
    Left = 8
    Top = 24
    Width = 145
    Height = 21
    TabOrder = 0
    Text = '*.gif;*.jpg;*.png'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 160
    Width = 305
    Height = 177
    Caption = 'Caract�ristiques de l'#39'image'
    TabOrder = 5
    object Label2: TLabel
      Left = 16
      Top = 32
      Width = 38
      Height = 13
      Caption = 'Hauteur'
    end
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 36
      Height = 13
      Caption = 'Largeur'
    end
    object Label4: TLabel
      Left = 16
      Top = 128
      Width = 92
      Height = 13
      Caption = 'Texte de sustitution'
    end
    object Edit2: TEdit
      Left = 144
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 144
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 96
      Width = 97
      Height = 17
      Caption = 'Border'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox1Click
    end
    object ComboBox1: TComboBox
      Left = 144
      Top = 88
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9')
    end
    object Edit4: TEdit
      Left = 144
      Top = 120
      Width = 121
      Height = 21
      TabOrder = 4
    end
  end
  object Panel1: TPanel
    Left = 328
    Top = 8
    Width = 297
    Height = 441
    TabOrder = 11
    object ScrollBox1: TScrollBox
      Left = 1
      Top = 1
      Width = 295
      Height = 439
      Align = alClient
      TabOrder = 0
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 161
        Height = 217
        AutoSize = True
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 40
    Top = 416
    Width = 75
    Height = 25
    TabOrder = 8
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 120
    Top = 416
    Width = 75
    Height = 25
    TabOrder = 9
    Kind = bkCancel
  end
  object BitBtn3: TBitBtn
    Left = 200
    Top = 416
    Width = 75
    Height = 25
    TabOrder = 10
    OnClick = BitBtn3Click
    Kind = bkHelp
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 344
    Width = 177
    Height = 65
    Caption = 'Conversion en Jpeg'
    TabOrder = 6
    object Label5: TLabel
      Left = 80
      Top = 32
      Width = 8
      Height = 13
      Caption = '%'
    end
    object ComboBox2: TComboBox
      Left = 8
      Top = 24
      Width = 65
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = '80'
      Items.Strings = (
        '10'
        '20'
        '30'
        '40'
        '50'
        '60'
        '70'
        '80'
        '90'
        '100')
    end
    object BitBtn4: TBitBtn
      Left = 96
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Convertir'
      TabOrder = 1
      OnClick = BitBtn4Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 192
    Top = 344
    Width = 121
    Height = 65
    Caption = 'Conversion en Png'
    TabOrder = 7
    object BitBtn5: TBitBtn
      Left = 24
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Convertir'
      TabOrder = 0
      OnClick = BitBtn5Click
    end
  end
end