Как сохранить нарисованный график в JPG файл

[Ark]

Короче.

Рисую из вычисленных данных простой график. Хочется сохранить в последствии в JPG файл.

Поставил компонент PaintBox - дык вот в нём мои прямоугольнички не хотят закрашиваться нужным цветом.

Делал такую проверку

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color:=clRed;
Canvas.Brush.Style:=bsSolid;
PaintBox.Canvas.Rectangle(0,0,10,10 );
end;

При этом - квадратик появляется белый (чтоб его)

а при таком раскладе

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color:=clRed;
Canvas.Brush.Style:=bsSolid;
Canvas.Rectangle(0,0,10,10);
end;

На самой форме приятный красный квадрат появляется.

Вопрос такой как мне добиться цвета на компоненте...либо подскажите - каким более удобным способом можно нарисовать и сохранить мой график.

ЗЫ: Ещё один вопрос:
PaintBox.Canvas.Rectangle(любое внутри,любое внутри,любое внутри,Paintbox.Height);
У меня не прорисовывается нижняя граница прямоугольника - даже когда я отнимаю от последнего параметра 100!!! прямоугольник всёравно рисуется до нижней границы. В чём проблема?

ЗЗЫ: Я извинияюсь, если моя тема повторяет уже существующие - вроде поиском поигрался - ничего такого не нашёл.

[DomiNick]

Ну во-первых почему ты рисуешь в событии "FormPaint"..? Сделай кнопку и рисуй при нажатии на неё...
А во-вторых у "Form1.Canvas" и "PaintBox.Canvas" собственные настройки...
Ты выставил настройки "Brush.Color" и "Brush.Style" для "Form1.Canvas", а у "PaintBox.Canvas" они остались как были...

Procedure TForm1.Button1Click(Sender: TObject);
Begin
PaintBox.Canvas.Brush.Color:=clRed;
PaintBox.Canvas.Brush.Style:=bsSolid;
PaintBox.Canvas.Rectangle(0,0,10,10);
End;

[Ark]

Спасибо большое =)

А сохранить в файл из PaintBox можно?

Надо ли вводить BitMap: TBitmap ?

ЗЫ: В прорисовке окна я поставил, чтобы при сворачивании или перекрытии информация никуда не делась. На самом деле я ввёл глобальную константу, и при конце расчётов она открывает своим значением в процедуре перерисовки через if con=1 then собственно прорисовку самого графика =)))

[DomiNick]

чтобы при сворачивании или перекрытии информация никуда не делась

Я обычно рисую в простом TImage и нарисованное на нём при перекрытии никуда не девается...

[Ark]

Благодарствую =)

С TImage - всё стало значительно проще. Надо только один раз прорисовать =)

А как сохранить картинку из TImage в файл?

Я так понимаю нужно вставить диалог сохранения файла. Нужно ли создавать TBitmap? Не подскажешь?

[]Wowan[]

Вот так
Image1.Picture.SaveToFile(FileName) ;

[DomiNick]

Попробуй так:

If SaveDialog1.Execute Then Image1.Picture.SaveToFile(SaveDialog1.FileName);

P.S. И на всякий случай, если раньше не работал с TSaveDialog...

"If ... Then ... " ставится чтоб файл не сохранялся, если например нажали "Отмена"... А то может Ашибка быть...

В "Инспекторе Объектов" ставишь:
DefaultExt -> .bmp (формат в котором надо сохранять файл)

Нажимаешь на многоточие в Filter и в окошке заполняешь первую строчку:
Filter Name -> Windows Bitmap (ну или что-то подобное)
Filter -> *.bmp
Закрываешь окошко кнопкой ОК

После раскрываешь Options и там ещё два пункта:
ofOverwritePrompt -> True
ofPathMustExist -> True

[DeKot]

Для сохранения рисунка в .jpg пропиши в uses модуль -,Jpeg, а сам файл сохраняй стандартно - Image1.Picture.SaveToFile(' "имя файла" . jpg');.
Для работы с графикой в формате .jpg используется TImageJpeg (аналогично TBitMap) - с методами Create, Load/SaveToFile(),Free и т.п.

[mutabor]

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

Для сохранения рисунка в .jpg пропиши в uses модуль -,Jpeg, а сам файл сохраняй стандартно - Image1.Picture.SaveToFile(' "имя файла" . jpg');.

Только сначала все же его перегнать в Jpeg надо, а то сохранится битмап с расширением jpg.

[Ark]

С диалогом разобрался но есть одна проблема.

При тестировании когда выскакивает диалог - когда я нажимаю вверх по каталогу - всё нормально. Но к примеру поднявшись до "Мой компьютер" когда двойным щелчком пытаюсь зайти в диск D - выскакивает такая ошибка

Project Project1.exe raised exception class EInvalidGraphic with message "Unknown picture file exstesion (.lnk)" бла бла бла процесс остановлен используйте пошаговый отладчик

В bmp - сохраняется прекрасно, если не пытаться влезть в каталог и сохранять на рабочий стол.

В принципе - мне в данной программе не требуется jpeg. Но всё таки - объясните пошагово - как его подключать. (В uses вроде прописал) Как "перегнать" Image в jpeg перед сохранением? Как настраивать это в диалоге - я понял.