VPF::RichEdit - Форум программистов

WIN32API

Дата 2.9.2005, 14:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ребятки, если есть у кого пример, как распечатать (например) первую страницу в двух экземплярах, а вторую в одном из RichEdit за один раз (например, за одно нажатие кнопки) - то бросьте, пожалуйста! Сенкс! Вообще это реально?

WIN32API

Дата 2.9.2005, 20:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

У меня есть добротная процедура печати:

Код


procedure PrintRichEdit(const Cpt: string; const RichEdt: TRichEdit);
var
 Range: TFormatRange;
 LastChar, MaxLen, LogX, LogY, OldMap: Integer;
begin
 FillChar(Range, SizeOf(TFormatRange), 0);
  with Printer, Range do begin
   BeginDoc;
   hdc := Handle;
   hdcTarget := hdc;
   LogX := GetDeviceCaps(Handle, LOGPIXELSX);
   LogY := GetDeviceCaps(Handle, LOGPIXELSY);
    if IsRectEmpty(RichEdt.PageRect) then begin
     rc.right := PageWidth * 1440 div LogX;
     rc.bottom := PageHeight * 1440 div LogY;
    end else begin
     rc.left := RichEdt.PageRect.Left * 1440 div LogX;
     rc.top := RichEdt.PageRect.Top * 1440 div LogY;
     rc.right := RichEdt.PageRect.Right * 1440 div LogX;
     rc.bottom := RichEdt.PageRect.Bottom * 1440 div LogY;
    end;
   rcPage := rc;
   Title := Cpt;
   LastChar := 0;
   MaxLen := RichEdt.GetTextLen;
   chrg.cpMax := -1;
   OldMap := SetMapMode(hdc, MM_TEXT);
   SendMessage(RichEdt.Handle, EM_FORMATRANGE, 0, 0);
    try repeat
     chrg.cpMin := LastChar;
     LastChar := SendMessage(RichEdt.Handle, EM_FORMATRANGE, 1, Longint(@Range));
      if (LastChar < MaxLen) and (LastChar <> -1) then NewPage;
    until (LastChar >= MaxLen) or (LastChar = -1);
   EndDoc;
  finally
   SendMessage(RichEdt.Handle, EM_FORMATRANGE, 0, 0);
   SetMapMode(hdc, OldMap);
  end;
 end;
end;

Помогите сдесь реализовать такую ерунду.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »