아래에 HyperGrid의 OnChangeCellAttributes 이벤트인데 색상이 바뀌게 코딩을 해놨습니다..
procedure TF_J30D01M.HG_MAIN02ChangeCellAttributes(Sender: TObject; ACol,
ARow: Integer; Column: ThgHeading; State: ThgCellStates;
var AColor: TColor; AFont: TFont; var HAlign: TAlignment;
var VAlign: ThgVAlignment; var OuterBevel, InnerBevel: TBevelCut);
begin
if (ARow < HG_MAIN02.FixedRows) or
(ACol < HG_MAIN02.FixedCols) or
((ARow = HG_MAIN02.Row) and (ACol= HG_MAIN02.Col)) then
Exit;
if Trim(HG_MAIN02.Cells[12, ARow]) = Trim(HG_MAIN02.Cells[17, ARow]) then
AFont.Color := clRed
else
AFont.Color := clBlack;
end;
색상이 바뀌기는 하는데 HG_MAIN02.Cells[17, ARow] 하나의 열에만 색상이 바뀌네요..
그리고 해당 행을 클릭해야 빨강으로 바뀌던데...
행이 다 바뀌게 하는 방법 아시는분 있나요..??
|