ScrollBox и рисунок в форме

[Hall0WeeN]

На форму я установил PaintBox и в обработчик события формы OnPaint написал код.
procedure TForm1.FormPaint(Sender: TObject);
var
X,Y: real; // координаты функции
PX,PY: longint; // координаты пикселей
begin
Color := clWhite;
for PX := 0 to ClientWidth do
begin
{X — аргумент графика,
соответствующий пикселю с координатой РХ}
X := PX*4*Pi/ClientWidth;
Y:=Sin(X);
{PY — координата пикселя,
соответствующая координате Y}
PY:=trunc(ClientHeight - (Y+1)*ClientHeight/2);
{Устанавливается черный цвет выбранного
пикселя (О яркости)}
Canvas.Pixels [PX, PY] := 0;
end;
end;

Все работает но рисунок выходит на всю форму(как я понял за ето отвечает ClientWidth и ClientHeight). хочу зделать так чтоб рисунок рисовался в области ScrollBox( чтоб если не влезет работали полосы прокрутки). что надо изменить в коде?
и если изменить на ScrollBox то границы рисунка станут не ограничены и тогда перед рисованием надо будет задавать их?

[Аватар]

PaintBox не обязательно на форму бросать. Есть ScrollBox (если не ошибаюсь), бросить его на форму, а на него PaintBox и будет полное счастье

[Hall0WeeN]

зделал так..не работает(
рисует как и раньше на всей форме
может знает ктот на что заменить ClientWidth и ClientHeight чтоб граница не формы а ScrollBox работала

[Johnson]

Омг... Событие ОнПэинт ФОРМЫ вызывается перед перерисовкой ФОРМЫ. Вы изменяете это событие, и тем самым рисуете на форме...
Что Вам нужно конкретно? Рисовать на ПэинтБоксе? Обрабатыайте событие ОнПэинт Пэинтбокса.

Проперти ClientWidth - это размер видимой облати компонента. Если запрашивать его для формы - то он выдаст ширину формы...

[Hall0WeeN]

Сообщение от Johnson

Что Вам нужно конкретно?

в первом сообщении

Сообщение от Hall0WeeN

хочу зделать так чтоб рисунок рисовался в области ScrollBox( чтоб если не влезет работали полосы прокрутки). что надо изменить в коде?