type TForm1 = class(TForm) Edit1: TEdit; Image1: TImage; SavePictureDialog1: TSavePictureDialog; btnWriteText: TButton; btnSavePicture: TButton; procedure btnWriteTextClick(Sender: TObject); procedure btnSavePictureClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnWriteTextClick(Sender: TObject); begin with Self.Image1.Canvas do begin Font.Charset:= ANSI_CHARSET; Font.Color:= clYellow; Font.Height:= Self.Image1.Height; TextOut(0, 0, Self.Edit1.Text); end; end;procedure TForm1.btnSavePictureClick(Sender: TObject); begin with Self.SavePictureDialog1 do begin if Execute then begin InitialDir:= 'F:\'; Self.Image1.Picture.SaveToFile(FileName); end; end; end;
TForm1 = class(TForm)
Edit1: TEdit;
Image1: TImage;
SavePictureDialog1: TSavePictureDialog;
btnWriteText: TButton;
btnSavePicture: TButton;
procedure btnWriteTextClick(Sender: TObject);
procedure btnSavePictureClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnWriteTextClick(Sender: TObject);
begin
with Self.Image1.Canvas do
begin
Font.Charset:= ANSI_CHARSET;
Font.Color:= clYellow;
Font.Height:= Self.Image1.Height;
TextOut(0, 0, Self.Edit1.Text);
end;
end;procedure TForm1.btnSavePictureClick(Sender: TObject);
begin
with Self.SavePictureDialog1 do
begin
if Execute then
begin
InitialDir:= 'F:\';
Self.Image1.Picture.SaveToFile(FileName);
end;
end;
end;