스트링그리드에서 drawcell 로 그려진 부분을 클릭하면
선택된 부분의 글자색이 하얀색으로 변해 보기가 어렵습니다
그부분을 선택해도 글자색이 검은색으로 보고 싶은데요 방법이 없을까요?
procedure TForm1.stg1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
begin
if TStringGrid(Sender).Cells[2,aRow] = 'female' then
begin
TStringGrid(Sender).Canvas.Brush.Color := $00C2E9FE;
TStringGrid(Sender).Canvas.FillRect(Rect);
TStringGrid(Sender).Canvas.brush.style := bssolid;
TStringGrid(Sender).font.Color := clblack;
stg1.canvas.textrect(rect,rect.Left,rect.top+2, stg1.cells[acol,arow]);
end ;
end;
|