object frRoundRectForm: TfrRoundRectForm Left = 162 Height = 284 Top = 182 Width = 562 ActiveControl = panGrad BorderStyle = bsDialog Caption = 'Editeur de propri t s' ClientHeight = 284 ClientWidth = 562 Font.Color = clBlack KeyPreview = True OnCreate = FormCreate OnKeyDown = FormKeyDown OnShow = FormShow Position = poScreenCenter LCLVersion = '0.9.31' object lblSample: TLabel Left = 360 Height = 14 Top = 8 Width = 35 Caption = 'Sample' ParentColor = False end object Image1: TImage Left = 344 Height = 16 Top = 180 Width = 16 AutoSize = True Picture.Data = { 07544269746D6170F6000000424DF60000000000000076000000280000001000 0000100000000100040000000000800000000000000000000000000000000000 000000000000000080000080000000808000800000008000800080800000C0C0 C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF FF00777777777777777777777777777777777778888888888888700000000000 000888888888888888088FFFFFFFFFFFF8088F4444444444F8088FFFFFFFFFFF F8088F4444444444F8088FFFFFFFFFFFF8088F44444444FFF8088FFFFFFFFFFF F807888888888888887777777777777777777777777777777777777777777777 7777 } Visible = False end object imgSample: TImage Left = 360 Height = 76 Top = 24 Width = 193 end object M1: TMemo Left = 4 Height = 237 Top = 8 Width = 333 Lines.Strings = ( 'M1' ) OnKeyDown = M1KeyDown ParentFont = False TabOrder = 0 WordWrap = False end object Button5: TButton Left = 91 Height = 25 Top = 252 Width = 85 Caption = 'Variables ...' OnClick = Button5Click TabOrder = 1 end object Button6: TButton Left = 4 Height = 25 Top = 252 Width = 81 Caption = 'Donn es ..' OnClick = Button6Click TabOrder = 2 end object bOk: TButton Left = 184 Height = 25 Top = 252 Width = 75 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 3 end object bCancel: TButton Left = 264 Height = 25 Top = 252 Width = 75 Caption = 'Annuler' ModalResult = 2 TabOrder = 4 end object cbGradian: TCheckBox Left = 360 Height = 17 Top = 104 Width = 58 Caption = 'Gradian ' OnChange = cbGradianChange OnClick = cbGradianClick TabOrder = 5 end object panCurve: TPanel Left = 360 Height = 149 Top = 128 Width = 197 BevelInner = bvRaised BevelOuter = bvLowered ClientHeight = 149 ClientWidth = 197 FullRepaint = False TabOrder = 6 object lblSWidth: TLabel Left = 12 Height = 14 Top = 36 Width = 93 Caption = 'Largeur de l''ombre ' ParentColor = False end object lblSColor: TLabel Left = 8 Height = 14 Top = 103 Width = 41 Caption = 'Couleur ' ParentColor = False end object bcolor: TImage Left = 136 Height = 25 Top = 100 Width = 49 OnClick = bColorClick end object cmShadow: TCheckBox Left = 8 Height = 17 Top = 8 Width = 47 Caption = 'Curve' Checked = True OnClick = cmShadowClick State = cbChecked TabOrder = 0 end object sCurve: TEdit Left = 136 Height = 21 Top = 8 Width = 49 OnChange = ShWidthChange TabOrder = 1 Text = '10' end object ShWidth: TEdit Left = 136 Height = 21 Top = 33 Width = 49 OnChange = ShWidthChange TabOrder = 2 Text = '10' end object cbCadre: TCheckBox Left = 8 Height = 17 Top = 126 Width = 87 Caption = 'Zone encadr e' Checked = True OnClick = cbCadreClick State = cbChecked TabOrder = 3 end object lblSqrCorners: TLabel Left = 13 Height = 14 Top = 68 Width = 65 Caption = 'lblSqrCorners' ParentColor = False end object chkTL: TCheckBox Left = 140 Height = 17 Top = 60 Width = 18 OnClick = chkTLClick TabOrder = 4 end object chkTR: TCheckBox Left = 160 Height = 17 Top = 60 Width = 18 OnClick = chkTLClick TabOrder = 5 end object chkBL: TCheckBox Left = 140 Height = 17 Top = 77 Width = 18 OnClick = chkTLClick TabOrder = 6 end object chkBR: TCheckBox Left = 160 Height = 17 Top = 77 Width = 18 OnClick = chkTLClick TabOrder = 7 end end object panGrad: TPanel Left = 120 Height = 117 Top = 48 Width = 197 BevelInner = bvRaised BevelOuter = bvLowered ClientHeight = 117 ClientWidth = 197 FullRepaint = False TabOrder = 7 object Label1: TLabel Left = 8 Height = 14 Top = 77 Width = 45 Caption = 'End color' ParentColor = False end object bcolor3: TImage Left = 128 Height = 25 Top = 74 Width = 57 OnClick = bColorClick end object Label2: TLabel Left = 8 Height = 14 Top = 49 Width = 51 Caption = 'Start color' ParentColor = False end object bColor2: TImage Tag = 1 Left = 128 Height = 25 Top = 42 Width = 57 OnClick = bColorClick end object Label3: TLabel Left = 8 Height = 14 Top = 16 Width = 25 Caption = 'Style' ParentColor = False end object cbStyle: TComboBox Left = 64 Height = 21 Top = 12 Width = 121 ItemHeight = 13 Items.Strings = ( 'Vertical' 'Horizontal' 'Elliptique' 'Rectangle' 'Horiz. Centr ' 'Vert. Centr ' ) OnChange = ShWidthChange Style = csDropDownList TabOrder = 0 end end object colorDlg: TColorDialog Color = clBtnFace CustomColors.Strings = ( 'ColorA=000000' 'ColorB=000080' 'ColorC=008000' 'ColorD=008080' 'ColorE=800000' 'ColorF=800080' 'ColorG=808000' 'ColorH=808080' 'ColorI=C0C0C0' 'ColorJ=0000FF' 'ColorK=00FF00' 'ColorL=00FFFF' 'ColorM=FF0000' 'ColorN=FF00FF' 'ColorO=FFFF00' 'ColorP=FFFFFF' 'ColorQ=C0DCC0' 'ColorR=F0CAA6' 'ColorS=F0FBFF' 'ColorT=A4A0A0' ) left = 184 top = 192 end end