محمد نسمان
10-05-2010, 03:41 PM
مكتبة Synopse PDF والنسخة الأخيرة منها 1.7.2 تم إضافة دعم اللغة العربية بها، المكتبة مفتوحة المصدر ومطورها شخص منفتح جداً للملاحظات.
http://blog.synopse.info/
التحميل:
http://synopse.info/files/pdf/synpdf.zip
كمثال لإستخدامها:
uses
SynPdf;
procedure TForm4.FormCreate(Sender: TObject);
begin
with TPdfDocument.Create do
try
AddPage;
Canvas.SetFont('tahoma',12,[fsBold]);
UseUniscribe := True;
Canvas.TextOut(300,700,'تجربة للغة العربية من داخل دلفي');
Canvas.TextOut(100,680,'English test from Delphi');
SaveToFile('Arabic.pdf');
finally
Free;
end;
end;
المكتوبة مكتوبة بالدلفي 100%، ولا تحتاج لأي ملفات إضافية.
مزيد من المعلومات
http://www.mnasman.com/blog/?p=171
http://blog.synopse.info/
التحميل:
http://synopse.info/files/pdf/synpdf.zip
كمثال لإستخدامها:
uses
SynPdf;
procedure TForm4.FormCreate(Sender: TObject);
begin
with TPdfDocument.Create do
try
AddPage;
Canvas.SetFont('tahoma',12,[fsBold]);
UseUniscribe := True;
Canvas.TextOut(300,700,'تجربة للغة العربية من داخل دلفي');
Canvas.TextOut(100,680,'English test from Delphi');
SaveToFile('Arabic.pdf');
finally
Free;
end;
end;
المكتوبة مكتوبة بالدلفي 100%، ولا تحتاج لأي ملفات إضافية.
مزيد من المعلومات
http://www.mnasman.com/blog/?p=171