Pour avoir une allure plus centrer, ilfaut que tu utiliser une police non-proportionelle, Comme courrier New
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 250
Width = 519
DoCreate = .T.
Caption = "Form1"
Name = "form1"
ADD OBJECT list1 AS listbox WITH ;
FontName = "Courier New", ;
ColumnCount = 1, ;
ColumnWidths = "100", ;
RowSourceType = 6, ;
RowSource = "moncursor.itemmenu", ;
Height = 217, ;
Left = 36, ;
Top = 12, ;
Width = 420, ;
Name = "List1"
PROCEDURE Load
CREATE CURSOR moncursor (itemmenu c(50))
INSERT INTO moncursor (itemmenu) VALUES (PADC("Item #1",50,' '))
INSERT INTO moncursor (itemmenu) VALUES (PADC("Deuxième item",50,' '))
INSERT INTO moncursor (itemmenu) VALUES (PADC("Item #3",50,' '))
INSERT INTO moncursor (itemmenu) VALUES (PADC("Quatrième choix",50,' '))
ENDPROC
ENDDEFINE
Mike Gagnon