너무 너무 급함.

stringgrid에서 해당 항목을 선택하면 초록색깔로 덥혀 선택한 글자가 안 보임.

내가 원하는 건 선택한 로만 색깔이 반전되되, 글자가 보이게 해야되요

아시는 분 꼭 지금 알려주세요. 살려주세요.

연락 연락 바람.







procedure TFormFirst.StringFirstDrawCell(Sender: TObject; ACol,

ARow: Integer; Rect: TRect; State: TGridDrawState);

var

index :integer;

begin

index := ARow * StringFirst.ColCount + ACol;



with Sender as TDrawGrid do

begin

if Arow = StringFirst.Row then

begin

Canvas.FillRect(Rect);

Canvas.Brush.Color := clwhite;

Canvas.Font.Color := clred;



if gdFocused in State then

Canvas.DrawFocusRect(Rect);

StringFirst.DrawTextBiDiModeFlags(ARow);



end;

end;



end;