مكون نصي يدعم HTML , مع إمكانية طباعته ؟؟؟

صعب عل حسب علمي

خاصة موضوع الطباعة بالذات

والله أعلم

أخي ashrafweb لا أعتقد بأن المطلوب صعب المنال , كيف لا وأني قد حصلت على مكون , لكنه صعب التعامل كثير التعقيد , يفرض استعمال وسوم محددة , واسمه TRichView

لربما لم اجد استخدامه , لكنني أتمنى أن أعرف مكونات أخرى , أو أحدا قد استعمله وأجاد فيه ليخبرني بالطريقة لإضافة أكواد HTML فيه بكل حرية . . .

السلام عليكم

استعمل TPageProducerالموجودة على مكونات خانة INTERNET

و أيضا TPageBrowser التي تستطيع أن تظهر لك page Html

و ادا أردت طباعتها يمكن استعمال عدة طرق:

* الإجراء ExecWb الخاص ب الكائن TPageBrowser

ExesWb(OLECMDID_Print,0);

ا

لا أدري ,,, لربما إذا أوضحت غرضي لتوصلنا إلى فهم أفضل لمار نريد . . .

طُلب منّي ايراد تقرير احصائي في برنامجي , وطبعا أحتاج إلى جداول , وألوان لترتيب تقرير الإحاصاء , ولربما أراد المستخدم بعض الاحصائيات البسيطة , ولربما أراد الكثير , من هنا ابتعدت عن استخدام مكونات التقارير كــ FasrReport و QuickReport لأجد مساحة من من الحرية في ترتيب الخانات بأكواد HTML خاصة وأني أجيد استعمال أكوادها . . .

HTML LABEL

مجموعة مكونات جميله تسمح بعرض شفرات HTML , وكأنها Browser بسيط

أو يمكن أعتباره نوع من أنواع ال Label ولكن يقبل رموز html وبالتالي يمكن تنسيق الlabel بعدة ألوان وأحجام ..

تجده في هذه الصفحة :

http://www.orwah.net/modules/newbb/viewtop..._id=10&forum=17

ممكن استخدامwebbrowser من الصفحة internet

إذا كنت تريد خيارات الطباعة ..

فهو بالنهاية مستعرض أنترنت ويمكنه بسهولة فتح ملفات Html

دائما تسبقتني يا عروة

شكرا أخي عروة على تفضلك بالرد ...

ولي على تعقيبك تعقيبان ..

الأول : المكون HTML Label لايدعم - وللأسف - الجداول , وهي بالنسبة لي بيت القصيد .

الثاني : webbrowser حاولت معه في إداراج ماأردت لكن لم اجد حيلة إليه , فأتمنى إيراد مثال في كيفية إداراج الوسوم من ملف أو مباشرة إليه . . .

..................................

لكم الشكر الجزيل على ردودكم ...

webbrowser1.navigate('c:\a.html');

السلام عليكم و رحمة الله و بركاته

هناك مكون يفي بالغرض و هو ThtmlViewer

موقع المكون هنــــــــا

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMHTTP1.Get('www.swissdelphicenter.ch');
  memo1.Text := NMHTTP1.Body
end;

وفي هذه الحالة تحتاج الى المكون NMHTTP1

لكن انطر الى هذا

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.SwissDelphiCenter.com');
end;

// Print without Printer Dialog 

procedure TForm1.Button2Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
    vaIn, vaOut);
end;

// Print with Printer Dialog 

procedure TForm1.Button3Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;

// Print Preview 

procedure TForm1.Button4Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW,
    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

// Page Setup Dialog 

procedure TForm1.Button5Click(Sender: TObject);
var
  vaIn, vaOut: OleVariant;
begin
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER,
    vaIn, vaOut);
end;