| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как сделать разрыв страницы в RichEdit при печати [D6, Win2k]

zam2000 ©   (2002-11-20 10:28:00) 

Мне необходимо после конкретрого предложения сделать новую страницу(именно чтоб при печати это была новая страница)
Подскажите кто знает

---

KoluChi   (2002-11-20 12:06:00) [1]

Для RxRichEdit:
в тексте где вставляется разрыв страницы нужно написать <new page>
RichEdit1.Lines.SaveToStream(Stream);
S := Stream.DataString;
S := StringReplace(S, "<new page>", "\page", [rfReplaceAll, rfIgnoreCase]);
Stream.Position := 0;
Stream.WriteString(S);
Stream.Position := 0;
RichEdit1.Lines.LoadFromStream(Stream);

---

SuperVK   (2002-11-20 12:05:00) [2]

По поводу стандартного аттрибута: интересно, какой-это стандартный аттрибут?
По поводу пробелов: хрен редьки не слаще - надо будет рассчитывать их (пробелов) количество, а, на мой взгляд, разбить на файлы попроще будет.

---

zam2000   (2002-11-20 11:47:00) [3]

а как тогда засунуть в нужном месте тег /Page в rxrichedit через Stream, чтобы после нужной строки был разрыв

---

KoluChi   (2002-11-20 11:40:00) [4]

RxRichEdit - поддерживает перевод страницы, отображает пустой строкой, но печает нормально. Можно попробовать засунуть перевод страницы, хотя бы через Clipboard.

---

KoluChi   (2002-11-20 11:23:00) [5]

Похорошему надо вставить символ разделения страницы в RichEdit,
но у меня это не получилось - RichEdit его не поддерживает.
(даже при открытии файла с разделителем он его преобразует в пустую строку)
При печати можно разбить текст на части и печатать отдельно:
function TmainForm.GetRTFStrings(Editor: TRichEdit; Index, Count: Integer): String;
var
I: Integer;
RichEdit: TRichEdit;
Stream: TStringStream;
begin
Stream := TStringStream.Create("");
RichEdit := TRichEdit.Create(Self);
RichEdit.ParentWindow := Handle;
try
Editor.Lines.SaveToStream(Stream);
Stream.Position := 0;
RichEdit.Lines.LoadFromStream(Stream);
for I := RichEdit.Lines.Count - 1 downto 0 do
if (I < Index) or (I > Index + Count) then RichEdit.Lines.Delete(I);
Stream.Position := 0;
RichEdit.Lines.SaveToStream(Stream);
Result := Stream.DataString;
ShowMessage(Result);
finally
RichEdit.Free();
Stream.Free();
end;
end;

---

zam2000   (2002-11-20 11:18:00) [6]

ну это уже слишком, тогда легче пробелов понавствлять, и ведь есть стандартный атрибут, вопрос как его вставить

---

SuperVK   (2002-11-20 11:15:00) [7]

Не знаю, может есть способ попроще, но мне это удалось сделать весьма сложными путями. Я для этого в процессе распечатки текст на файлы разбивал и файлы отдельно печатал.

---

KoluChi   (2002-11-20 10:59:00) [8]

Да поторопился, как записать пока не знаю.
Но в формате RTF \par \page - перевод строки.

---

zam2000   (2002-11-20 10:54:00) [9]

хм а как этим пользоваться, просто написать например

RichEdit1.Lines.Add("123"+"\page"+"123");

Но такое у меня не работает, т.е в Richedit после этого просто пишется текст "123\page123" и печатается на одной странице этот текст,а мне надо чтобы это были две страницы, на каждой из которых было бы написано вверху "123"

---

KoluChi   (2002-11-20 10:42:00) [10]

\par \page

---

Наверх