dynamic color list

[علی اکبر]

دوستان سلام
ایا امکان دارد در یک لیست ایتم های نمایش داده شده با رنگهای مختلف ومرد نظر نمایش داده شود
با تشکر

[binyaz2003]

يک کد پيدا کردم اما جالب نيست ، اکثرا توصيه کرده اند که از يک گريد يک ستونه استفاده بشه و به شکل ليست دربياد.

public lValue
lValue = .t.
lnDefault = "COLOR , RGB(0,0,0,255,255,255)"
IF lValue = .t.
lnColor = "COLOR , RGB(0,192,255,255,0,0)"
ELSE
lnColor = "COLOR , RGB(0,0,0,255,255,255)"
ENDIF
PUBLIC oform1
oform1=CREATEOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 238
Width = 468
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT list1 AS listbox WITH ;
RowSourceType = 9, ;
RowSource = "P_list", ;
Height = 181, ;
Left = 60, ;
Top = 24, ;
Width = 265, ;
Name = "List1"
PROCEDURE Load
PUBLIC P_list
DEFINE POPUP P_list
DEFINE BAR 1 OF P_LIST ;
PROMPT "Item number 1 of the list";
FONT "Tahoma",14 style "BI";
&lnColor
DEFINE BAR 2 OF P_LIST ;
PROMPT "Item number 2 of the list";
FONT "Tahoma",11 style "B"
DEFINE BAR 3 OF P_LIST ;
PROMPT "Item number 3 of the list";
FONT "Arial",9 style "B";
&lnDefault
ENDPROC
ENDDEFINE

[علی اکبر]

حیفم اومد فقط یه دکمه تشکر کلیک کنم
با ایشان در مسنجر ان بودم ودیدم تا ساعت 1 کار کردن تا جواب مسئله رو پیدا کنن
ممنونم

[binyaz2003]

وظيفه است اما بخاطر دارم يکي از دوستان فکر کنم آقاي کيا بودند که راه حلي (اگر اشتباه نکنم براي همين موضوع بود) ارائه داده بودند، اما هرچه گشتم پيدا نکردم اگر ساير دوستان يادشان هست اعلام کنند.