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;
[3.9.4] Slow SetSelected
Started by chris, Dec 18 2006 04:26 PM
1 reply to this topic
#1
Posted 18 December 2006 - 04:26 PM
#2
Posted 19 December 2006 - 02:48 PM
Hello Chris,
I will review it and probably add it. Thank you.
regards
I will review it and probably add it. Thank you.
regards
boki@bergsoft.net | LinkedIn Profile
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.
--
BergSoft Home Page: www.bergsoft.net
Users Section: users.bergsoft.net
Articles and Tutorials: help.bergsoft.net (Developers Network)
--
BergSoft Facebook page
--
Send us applications made with our components and we will submit them on: www.bergsoft.net/apps.htm. Link to this page will be also set on home page too.
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users