كيف تلوين سطر عند الضغط عليه باللون الاحمر في مكون dbgrid

[hmidadz]

كيف تلوين سطر عند الضغط عليه باللون الاحمر في مكون dbgrid

[المحجوب]

http://delphi4arab.net/forum/search.php?searchid=548093

[SMP3]

PHP كود :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then
    begin
      TDBGrid(Sender).Canvas.Brush.Color := clOlive;
      TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
end; 


[hmidadz]

شكرا اخي smp3 على الجواب تم بنجاح