object RecadrerForm: TRecadrerForm Left = 253 Top = 187 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 = 0 OnClick = BAnnulerClick end object BOk: TButton Left = 137 Top = 406 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 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 = 3 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 = 128 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 = {} Transparent = True end object CmbUnit: TComboBox Left = 131 Top = 65 Width = 94 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 0 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 MaxLength = 7 MaxValue = 10000 ShowUpDown = True TabOrder = 1 Value = 1 OnChange = EdiLChange end object EdiH: TFloatSpinEdit Left = 16 Top = 88 Width = 89 Height = 21 Format = '0' Increment = 1 MaxLength = 7 MaxValue = 10000 ShowUpDown = True TabOrder = 2 Value = 1 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 = 144 Width = 94 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False 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 OnClick = SBMotifClick end end end