1 reply to this topic

[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;

[Boki (Berg)]

Hello Chris,

I will review it and probably add it. Thank you.

regards