+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكني تلوين النص فقط في ليست فيو (/showthread.php?tid=5003)
كيف يمكني تلوين النص فقط في ليست فيو - Delphi 1 - 12-03-2013
سلام عليكم ورحمة الله وبركاتة
كيف يمكني وضع لو خلف الكتابة في ليست فيو كـ الصورة التالية
كود :
http://store2.up-00.com/Nov12/hYP61032.pngكيف يمكني تلوين النص فقط في ليست فيو - SMP3 - 12-03-2013
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;