object CRForm: TCRForm Left = 378 Top = 180 BorderStyle = bsDialog Caption = 'Contour et remplissage' ClientHeight = 419 ClientWidth = 306 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 LblOpacite: TLabel Left = 15 Top = 14 Width = 37 Height = 13 Caption = 'Opacit'#233 end object BAnnuler: TButton Left = 214 Top = 380 Width = 75 Height = 25 Cancel = True Caption = 'Annuler' TabOrder = 4 OnClick = BAnnulerClick end object BOk: TButton Left = 132 Top = 380 Width = 75 Height = 25 Caption = 'Ok' Default = True TabOrder = 3 OnClick = BOkClick end object BApercu: TButton Left = 16 Top = 380 Width = 75 Height = 25 Caption = 'Aper'#231'u' TabOrder = 2 OnClick = BApercuClick end object GroupBox1: TGroupBox Left = 16 Top = 60 Width = 273 Height = 118 Caption = ' Options de contour ' TabOrder = 0 object LblCouleur1: TLabel Left = 14 Top = 46 Width = 42 Height = 13 Caption = 'Couleur :' end object SB1: TSpeedButton Left = 106 Top = 62 Width = 23 Height = 22 AllowAllUp = True GroupIndex = 1 Flat = True OnClick = SB1Click end object LblLargeur: TLabel Left = 144 Top = 46 Width = 42 Height = 13 Caption = 'Largeur :' end object CBContour: TCheckBox Left = 14 Top = 20 Width = 217 Height = 17 Caption = 'Contour' Checked = True State = cbChecked TabOrder = 0 OnClick = CBContourClick end object SELargeur: TSpinEdit2 Left = 144 Top = 62 Width = 89 Height = 21 MaxLength = 2 MaxValue = 50 MinValue = 1 ShowUpDown = True TabOrder = 2 Value = 1 OnChange = OptionChange end object CBLisser: TCheckBox Left = 14 Top = 90 Width = 217 Height = 17 Caption = 'Lisser' Checked = True State = cbChecked TabOrder = 3 OnClick = OptionChange end object ColorEdit1: TColorEdit Left = 14 Top = 62 Width = 89 Height = 21 BorderStyle = bsSingle Color = clBlack CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 1 TabStop = True OnChange = OptionChange end end object GroupBox2: TGroupBox Left = 16 Top = 188 Width = 273 Height = 153 Caption = ' Options de remplissage ' TabOrder = 1 object LblCouleur2: TLabel Left = 14 Top = 46 Width = 42 Height = 13 Caption = 'Couleur :' end object SB2: TSpeedButton Left = 106 Top = 62 Width = 23 Height = 22 AllowAllUp = True GroupIndex = 1 Flat = True OnClick = SB2Click end object LblStyle: TLabel Left = 144 Top = 46 Width = 29 Height = 13 Caption = 'Style :' end object SBMotif: TSpeedButton Left = 234 Top = 116 Width = 23 Height = 21 Flat = True OnClick = SBMotifClick end object CBRempl: TCheckBox Left = 14 Top = 20 Width = 217 Height = 17 Caption = 'Remplir' TabOrder = 0 OnClick = CBRemplClick end object CBStyle: TComboBox Left = 144 Top = 62 Width = 89 Height = 23 Style = csOwnerDrawFixed ItemHeight = 17 ItemIndex = 0 TabOrder = 2 Text = 'bsSolid' OnChange = OptionChange OnDrawItem = CBStyleDrawItem Items.Strings = ( 'bsSolid' 'bsHorizontal' 'bsVertical' 'bsFDiagonal' 'bsBDiagonal' 'bsCross' 'bsDiagCross') end object ColorEdit2: TColorEdit Left = 14 Top = 62 Width = 89 Height = 22 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False TabOrder = 1 TabStop = True OnChange = OptionChange end object CBMotif: TCheckBox Left = 14 Top = 96 Width = 137 Height = 17 Caption = 'Motif de remplissage :' TabOrder = 3 OnClick = CBMotifClick end object EdiMotif: TSpecialEdit Left = 14 Top = 116 Width = 219 Height = 21 BorderStyle = bsSingle ButtonStyle = stDown DisabledColor = clBtnFace ItemIndex = -1 MinimizeText = True NumGlyphs = 1 ParentColor = False ReadOnly = False ShowButton = False TabOrder = 4 TabStop = True OnChange = OptionChange OnClick = SBMotifClick end end object TBOpacite: TTrackBar Left = 10 Top = 28 Width = 287 Height = 27 Max = 100 Min = 10 PageSize = 5 Frequency = 5 Position = 100 TabOrder = 5 ThumbLength = 15 OnChange = TBOpaciteChange end object CBPreview: TCheckBox Left = 16 Top = 352 Width = 217 Height = 17 Caption = 'Aper'#231'u direct' TabOrder = 6 OnClick = CBPreviewClick end end