home *** CD-ROM | disk | FTP | other *** search
- object RecadrerForm: TRecadrerForm
- Left = 368
- Top = 233
- ActiveControl = BOk
- BorderStyle = bsDialog
- Caption = 'Taille de la zone de travail'
- ClientHeight = 446
- ClientWidth = 314
- 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
- OnHide = FormHide
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object BAnnuler: TButton
- Left = 222
- Top = 406
- Width = 75
- Height = 25
- Caption = 'Annuler'
- TabOrder = 3
- OnClick = BAnnulerClick
- end
- object BOk: TButton
- Left = 137
- Top = 406
- Width = 75
- Height = 25
- Caption = 'Ok'
- TabOrder = 2
- 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 Label1: TLabel
- Left = 16
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Largeur :'
- end
- object Label2: 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 GBNew: TGroupBox
- Left = 16
- Top = 102
- Width = 281
- Height = 293
- Caption = ' Nouvelle taille '
- TabOrder = 1
- object Label3: TLabel
- Left = 16
- Top = 24
- Width = 42
- Height = 13
- Caption = 'Largeur :'
- end
- object Label4: TLabel
- Left = 16
- Top = 72
- Width = 44
- Height = 13
- Caption = 'Hauteur :'
- end
- object Label6: TLabel
- Left = 16
- Top = 128
- Width = 43
- Height = 13
- Caption = 'Position :'
- end
- object LblCouleur: TLabel
- Left = 131
- Top = 160
- Width = 30
- Height = 13
- Caption = 'Fond :'
- end
- object SBMotif: TSpeedButton
- Left = 234
- Top = 254
- Width = 23
- Height = 21
- Flat = True
- OnClick = SBMotifClick
- end
- object Image1: TImage
- Left = 110
- Top = 48
- Width = 16
- Height = 55
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- 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 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 ToolBar: TToolBar
- Left = 12
- Top = 145
- Width = 89
- Height = 82
- Align = alNone
- ButtonHeight = 26
- ButtonWidth = 27
- Caption = 'ToolBar'
- EdgeBorders = []
- Flat = True
- Images = MainForm.ImageList
- TabOrder = 3
- Transparent = True
- Wrapable = False
- object TB0: TToolButton
- Left = 0
- Top = 0
- Caption = 'TB0'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB1: TToolButton
- Tag = 1
- Left = 27
- Top = 0
- Caption = 'TB1'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB2: TToolButton
- Tag = 2
- Left = 54
- Top = 0
- Caption = 'TB2'
- ImageIndex = 40
- Wrap = True
- OnClick = TBClick
- end
- object TB3: TToolButton
- Tag = 3
- Left = 0
- Top = 26
- Caption = 'TB3'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB4: TToolButton
- Tag = 4
- Left = 27
- Top = 26
- Caption = 'TB4'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB5: TToolButton
- Tag = 5
- Left = 54
- Top = 26
- Caption = 'TB5'
- ImageIndex = 40
- Wrap = True
- OnClick = TBClick
- end
- object TB6: TToolButton
- Tag = 6
- Left = 0
- Top = 52
- Caption = 'TB6'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB7: TToolButton
- Tag = 7
- Left = 27
- Top = 52
- Caption = 'TB7'
- ImageIndex = 40
- OnClick = TBClick
- end
- object TB8: TToolButton
- Tag = 8
- Left = 54
- Top = 52
- Caption = 'TB8'
- ImageIndex = 40
- OnClick = TBClick
- end
- end
- object ColorEdit: TColorEdit
- Left = 131
- Top = 176
- Width = 94
- Height = 21
- BorderStyle = bsSingle
- Color = clWhite
- CustomText = 'Autres couleurs...'
- ColorDialog = MainForm.GlobalColorDialog
- ReadOnly = False
- TabOrder = 4
- TabStop = True
- end
- object CBMotif: TCheckBox
- Left = 16
- Top = 234
- Width = 217
- Height = 17
- Caption = 'Motif de fond :'
- TabOrder = 5
- OnClick = CBMotifClick
- end
- object EdiMotif: TSpecialEdit
- Left = 16
- Top = 254
- Width = 217
- Height = 21
- BorderStyle = bsSingle
- ButtonStyle = stDown
- DisabledColor = clBtnFace
- ItemIndex = -1
- MinimizeText = True
- NumGlyphs = 1
- ParentColor = False
- ReadOnly = False
- ShowButton = False
- TabOrder = 6
- TabStop = True
- OnClick = SBMotifClick
- end
- end
- end
-