Визуализация уровня данных

Вторник, 04 Августа 2020 г. 16:34 + в цитатник

ivan1234:

Цитата MBo @ 31.07.20, 15:48

Процедура AddFigure реализована плохо

)за что купил, за то продал
попробовал ваш совет:

procedure TForm1.FormPaint(Sender: TObject);

begin

for v:=0 to 12000 do

for g:=0 to 63 do

with Form1.Canvas do

begin

s:= Random(255);

Pen.Color:=RGB(s,s,s);

Brush.Color:=RGB(s,s,s);

Rectangle(10*g, 10*v, 10*g+10, 10*v+10);

end;

работает значительно быстрее - просто замечательно
Но по ходу изучения возникло ещё 2 вопроса:
1. как скролить такой большой массив как в примере?
2. как к скролу дополнительно добавить поток строк?

https://forum.sources.ru/index.php?showtopic=419273&view=findpost&p=3835813