home *** CD-ROM | disk | FTP | other *** search
- object RedimForm: TRedimForm
- Left = 307
- Top = 164
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Taille de l'#39'image'
- ClientHeight = 381
- ClientWidth = 313
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- OldCreateOrder = False
- Position = poMainFormCenter
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object BAnnuler: TButton
- Left = 222
- Top = 340
- Width = 75
- Height = 25
- Caption = 'Annuler'
- ModalResult = 2
- TabOrder = 0
- end
- object BOk: TButton
- Left = 136
- Top = 340
- Width = 75
- Height = 25
- Caption = 'Ok'
- TabOrder = 1
- OnClick = BOkClick
- end
- object GBOld: TGroupBox
- Left = 16
- Top = 16
- Width = 281
- Height = 78
- Caption = ' Taille en pixels / M'#233'moire '
- Enabled = False
- TabOrder = 2
- 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 = 227
- Caption = ' Nouvelle taille '
- TabOrder = 3
- 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 EdiL: TFloatSpinEdit
- Left = 16
- Top = 40
- Width = 89
- Height = 21
- Format = '0'
- Increment = 1
- MaxValue = 10000
- ShowUpDown = True
- TabOrder = 0
- Value = 1
- OnChange = EdiLChange
- end
- object EdiH: TFloatSpinEdit
- Left = 16
- Top = 88
- Width = 89
- Height = 21
- Format = '0'
- Increment = 1
- MaxValue = 10000
- ShowUpDown = True
- TabOrder = 1
- Value = 1
- 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 = 3
- end
- object CBOptimiser: TCheckBox
- Left = 16
- Top = 196
- Width = 177
- Height = 17
- Caption = 'Optimiser'
- Checked = True
- State = cbChecked
- TabOrder = 4
- end
- object EdiRes: TFloatSpinEdit
- Left = 16
- Top = 136
- Width = 89
- Height = 21
- Format = '0.00'
- Increment = 1
- MaxValue = 1200
- MinValue = 10
- ShowUpDown = True
- TabOrder = 5
- Value = 96
- OnChange = EdiResChange
- end
- object CmbRes: TComboBox
- Left = 112
- Top = 136
- Width = 113
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 6
- Text = 'pixels/pouces'
- OnChange = CmbResChange
- Items.Strings = (
- 'pixels/pouces'
- 'pixels/cm')
- end
- end
- end
-