procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With TStringGrid(Sender).Canvas do
Begin
If (ARow = TStringGrid(Sender).Row) and (ACol = TStringGrid(Sender).Col) then // 는 (ARow = 2) and (ACol = 2)
// 한 Row 전체를 다 노란색으로 바꾸고 싶으면, ARow만 선택하세요..^^*
Begin
Brush.Color:= clYellow;
FillRect(Rect);
End;
End;
end;
end.
#####################################################################################
쉬운것 같아 시도해봤는데, 생각보다 저한테도 어려웠습니다... ^^;
열심히 하시길...
- 슬기 -
|