Hi All

TIB_ArrayGrid always shows FieldName as column label

Altering

procedure TIB_ArrayGrid.IB_PreparedChanged( Sender: TIB_DataLink;
DataSource: TIB_DataSource );
procedure ClearArrayGrid;
begin
ColCount := 2;
RowCount := 2;
Cells[0,0] := '';
Cells[0,1] := '';
Cells[1,0] := '';
if not (csDesigning in ComponentState) then
if DumbLabels then
ColWidths[0]:=60
else
ColWidths[0]:=30;
end;
var
ArrNum:Integer;
maxVal,CurLine:Integer;
ii: integer;
lowRowDiff, lowColDiff: integer;
ColName,tmpTxt:string;
begin
..
..
for ii := 1 to ColCount -1 do begin
ArrNum:=WhichArray(ii,0)-1;
if DumbLabels then
tmpTxt:=C_AG_Column + ' ' + IntToStr( ii + lowColDiff - 1 )
else
if (Integer(Dimension[WhichArray(ii,0)-1])=1) then begin
ColName:=DataLinks[WhichArray(ii,0)-1].Field.DisplayName; // <
+++++++
// ColName:=DataLinks[WhichArray(ii,0)-1].FieldName; ->Original
// ColName:=ColName[1]+LowerCase(Copy(ColName,2,100));
...
...
end;