tms [TMS] TAdvStringGrid 기능소개 - Grid Cell 라인에 색상 지정

[c2design]

TAdvStringGrid 의 특정셀 테두리에 색상을 지정 하는 방법 입니다.

OnGetCellBorder 와 OnGetCellBorderProp 두가지 메소드가 사용 됩니다.

사용법은 간단하며 해당 Column 과 Row 에 Line 속성을 지정해 주면 됩니다.

procedure TMvForm.AdvStringGrid1GetCellBorder(Sender: TObject; ARow, ACol: Integer; APen: TPen; var Borders: TCellBorders);
begin
  if ( ARow > 0 ) and  ( ACol = 2 )  then
  begin
    Borders := [cbLeft, cbRight, cbBottom];
    APen.Width := 1;
  end;
end;

procedure TMvForm.AdvStringGrid1GetCellBorderProp(Sender: TObject; ARow, ACol: Integer; LeftPen, TopPen, RightPen, BottomPen: TPen);
begin
  LeftPen.Color := clBlue;
  RightPen.Color := clBlue;
  BottomPen.Color := clRed;
end;