StringGrid의 CellRect()함수와 Canvas를 이용하면 칠할 수 있긴 합니다만....
StringGrid의 DefaultDrawing 때문에 한번 칠해 졌다가
StringGrid의 이벤트가 발생하면 다시 원복되어 버립니다.
아래처럼 하시면 순간은 변하긴 하지만
그리드가 이벤트에 의해 다시 그려질 경우
(클릭, 셀선택, 값 변경 등등)
DefaultDrawing = true 로 되어 있으면 기본 칠하기로 바뀌어 버립니다.
차라리, DrawCell이벤트를 이용하는게 더 쉬울 수도 있습니다.
스트링 그리드를 그냥 단순 값 모니터링용으로 사용하신 다면
DefaultDrawing = false 로 하시고
아래 코드를 함수화 하여
직접 모든 셀에 칠하고 값 표시하게 할 수도 있습니다.
int Row = 3;
int Col = 2;
TColor BColor = clYellow;
TColor FColor = clRed;
Types::TRect R = StringGrid1->CellRect(Col, Row);
StringGrid1->Canvas->Brush->Color = BColor;
StringGrid1->Canvas->FillRect(R);
StringGrid1->Canvas->Font = StringGrid1->Font;
StringGrid1->Canvas->Font->Color = FColor;
StringGrid1->Canvas->TextOut(R.Left + 2, R.Top + 2, StringGrid1->Cells[Col][Row]);
예)
void DrawGridCell(TStringGrid* AGrid, int ACol, int ARow, UnicodeString ATxt = "", TColor BColor = clWhite, TColor FColor = clBlack);
void DrawGridCell(TStringGrid* AGrid, int ACol, int ARow, UnicodeString ATxt, TColor BColor, TColor FColor)
{
Types::TRect R = AGrid->CellRect(ACol, ARow);
AGrid->Canvas->Brush->Color = BColor;
AGrid->Canvas->FillRect(R);
AGrid->Canvas->Font = AGrid->Font;
AGrid->Canvas->Font->Color = FColor;
AGrid->Canvas->TextOut(R.Left + 2, R.Top + 2, ATxt);
}
사용)
DrawGridCell(StringGrid1, 2, 5);
DrawGridCell(StringGrid1, 2, 5, "테스트");
DrawGridCell(StringGrid1, 2, 5, "테스트", clRed);
DrawGridCell(StringGrid1, 2, 5, "테스트", clYellow, clRed);
쿼드콥터헬기 님이 쓰신 글 :
: 안녕하세요
:
: DrawCell에서 말고 다른 방법은 없을까요?
: DrawCell에서도 할 수도 있지만 시간상 처리할 이벤트가 많아서 쉬운 방법을 찾고 있거든요
:
: * tms AdvStringGrid가 편하긴 한데, 이상하게 WIN7에서는 디버그 모드로 해도 잘되는데 WIN XP에서는 디버그 모드 중에 빌더 6가 다운 될 때 많아요. 브레이크에 걸린 변수 값 볼려고 마우스 갔다대면 그대로 멈춥니다.
:
: 다른 방법알고 계신분 부탁드려요
|