chris

hi boki

procedure TNextGrid.SetSelected(Index: Integer; const Value: Boolean);
begin
if RowExist(Index) and (Selected[Index] <> Value) then
begin
FCells.Row[Index].Selected := Value;
case GridStyle of
gsReport: RefreshRow(Index);
gsSlides: RefreshSlide(Index, not(aoHighlightSlideCells in AppearanceOptions));
end;
end
end;

miss something like


if UpdateCount = 0 then RefreshRow(Index);

so


procedure TNextGrid.SetSelected(Index: Integer; const Value: Boolean);
begin
if RowExist(Index) and (Selected[Index] <> Value) then
begin
FCells.Row[Index].Selected := Value;
if UpdateCount=0 then
begin
case GridStyle of
gsReport: RefreshRow(Index);
gsSlides: RefreshSlide(Index, not(aoHighlightSlideCells in AppearanceOptions));
end;
end;
end
end;

hi,

function TNxCustomPropertyItem.GetFullText: WideString;
begin
result:='';
Result := Value + SuffixValue;
end;

i was obliged to initialise result because if value and suffix value are empty result does not return '' but the prior value.

hello,
what is exactly for ?
is it to find next parent or to find next record on same level ?

hi
in V3.5 the line with exit i replace > by >=

procedure TNextGrid.AddCells(Values: array of WideString);
var
I, Col: Integer;
begin
AddRow;
I := 0;
while I < Length(Values) do
begin
for Col := 0 to Columns.Count - 1 do
begin
Cells[Col, RowCount - 1] := Values[I];
Inc(I);
if I >= Length(Values) then Exit;
end;
if I < Length(Values) then AddRow;
end;
end;

hello
it was just a refresh problem
i updated tnextgrid.swaprows to speed it up on a .beginupdate

procedure TNextGrid.SwapRows(FromPos, ToPos: Integer);
begin
FCells.SwapRows(FromPos, ToPos);
if UpdateCount = 0 then
begin
RefreshRow(FromPos);
RefreshRow(ToPos);
end;
end;