object OmbreExtForm: TOmbreExtForm Left = 293 Top = 177 ActiveControl = BOk BorderStyle = bsDialog Caption = 'Ombre ext'#233'rieure' ClientHeight = 377 ClientWidth = 297 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 LblEpaisseur: TLabel Left = 16 Top = 72 Width = 42 Height = 13 Caption = 'Largeur :' end object Label1: TLabel Left = 192 Top = 16 Width = 30 Height = 13 Caption = 'Fond :' end object Label3: TLabel Left = 40 Top = 16 Width = 42 Height = 13 Caption = 'Couleur :' end object LblPct: TLabel Left = 112 Top = 72 Width = 43 Height = 13 Caption = 'Opacit'#233' :' end object SB1: TSpeedButton Left = 168 Top = 32 Width = 23 Height = 22 GroupIndex = 1 Flat = True end object SB2: TSpeedButton Left = 16 Top = 32 Width = 23 Height = 22 GroupIndex = 1 Down = True Flat = True end object SBMotif: TSpeedButton Left = 258 Top = 296 Width = 23 Height = 21 Flat = True OnClick = SBMotifClick end object Label2: TLabel Left = 208 Top = 72 Width = 36 Height = 13 Caption = 'Marge :' end object BAnnuler: TButton Left = 208 Top = 336 Width = 75 Height = 25 Cancel = True Caption = 'Annuler' TabOrder = 0 OnClick = BAnnulerClick end object BOk: TButton Left = 128 Top = 336 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 1 OnClick = BOkClick end object ColorEdit1: TColorEdit Left = 192 Top = 32 Width = 89 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False end object ColorEdit2: TColorEdit Left = 40 Top = 32 Width = 85 Height = 21 BorderStyle = bsSingle Color = clBlack CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False end object RGPos: TRadioGroup Left = 16 Top = 128 Width = 265 Height = 60 Caption = ' Position ' Columns = 2 ItemIndex = 3 Items.Strings = ( 'Haut / Gauche' 'Bas / Gauche' 'Haut / Droite' 'Bas / Droite') TabOrder = 4 end object SE2: TSpinEdit2 Left = 112 Top = 88 Width = 73 Height = 21 MaxValue = 100 MinValue = 10 ShowUpDown = True TabOrder = 5 Value = 70 end object SE1: TSpinEdit2 Left = 16 Top = 88 Width = 73 Height = 21 MaxValue = 50 MinValue = 3 ShowUpDown = True TabOrder = 6 Value = 10 end object RGStyle: TRadioGroup Left = 16 Top = 197 Width = 265 Height = 60 Caption = ' Style ' ItemIndex = 1 Items.Strings = ( 'Plat' 'Liss'#233) TabOrder = 7 end object CBMotif: TCheckBox Left = 16 Top = 276 Width = 241 Height = 17 Caption = 'Motif de fond :' TabOrder = 8 OnClick = CBMotifClick end object SE3: TSpinEdit2 Left = 208 Top = 88 Width = 73 Height = 21 MaxValue = 500 MinValue = 0 ShowUpDown = True TabOrder = 9 Value = 0 end object EdiMotif: TSpecialEdit Left = 16 Top = 296 Width = 241 Height = 21 BorderStyle = bsSingle ButtonStyle = stDown DisabledColor = clBtnFace ItemIndex = -1 MinimizeText = True NumGlyphs = 1 ParentColor = False ReadOnly = False ShowButton = False OnClick = SBMotifClick end end