вывести только определённый кусок текста

Страница 2 из 3

Следующий пример покажет, как вывести Rich Edit не только на любой канвас, но и также, как вывести только определённый кусок текста...

Code:

function PrintToCanvas(ACanvas : TCanvas; FromChar, ToChar : integer;

ARichEdit : TRichEdit; AWidth, AHeight : integer) : Longint;

var

Range : TFormatRange;

begin

FillChar(Range, SizeOf(TFormatRange), 0);

Range.hdc := ACanvas.handle;

Range.hdcTarget := ACanvas.Handle;

Range.rc.left := 0;

Range.rc.top := 0;

Range.rc.right := AWidth * 1440 div Screen.PixelsPerInch;

Range.rc.Bottom := AHeight * 1440 div Screen.PixelsPerInch;

Range.chrg.cpMax := ToChar;

Range.chrg.cpMin := FromChar;

Result := SendMessage(ARichedit.Handle, EM_FORMATRANGE, 1, Longint(@Range));

SendMessage(ARichEdit.handle, EM_FORMATRANGE, 0,0);

end;

TRichEdit