رندر متن يك TrichEdit در يك Canvas

procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);

var

    ImageCanvas: TCanvas;

    fmt: TFormatRange;

begin

ImageCanvas := Canvas;

with fmt do

begin

hdc:= ImageCanvas.Handle;

hdcTarget:= hdc;

// rect needs to be specified in twips (1/1440 inch) as unit

rc:= Rect(0, 0,

ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch,

ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch);

rcPage:= rc;

chrg.cpMin := 0;

chrg.cpMax := RichEdit.GetTextLen;

end;

SetBkMode(ImageCanvas.Handle, TRANSPARENT);

RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));

// next call frees some cached data

RichEdit.Perform(EM_FORMATRANGE, 0, 0);

end;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: