کامپوننت OLE

[مجتبی جوادی]

درود
دوستان آیا کامپوننتی برای کار با CorelDraw وجود دارد؟ ممنون میشم اگر جواب مثبته نام آنرا معرفی کنید.
با سپاس از شما

[hadisalahi2]

برای چه کاری میخوای؟
اگه برای کار با منحنی ها در حالت Vector میخوای ، توی مجموعه TMs همچین مواردی وجود داره

[مجتبی جوادی]

درود بر شما
من یک برنامه نوشتم که یک اسم را به چند نوع فونت تبدیل می کنه و حالا میخوام این فونت ها را اکسپورد کنم توی یک فایل Corel . من خودم کدی را نوشته ام ولی وقتی نوشته به Corel منتقل میشه فونت عوض میشه!
Var
cdr : Variant;
begin
cdr := CreateOleObject('CorelDraw.Automation');
cdr.FileNew;
cdr.SetDocVisible(True);
cdr.CreateArtisticText('Javadi',0,0);
cdr.SetCharacterAttibutes(0,0,'Tahoma',0,120,0,0,0 ,0,0,200,200,0);
cdr.FileSave('C:\Javadi\Javadi',0,False,0,False);
cdr.FileExit(False);
cdr.Unassigned;
end;
این کد تنها مشکلش اینه که فونت متن نوشته شده در برنامه Corel را پیش فرض خودش (Arial) قرار میده! در صورتیکه من Tahoma تعریف کرده ام
با سپاس

[hadisalahi2]

فک کردم توی کارل یک تنظیم برای فونت پیش فرض باشه
فک کنم باید از کارل تنظیم کنی

[مجتبی جوادی]

قطعا از خود برنامه Corel میشه تنظیم کرد !!!!!:تشویق:
من میخوام برای فرد استفاده کننده از برنامه Corel تغییر فونتی وجود نداشته باشه و از داخل خود دلفی تنظیمات انجام بشه.
از استاتید محترم اگر کسی در این زمینه اطلاعاتی داره ممنون میشم راهنمایی کنه
با سپاس

[مجتبی جوادی]

درود
دوستان کسی کامپوننتی برای Automation سراغ نداره معرفی کنه؟

[مجتبی جوادی]

درود
من خودم مشکل را حل کردم و در این پست قرار میدم تا شاید کسی از آن استفاده کنه
var
cdr,Shp : Variant;
begin
cdr := CreateOleObject('CorelDraw.Application');
cdr.CorelScript.FileNew;
Shp := cdr.ActivePage;
Shp.ActiveLayer.CreateArtisticText(Left,Bottom,'My Text',7177,0,'FontName',FontSize,0,0,0,1);
end;