StringGrid

السلام عليكم و رحمة الله و ربكاته

هذه مكونة جاهزة مع السورس تريك كيف تعمل ذلك

ارجو ان تفيدك

MyDBGridBelang.zip

شكراً (waeldalol)

ولكن اريد ان كيف يكمن تلوين عن طريق الكود

وبارك الله فيك يا اخي

ستجد داخل الوحدة KytDBGrid

كيف تعمل ذلك بالكود اظن انه واضح

StringGrid في DrawCell اكتب الكود

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (((Acol=1) or (Acol=3) or (Acol=5) or (Acol=7)) and ((Arow=0) or
(Arow=2) or (Arow=4) or (Arow=6)))
then begin
form1.stringgrid1.canvas.Brush.Color:=clblack;
form1.stringgrid1.Canvas.FillRect(Rect);
end;

if (((Acol=0) or (Acol=2) or (Acol=4) or (Acol=6)) and ((Arow=1) or
(Arow=3) or (Arow=5) or (Arow=7)))
then begin
form1.stringgrid1.canvas.Brush.Color:=clblack;
form1.stringgrid1.Canvas.FillRect(Rect);
end;


end;

اذ كان هذا ما تريد :rolleyes: :rolleyes: :rolleyes:

بارك الله فيك سيف الدين 2

شكراً لك waeldalol