object CroixForm: TCroixForm Left = 265 Top = 167 ActiveControl = BOk BorderStyle = bsDialog Caption = 'Point de croix' ClientHeight = 225 ClientWidth = 313 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 Label1: TLabel Left = 16 Top = 16 Width = 30 Height = 13 Caption = 'Fond :' end object LabelPieces: TLabel Left = 16 Top = 80 Width = 45 Height = 13 Caption = 'Longueur' end object Label3: TLabel Left = 232 Top = 16 Width = 52 Height = 13 Caption = 'Epaisseur :' end object Label2: TLabel Left = 112 Top = 16 Width = 29 Height = 13 Caption = 'Style :' end object BAnnuler: TButton Left = 224 Top = 184 Width = 75 Height = 25 Caption = 'Annuler' TabOrder = 0 OnClick = BAnnulerClick end object BOk: TButton Left = 136 Top = 184 Width = 75 Height = 25 Caption = 'Ok' ModalResult = 2 TabOrder = 1 OnClick = BOkClick end object BApercu: TButton Left = 16 Top = 184 Width = 75 Height = 25 Caption = 'Aper'#231'u' TabOrder = 2 OnClick = BApercuClick end object TBN: TTrackBar Left = 10 Top = 96 Width = 295 Height = 25 Max = 20 Min = 3 Orientation = trHorizontal PageSize = 1 Frequency = 1 Position = 11 SelEnd = 0 SelStart = 0 TabOrder = 3 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TBNChange end object CBGrille: TCheckBox Left = 16 Top = 136 Width = 129 Height = 17 Caption = 'Grille' TabOrder = 4 end object SETrait: TSpinEdit2 Left = 232 Top = 32 Width = 65 Height = 21 MaxLength = 1 MaxValue = 5 MinValue = 1 ShowUpDown = True TabOrder = 5 Value = 2 OnChange = OptionChange end object ColorEdit: TColorEdit Left = 16 Top = 32 Width = 81 Height = 21 BorderStyle = bsSingle Color = clWhite CustomText = 'Autres couleurs...' ColorDialog = MainForm.GlobalColorDialog ReadOnly = False OnChange = OptionChange end object CmbPoint: TComboBox Left = 112 Top = 32 Width = 105 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 7 Text = 'Croix' OnChange = CmbPointChange Items.Strings = ( 'Croix' 'Trait oblique 1' 'Trait oblique 2' 'Triangle') end end