|
program SuppressRepaint;
const
PAGE = 1;
var
i, j : integer;
begin
ChartBook.Reset;
ChartBook.Configure
(PAGE, // page 1
false, true, false, // only the table is visible
300, 300); // default width & height
with ChartBook.Tables[PAGE] do
begin
NrOfColumns := 8;
NrOfRows := 100;
SuppressPaint := true; // suppress repaint in the loop below
for i:=1 to NrOfColumns do
for j:=1 to NrOfRows do
Elem[i,j] := 'Cell ['+IntToStr(i)+','+IntToStr(j)+']';
SuppressPaint := false; // refresh the new contents
end;
end.
|