Предпросмотр/печать TRichEdit

Delphi , Компоненты и Классы , TMemo и TRichEdit

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

lParam пареметр этого сообщения содержит указатель на структуру TFormatRange.

Перед посылкой сообщения нужно заполнить эту структуру:

hdc - контекст устройства, на который будет выводиться Rich Edit

hdcTarget - контекст устройства, в соответствии с которым будет производиться форматирование текста

rc - область, в которую будет выводиться Rich Edit. Единицы измерения - твипсы (twips). Twips = 1/1440 дюйма.

rcPage - полная область вывода устройства (в твипсах)

chrg - указывает диапазон выводимого текста

chrg.cpMin и chrg.cpMax - позиции символов, определяющие кусок текста (не включая сами cpMin и cpMax)...

Code:

function PrintRTFToBitmap(ARichEdit :  TRichEdit; ABitmap : TBitmap) : Longint;

        var

        range     : TFormatRange;

        begin

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

        //  Rendering to the same DC we are measuring.

        Range.hdc        := ABitmap.Canvas.handle;

        Range.hdcTarget  := ABitmap.Canvas.Handle;

         

        // Set  up the page.

        Range.rc.left    := 0;

        Range.rc.top     := 0;

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

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

         

        //  Default the range of text to print as the entire document.

        Range.chrg.cpMax := -1;

        Range.chrg.cpMin := 0;

         

        //  format the text

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

         

        // Free  cached information

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

        end;

Следующий пример покажет, как вывести 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;

А как вывести Rich-текст с фоновым рисунком ?

Рисуем по-отдельности фоновый рисунок и содержимое TRichEdit, а потом их соединяем...

Code:

procedure TForm1.Button2Click(Sender:  TObject);

        var Bmp : TBitmap;

        begin

        Bmp :=  TBitmap.Create;

        bmp.Width := 300;

        bmp.Height := 300;

        PrintToCanvas(bmp.Canvas,2,5,RichEdit1,300,300);

        BitBlt(Image1.Picture.Bitmap.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,

               bmp.Canvas.Handle, 0, 0, srcAND);

        Image1.Repaint;

        bmp.Free;

        end;

Автор: p0s0l

Взято с Vingrad.ru http://forum.vingrad.ru

В статье описывается способ вывода Rich Edit на любой канвас, используя стандартное сообщение EM_FORMATRANGE, а также примеры вывода определённого куска текста и Rich-текста с фоновым рисунком.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TMemo и TRichEdit ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-29 09:05:27/0.0032169818878174/0