Такой вот вопрос...

[mopmuk]

Всем доброго времени суток
Я, конечно, понимаю что таких вопросов как мой тут немало, но у меня не хватит временных ресурсов, чтобы осилить 400+ страниц для поиска нужной темы.
Вобщем, в чём состоит вопрос:
Имеется курсовая работа. Элементарная прога для создания растровых изображений. Функций минимум, всё каряво (прошу строго не придираться я программирую несколько месяцев).
Вся загвоздка в том, что пользователь программы должен иметь возможность изменять размеры холста.
В качестве холста используется PaintBox. При изменении Height и Width, размеры бокса меняются, но рисовать можно только в старой области.
Если кто-то понял в чём проблема, прошу мне объяснить.
Очень уж интересно над чем я бьюсь с самого утра.
Биг спс...


О_о омг...забыл. Делфи 7

[mopmuk]

Да, вот еще исходники

[Utkin]

Возможно дело в свойстве AutoSize... И вообще я бы рекомендовал Image, он более человечный что-ли.

[mopmuk]

Я не могу Имэйдж препод сказал Бокс и точка, и чтоб была возможность прокрутки и масштабирования Бокса.
Курсач готов уже, только эта лажа осталась

[mopmuk]

чёт я у пейнтбокса не нахожу автосай3(

[Пепел Феникса]

у него его и нет.
у меня при изменении размеров все работает отлично
вот примерчик(СкролБокс+ПейнтБокс)

[mopmuk]

Попробовал из примера Феникса....аналогичная фигня как и была изначально по сути это просто 2 разных варианта изменения размера PaintBox'а. Но ошибка не в этом

[Пепел Феникса]

а вы размер буфера то изменяете?
(где то же хранится все что нарисовано)

[mopmuk]

Да вот жеж) я только понял ГДЕ ошибка.
я задаю размеры PaintBox из эдитов, а потом уже эти размеры бокса присваиваю буферу.
ток у меня процедура FormCreate и размеры буфера изменяются 1 раз - при запуске программы (т.е. начальные размеры бокса присваиваются размерам буфера)
Я не знаю как сделать чтобы после запуска программы можно было их изменить. Точнее, представляю как, но для этого придется всё перекосячить.

По моему лучше будет отказаться от возможности изменять размеры холста, чем переписывать больше половины кода

[Пепел Феникса]

вы не поверите, но нужно написать всего 4 строчки(правда я чучуть повысил безоопасность проги)

  procedure TForm1.BtSizeClick(Sender: TObject);
    begin
      try
        w:=StrToInt(EdWidth.Text);
        PaintB.Width:=w;
        buffer.Width:=w;
        Img.Width:=w;
        except on EConvertError do
        ShowMessage('Ââîäèòå òîëüêî öèôðû!');
      end;
      try
        h:=StrToInt(EdHeight.Text);
        PaintB.Height:=h;
        Img.Height:=h;
        buffer.Height:=h;
        except on EConvertError do
        ShowMessage('Ââîäèòå òîëüêî öèôðû!');
      end;
    end;