Cách thêm khung hình và chèn văn bản vào hình ảnh?

Question

Đây là những gì tôi cần: Chương trình để tạo áp phích vui nhộn cho trang facebook nhanh hơn. Áp phích có văn bản, hình ảnh và khung (đường trắng và nền đen). Trong trường hợp này, tôi muốn chèn logo lên poster (hình png).

Tùy thuộc vào kích thước hình ảnh, kích thước của khung hình (trong trường hợp này bao gồm hai hình dạng) phải được tự động thay đổi kích thước cho hình ảnh.

Làm thế nào để tiết kiệm tấm áp phích từ hình ảnh mà từ liên kết (phần 2 hình dạng, linh kiện 2 hình ảnh, 2 nhãn) như hình ảnh?

Làm cách nào để thực hiện việc này? Những gì để sử dụng, bắt đầu từ đâu?

Tôi hy vọng rằng câu hỏi này sẽ không bị xóa.

Answer 1

Nếu bạn đặt tất cả các khung hình, hình dạng và hình ảnh bên trong một TPanel mới (đặt tên MainPanel trong mẫu của tôi), sau đó bạn có thể sử dụng:

procedure savePanelAsImage(fpPanel: tPanel; fpFileName: string); 
var 
    img: TBitmap; 
begin 
    img := TBitmap.Create; 
    try 
    img.Width := fpPanel.Width; 
    img.Height := fpPanel.Height; 
    fpPanel.PaintTo(img.Canvas, 0, 0); 
    img.SaveToFile(fpFileName); 
    finally 
    img.Free; 
    end 
end; 

Cách sử dụng:

savePanelAsImage(MainPanel, 'd:\someFolder\image001.bmp'); 

Ghi chú:

• Đây là mẫu dựa trên VCL;
• Để lưu hình ảnh ở định dạng khác (thay vì BMP) sử dụng: TPngImage (Vcl.Imaging.pngImage) hoặc TJPEGImage (Vcl.Imaging.jpeg);
• Nếu bạn sử dụng FireMonkey (> = Delphi XE2), bạn có thể tận dụng lợi thế của someParentComponent.MakeScreenShot();
• Hình ảnh kết quả sẽ có cùng kích thước với tPanel.

Để có kết quả/tính linh hoạt tốt hơn, tôi khuyên bạn nên sử dụng thư viện Graphics32 cho Delphi (nó hỗ trợ lớp, định cỡ lại hình ảnh, v.v.).