[Amilman]

Всем доброго времени суток. Проблема у меня такая я не знаю как сохранить несколько Image + Text в одно изображение.

Своими силами дошел вот до такога вида:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Timer1.Enabled:=true;
Form1.hide;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Form2.OpenPictureDialog1.Execute then
Form2.Image1.Picture.LoadFromFile(Form2.OpenPictureDialog1.FileName);
end;



procedure TForm1.ColorBox1Click(Sender: TObject);
begin
Form2.Label2.Font.Color := ColorBox1.Selected;
Form2.Label3.Font.Color := ColorBox1.Selected;
Form2.Label4.Font.Color := ColorBox1.Selected;
Form2.Label5.Font.Color := ColorBox1.Selected;
Form2.Label6.Font.Color := ColorBox1.Selected;
Form2.Label7.Font.Color := ColorBox1.Selected;
Form2.Label8.Font.Color := ColorBox1.Selected;
Form2.Label9.Font.Color := ColorBox1.Selected;
Form2.Label10.Font.Color := ColorBox1.Selected;
end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label10.Caption := Edit10.Text;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label1.Caption := Edit1.Text;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label2.Caption := Edit2.Text;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label3.Caption := Edit3.Text;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label4.Caption := Edit4.Text;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label5.Caption := Edit5.Text;
end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label6.Caption := Edit6.Text;
end;

procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label7.Caption := Edit7.Text;
end;

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label8.Caption := Edit8.Text;
end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
Form2.Label9.Caption := Edit9.Text;
end;

Но этот код работает по методу PrtScn

Надеюсь на вашу помощь