home *** CD-ROM | disk | FTP | other *** search
- object RedimForm: TRedimForm
- Left = 315
- Top = 186
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Taille de l'#39'image'
- ClientHeight = 444
- ClientWidth = 312
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object BAnnuler: TButton
- Left = 222
- Top = 404
- Width = 75
- Height = 25
- Caption = 'Annuler'
- ModalResult = 2
- TabOrder = 4
- end
- object BOk: TButton
- Left = 136
- Top = 404
- Width = 75
- Height = 25
- Caption = 'Ok'
- TabOrder = 3
- OnClick = BOkClick
- end
- object GBOld: TGroupBox
- Left = 16
- Top = 16
- Width = 281
- Height = 78
- Caption = ' Taille en pixels / M'#233'moire (Fond) '
- Enabled = False
- TabOrder = 0
- object Label3: TLabel
- Left = 16
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Largeur :'
- end
- object Label4: TLabel
- Left = 104
- Top = 24
- Width = 44
- Height = 13
- Caption = 'Hauteur :'
- end
- object Label5: TLabel
- Left = 192
- Top = 24
- Width = 46
- Height = 13
- Caption = 'M'#233'moire :'
- end
- object EdiLargeur: TEdit
- Left = 16
- Top = 40
- Width = 73
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 0
- end
- object EdiHauteur: TEdit
- Left = 104
- Top = 40
- Width = 73
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 1
- end
- object EdiMem: TEdit
- Left = 192
- Top = 40
- Width = 73
- Height = 21
- ParentColor = True
- ReadOnly = True
- TabOrder = 2
- end
- end
- object GroupBox1: TGroupBox
- Left = 16
- Top = 102
- Width = 281
- Height = 259
- Caption = ' Nouvelle taille '
- TabOrder = 1
- object Label1: TLabel
- Left = 16
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Largeur :'
- end
- object Label2: TLabel
- Left = 16
- Top = 72
- Width = 44
- Height = 13
- Caption = 'Hauteur :'
- end
- object Image1: TImage
- Left = 110
- Top = 48
- Width = 16
- Height = 55
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object LblRes: TLabel
- Left = 16
- Top = 120
- Width = 56
- Height = 13
- Caption = 'R'#233'solution :'
- end
- object LblResample: TLabel
- Left = 34
- Top = 202
- Width = 95
- Height = 13
- Caption = 'R'#233#233'chantillonnage :'
- OnClick = LblResampleClick
- end
- object EdiL: TFloatSpinEdit
- Left = 16
- Top = 40
- Width = 89
- Height = 21
- Format = '0'
- Increment = 1.000000000000000000
- MaxLength = 7
- MaxValue = 10000.000000000000000000
- ShowUpDown = True
- TabOrder = 0
- Value = 1.000000000000000000
- OnChange = EdiLChange
- end
- object EdiH: TFloatSpinEdit
- Left = 16
- Top = 88
- Width = 89
- Height = 21
- Format = '0'
- Increment = 1.000000000000000000
- MaxLength = 7
- MaxValue = 10000.000000000000000000
- ShowUpDown = True
- TabOrder = 1
- Value = 1.000000000000000000
- OnChange = EdiHChange
- end
- object CmbUnit: TComboBox
- Left = 131
- Top = 65
- Width = 94
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 2
- Text = 'pixels'
- OnChange = CmbUnitChange
- Items.Strings = (
- 'pixels'
- '%'
- 'cm'
- 'pouces')
- end
- object CBProportions: TCheckBox
- Left = 16
- Top = 176
- Width = 193
- Height = 17
- Caption = 'Conserver les proportions'
- Checked = True
- State = cbChecked
- TabOrder = 5
- OnClick = CBProportionsClick
- end
- object EdiRes: TFloatSpinEdit
- Left = 16
- Top = 136
- Width = 89
- Height = 21
- Format = '0.00'
- Increment = 1.000000000000000000
- MaxLength = 7
- MaxValue = 20000.000000000000000000
- MinValue = 10.000000000000000000
- ShowUpDown = True
- TabOrder = 3
- Value = 72.000000000000000000
- OnChange = EdiResChange
- end
- object CmbRes: TComboBox
- Left = 112
- Top = 136
- Width = 113
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 4
- Text = 'pixels/pouces'
- OnChange = CmbResChange
- Items.Strings = (
- 'pixels/pouces'
- 'pixels/cm')
- end
- object CBFiltres: TComboBox
- Left = 16
- Top = 220
- Width = 209
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 7
- Text = '<Automatique>'
- Items.Strings = (
- '<Automatique>'
- 'Au plus proche'
- 'Bilin'#233'aire'
- 'Hermite'
- 'Bell'
- 'B-Spline'
- 'Lanczos'
- 'Mitchell')
- end
- object CBResample: TCheckBox
- Left = 16
- Top = 201
- Width = 17
- Height = 17
- Checked = True
- State = cbChecked
- TabOrder = 6
- OnClick = CBResampleClick
- end
- end
- object CBTous: TCheckBox
- Left = 16
- Top = 376
- Width = 185
- Height = 17
- Caption = 'Tous les calques'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- end
-