Правильная отрисовка канвы при скролинге

← →
off (2004-09-08 13:27) [0]

Здравствуйте, мастера. На форме лежит панель, на панели лежит пэйнтбокс (такая вот порнография и беспредел). При этом размер панели больше размера формы отчего на ней появляются полосы прокрутки. С левого края в пэйнтбокс выводятся цифирки в столбец (canvas.textout в ПэйнтбоксПэйнт) при этом они должны там оставаться независимо от кого как и куда мы прокручиваем. Причем когда пользуешься стрелками на горизонтальной полосе прокрутки - отрисовка происходит правилно. А вот когда таскаешь за ползунок - остается след. Выходит пэйнтбокс не обновляется. Как это побороть (т.е. как обработать прокрутку ведь у этого компонента нет события ОнАфтаСкрол)?

← →
off (2004-09-09 06:12) [1]

Что вы тоже не знаете как?! Жаль :(

← →
KSergey © (2004-09-09 09:40) [2]

а) код
б) стирать надо перед рисованием

← →
off (2004-09-09 12:08) [3]

procedure TFStart.PB1Paint(Sender: TObject);
var I: Integer;
begin
for I := 0 to 31 do
begin
PB1.Canvas.TextOut(- PB1.ClientOrigin.X + 6,(I+1)*40-26,IntToStr(I));
end;
Refresh(Sender);
end;

← →
OFF (2004-09-10 06:28) [4]

Код я уже выложил, а вот насчет того что "стирать надо перед рисованием" это по моему никчему т.к. дело не в том что не стирается, а в том, что не обновляется. Т.е. когда мы используем полосу прокрутки, то событие не обрабатывается.

Обработай wm_vscroll и вызови там перерисовку. А стирать вс-таки придется.

Refresh(Sender);

А вот это издевательство.
Отрисовали, и тут же опять просим перерисоваться...

Правильная отрисовка канвы при скролинге Найти похожие ветки