I want to write a border in the framework of the cell.
(Without AdvStringGrid1GetCellBorder )
Do you have the other of the following methods (by Demo asg43) ?
For example, in this way....
AdvStringGrid1.Borders[i,j,x,y]:=[cbLeft];
//--------------------------------
//by Demo asg43
//--------------------------------
procedure TForm1.AdvStringGrid1GetCellBorder(Sender: TObject; ARow,
ACol: Integer; APen: TPen; var Borders: TCellBorders);
begin
if not Odd(ACol) and (ARow > 0) and (ACol > 0) then
begin
Borders := [cbLeft];
APen.Width := 1;
APen.Color := clBlack;
end;
if not Odd(ARow) and (ARow > 0) and (ACol > 0) then
begin
Borders := Borders + [cbBottom];
APen.Width := 1;
APen.Color := clBlack;
end;
end;