Затираеться рисунок

[newkobra]

Доброго времени суток.
У меня в курсовой возникли некие проблемы. Мне нужно на форму выводить график функции. Я это делаю с помощью Form1.Canvas но возникла проблема, если спрятать форму или навести на нее другую то рисунок затираеться + график появляться сверху над другими компонентами, а хотелось чтоб компоненты(Label) был сверху над рисунком. Есть ли способ это исправить.
И попрошу немного поподробнее, а то я Delphi не очень хорошо знаю, но курсовую заставили делать именно на Delphi.
Заранее благодарен!

[SoftKoc]

Здравствуйте!
Чтобы не затирался рисунок можно скопировать его в переменную TBitmap. А потом выводить его обратно с TBitmap на Canvas при OnPaint - Form(мы) используя Canvas.Draw.
Или если у вас есть процедура которая рисует график функции.
Тогда можно просто ее вызывать (для перерисовки) в OnPaint - Form(мы).
Или просто используйте компонент Image, рисуйте на его канве (рисунок не будет затираться)!

[newkobra]

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

Здравствуйте!
Или просто используйте компонент Image, рисуйте на его канве (рисунок не будет затираться)!

Вот об этом поподробнее если можна))
У меня есть процедура которую я вызываю несколько раз(у меня 4 графика). В этой процедуре у меня код типа:

with Form1 do
Begin
//Здесь происходит все рисования
end

Можна ли как нибудь изменить чтоб внутри рисования ничего не изменять?
И попрошу код если не затруднит.

[mihali4]

Ну что вы растерялись?
Все то же самое, но вместо Canvas формы используйте рекомендованный вам Canvas у имэдж...

with Image1 do
Begin
//Здесь происходит все рисование
end

А лучше

with Image1.Canvas do

Image1 разместите там, где вы рисовали раньше. Хоть растяните на всю форму...

[SoftKoc]

Просто положите на Form(му) Image1 и измените пару слов в коде.
А Image1 растяните как вам угодно, в посту #4 уже говорили.

with Image1.Canvas do
 Begin
 //Здесь происходит все рисования.
 End;

[SoftKoc]

Вот вам пример!
Можете свернуть его, развернуть и от этого ничего не измениться,
Все что было нарисовано то и осталось!
Primer.rar

[SoftKoc]

Получилось?