Code: Select all
procedure TSRVPageScroll.SetPageWidth(Value : Integer);
begin
if FPageWidth <> Value then
begin
FPageWidth := Value;
UpdateCache; // <<<<<<<<<<<< ADDING
Invalidate;
end;
end;
Code: Select all
procedure TSRVPageScroll.SetPageWidth(Value : Integer);
begin
if FPageWidth <> Value then
begin
FPageWidth := Value;
UpdateCache; // <<<<<<<<<<<< ADDING
Invalidate;
end;
end;
Code: Select all
c.BeginUpdate;
ci := c.Items.Add;
....
c.EndUpdate;
Code: Select all
procedure TForm1.FormCreate(Sender: TObject);
...
SRVE.ExternalRV := ExRVE;
SRVE.RefreshData;
end;