+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تلوين ال stringgrid (/showthread.php?tid=2696)
تلوين ال stringgrid - شمس الغروب - 10-01-2011
السلام عليكم
كيف تلوين سطر معين في stringgrid بلون معين
تلوين ال stringgrid - kachwahed - 10-01-2011
وعليكم السلام ورحمة الله
OnDrawCell
كود :
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
dx: Integer;
begin
with (Sender as TStringGrid) do
begin
// Don't change color for first Column, first row
if (ACol = 0) or (ARow = 0) then
Canvas.Brush.Color := clBtnFace
else
begin
case ACol of
1: Canvas.Font.Color := clBlack;
2: Canvas.Font.Color := clBlue;
end;
// Draw the Band
if ARow mod 2 = 0 then
Canvas.Brush.Color := $00E1FFF9
else
Canvas.Brush.Color := $00FFEBDF;
Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
Canvas.FrameRect(Rect);
end;
end;
end;الرسم على مكونات دلفي ضمن: العدد الخاص
بالتوفيق.
تلوين ال stringgrid - شمس الغروب - 16-01-2011
السلام عليكم
شكرا اخي على هذا الكود الرائع