ama başka satıra tıklayınca renk gidiyor ben kalıcı olsun istiyorum.
bunu nasıl yaparız acaba
yani her tıkladığım satır boyansın kalsın
saygılarımla
Kod: Tümünü seç
procedure TfrmAdChange.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with DBGrid1.Canvas do
begin
if (gdSelected in State) then // seçili alanın renk ve yazı fontu
begin
Brush.Color := $00E2D032; //seçim rengi
Font.Color := ClBlack; // yazı rengi
Font.Size:=10; // yazı büyüklüğü
Font.Style := font.Style + [fsBold]; // yazı kalın olsun
FillRect(rect);
end;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;