object LoupeDialog: TLoupeDialog Left = 174 Top = 115 ActiveControl = OKBtn BorderIcons = [] BorderStyle = bsDialog Caption = 'Loupe' ClientHeight = 214 ClientWidth = 354 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] PixelsPerInch = 96 Position = poScreenCenter TextHeight = 13 object Panel1: TPanel Left = 3 Top = 4 Width = 347 Height = 171 TabOrder = 2 object Label1: TLabel Left = 14 Top = 14 Width = 282 Height = 29 AutoSize = False Caption = 'Choisissez un coefficient pour agrandir ou r�duire la taille de ' + 'votre figure.' end object Panel2: TPanel Left = 264 Top = 55 Width = 78 Height = 78 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Edit1: TEdit Left = 9 Top = 14 Width = 61 Height = 20 TabOrder = 0 Text = '1' OnEnter = Edit1Enter OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 9 Top = 43 Width = 61 Height = 20 TabOrder = 1 Text = '1' OnEnter = Edit2Enter OnKeyPress = Edit1KeyPress end end object RadioGroup1: TRadioGroup Left = 11 Top = 50 Width = 255 Height = 105 Caption = 'Coefficient' Columns = 4 Ctl3D = True ItemIndex = 5 Items.Strings = ( '1/4' '1/3' '1/2' '2/3' '3/4' '1' '2' '3' '4' 'Autre :' 'Inverse:') ParentCtl3D = False TabOrder = 0 OnClick = RadioGroup1Click end end object CancelBtn: TBitBtn Left = 95 Top = 182 Width = 77 Height = 27 TabOrder = 1 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object OKBtn: TBitBtn Left = 181 Top = 182 Width = 77 Height = 27 TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end end