Рисовалка в Делфи. Как сохранить рисунок?

@Dreiser · Регистрация: 14.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Использую, соответственно, Paintbox. Как бы потом сохранить сие творение? Спасибо заранее!

@MaltseV · 22.02.2013, 16:13

Попробуй через TBitMap.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    btnSave: TButton;
    pb1: TPaintBox;
    procedure btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btnSaveClick(Sender: TObject);
begin
  pb1.Canvas.Ellipse(0,0,100,100); //рисуем круг
  with TBitMap.Create do
  begin
    width := pb1.Width;
    height := pb1.Height;
    bitblt(canvas.Handle,0,0,width,height,pb1.Canvas.Handle,0,0,srcCopy);
    SaveToFile('Ellipse.bmp');
  end;
end;
 
end.

@Dreiser 8 / 8 / 7 Регистрация: 14.10.2012 Сообщений: 179
		1
	Рисовалка в Делфи. Как сохранить рисунок? 22.02.2013, 16:02. Показов 2077. Ответов 1 Метки нет (Все метки) Здравствуйте! Использую, соответственно, Paintbox. Как бы потом сохранить сие творение? Спасибо заранее! 0

	22.02.2013, 16:13

Рисовалка в Делфи. Как сохранить рисунок?

Решение