object FichFour: TFichFour Left = 142 Top = 102 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Gestion des fournisseurs' ClientHeight = 392 ClientWidth = 536 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 120 TextHeight = 16 object Bevel2: TBevel Left = 344 Top = 40 Width = 137 Height = 145 end object Label1: TLabel Left = 8 Top = 40 Width = 129 Height = 17 AutoSize = False Caption = 'Code fournisseur' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 352 Top = 48 Width = 78 Height = 20 Caption = 'Chercher' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 352 Top = 80 Width = 118 Height = 16 Caption = 'Code fournisseur' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Panel1: TPanel Left = 0 Top = 0 Width = 536 Height = 33 Align = alTop TabOrder = 3 object SpeedButton1: TSpeedButton Left = 15 Top = 4 Width = 25 Height = 25 Hint = 'Pr�c�dent' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333FF3333333333333003333333333333F77F33333333333009033 333333333F7737F333333333009990333333333F773337FFFFFF330099999000 00003F773333377777770099999999999990773FF33333FFFFF7330099999000 000033773FF33777777733330099903333333333773FF7F33333333333009033 33333333337737F3333333333333003333333333333377333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 40 Top = 4 Width = 25 Height = 25 Hint = 'Suivant' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333FF3333333333333003333 3333333333773FF3333333333309003333333333337F773FF333333333099900 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900 33333333337F3F77333333333309003333333333337F77333333333333003333 3333333333773333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 96 Top = 4 Width = 25 Height = 25 Hint = 'Ajouter' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF773333303300000003333337337777777333} NumGlyphs = 2 OnClick = SpeedButton3Click end object SpeedButton4: TSpeedButton Left = 121 Top = 4 Width = 25 Height = 25 Hint = 'Supprimer' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F5555000555555505555577755555557555} NumGlyphs = 2 OnClick = SpeedButton4Click end object Button1: TButton Left = 447 Top = 4 Width = 75 Height = 25 Caption = 'Fermer' TabOrder = 0 OnClick = Button1Click end end object Panel2: TPanel Left = 8 Top = 65 Width = 302 Height = 144 Caption = 'Panel2' TabOrder = 1 object Bevel1: TBevel Left = 1 Top = 1 Width = 300 Height = 32 Align = alTop end object Label2: TLabel Left = 11 Top = 10 Width = 278 Height = 16 Alignment = taCenter AutoSize = False Caption = 'Coordonn�es du fournisseur' end object Edit2: TEdit Left = 3 Top = 35 Width = 294 Height = 24 TabOrder = 0 OnKeyDown = FormKeyDown OnKeyPress = Edit2KeyPress end object Edit3: TEdit Left = 3 Top = 60 Width = 294 Height = 24 TabOrder = 1 OnKeyDown = FormKeyDown OnKeyPress = Edit2KeyPress end object Edit4: TEdit Left = 3 Top = 86 Width = 294 Height = 24 TabOrder = 2 OnKeyDown = FormKeyDown OnKeyPress = Edit2KeyPress end object Edit5: TEdit Left = 3 Top = 112 Width = 294 Height = 24 TabOrder = 3 OnKeyDown = FormKeyDown OnKeyPress = Edit2KeyPress end end object Edit1: TEdit Left = 142 Top = 38 Width = 96 Height = 24 TabStop = False ReadOnly = True TabOrder = 0 OnKeyDown = FormKeyDown OnKeyPress = Edit2KeyPress end object Panel3: TPanel Left = 0 Top = 216 Width = 536 Height = 176 Align = alBottom TabOrder = 2 object StringGrid1: TStringGrid Left = 1 Top = 1 Width = 534 Height = 174 Align = alClient DefaultColWidth = 100 RowCount = 64 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect] TabOrder = 0 OnClick = StringGrid1Click end end object Edit6: TEdit Left = 360 Top = 104 Width = 97 Height = 24 TabStop = False MaxLength = 5 TabOrder = 4 OnKeyPress = Edit6KeyPress end object Button2: TButton Left = 360 Top = 144 Width = 75 Height = 25 Caption = 'Chercher' TabOrder = 5 TabStop = False OnClick = Button2Click end end