object PerspectiveForm: TPerspectiveForm Left = 364 Top = 219 ActiveControl = BOk BorderStyle = bsDialog Caption = 'Correction de perspective' ClientHeight = 367 ClientWidth = 560 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 OnHide = FormHide OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object LblColor: TLabel Left = 376 Top = 252 Width = 42 Height = 13 Caption = 'Couleur :' end object ImgApercu: TImage Left = 376 Top = 16 Width = 169 Height = 169 end object Bevel1: TBevel Left = 356 Top = 8 Width = 9 Height = 345 Shape = bsLeftLine end object BAnnuler: TButton Left = 466 Top = 328 Width = 79 Height = 25 Caption = 'Annuler' TabOrder = 4 OnClick = BAnnulerClick end object BOk: TButton Left = 378 Top = 328 Width = 79 Height = 25 Caption = 'Ok' TabOrder = 5 OnClick = BOkClick end object PnlFond: TPanel Left = 8 Top = 8 Width = 337 Height = 345 BevelOuter = bvLowered TabOrder = 0 object ImgGrille: TImage Left = 40 Top = 40 Width = 169 Height = 153 AutoSize = True OnMouseDown = ImgGrilleMouseDown OnMouseUp = SliderMouseUp end object SliderTop: TMySlider Left = 40 Top = 24 Width = 150 Height = 12 CursorSize = 8 Min = 0 Max = 100 DrawBar = False BarPosition = bpBottomRight Orientation = soHorizontal OnChange = SliderChange OnBeforeChange = SliderBeforeChange TabOrder = 0 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SlideKeyUp end object SliderBottom: TMySlider Left = 40 Top = 200 Width = 150 Height = 12 CursorSize = 8 Min = 0 Max = 100 DrawBar = False BarPosition = bpTopLeft Orientation = soHorizontal OnChange = SliderChange OnBeforeChange = SliderBeforeChange TabOrder = 2 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SlideKeyUp end object SliderLeft: TMySlider Left = 16 Top = 40 Width = 12 Height = 150 CursorSize = 8 Min = 0 Max = 100 DrawBar = False BarPosition = bpBottomRight Orientation = soVertical OnChange = SliderChange OnBeforeChange = SliderBeforeChange TabOrder = 3 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SlideKeyUp end object SliderRight: TMySlider Left = 216 Top = 40 Width = 12 Height = 150 CursorSize = 8 Min = 0 Max = 100 DrawBar = False BarPosition = bpTopLeft Orientation = soVertical OnChange = SliderChange OnBeforeChange = SliderBeforeChange TabOrder = 1 TabStop = True OnMouseUp = SliderMouseUp OnKeyUp = SlideKeyUp end end object CBSymetrie: TCheckBox Left = 376 Top = 220 Width = 137 Height = 17 Caption = 'Sym'#233'trie' Checked = True State = cbChecked TabOrder = 2 OnClick = CBSymetrieClick end object ColorEdit: TColorEdit Left = 376 Top = 268 Width = 75 Height = 21 BorderStyle = bsSingle Color = clRed CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 3 TabStop = True OnChange = ColorEditChange end object CBGrille: TCheckBox Left = 376 Top = 204 Width = 145 Height = 17 Caption = 'Grille' Checked = True State = cbChecked TabOrder = 1 OnClick = CBGrilleClick end end