delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف يمكني تلوين النص فقط في ليست فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم ورحمة الله وبركاتة
كيف يمكني وضع لو خلف الكتابة في ليست فيو كـ الصورة التالية
كود :
http://store2.up-00.com/Nov12/hYP61032.png
فقط خلف الكتابة وليس في ليست فيو كاملة
PHP كود :
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var 
DefaultDraw: Boolean);
begin
DefaultDraw
:=False;
Self.ListView1.Canvas.Brush.Color:=clRed;
Self.ListView1.Canvas.TextOut(Item.Left,Item.Top,Item.ToString);
end;