Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.05.2019, 08:31
Vansha Vansha вне форума
Прохожий
 
Регистрация: 18.01.2018
Сообщения: 19
Версия Delphi: 7, XE5
Репутация: 10
По умолчанию Печать из Memo

Код:
procedure TForm1.FormCreate(Sender : TObject);
begin
  FNumber := 0;
  FNumber2 := 0;
end;

procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
 begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
    Printer.Canvas.Font:=Form1.Memo1.Font;
    Printer.Canvas.Font.size:=45;
        for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Ошибка печати.', mtError, [mbOk], 0);
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Inc(FNumber);
  Memo1.Text := IntToStr(FNumber);
  Memo1.Lines.Add('окно1');
  PrintStrings(Memo1.Lines);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Inc(FNumber2);
  Memo2.Text := IntToStr(FNumber2);
  Memo2.Lines.Add('окно2');
  PrintStrings(Memo2.Lines);
end;
end.

Подскажите как можно исправить.
При печати из Memo каждый символ печатается в строку:
(Вариант1)
1
О
к
н
о
1

А нужно что б была печать
(Вариант2)
1
Окно1

Где и как можно поправить что б печаталось как в варианте 2 и по центру листа, печать происходит выравнивание по левому краю.
  #2  
Старый 13.05.2019, 08:59
Vansha Vansha вне форума
Прохожий
 
Регистрация: 18.01.2018
Сообщения: 19
Версия Delphi: 7, XE5
Репутация: 10
По умолчанию

Все решено.
Вместо memo использовал RichEdit
Закрытая тема



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter