Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > вывести на печать текущее время

Автор: Гульмира 31.1.2011, 10:44

Здравствуйте.
Помогите разобратся со следующей задачей.
Есть код распечатки данных.

Код


with Printer do begin
   r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
   BeginDoc;
   for i := 0 to Memo1.Lines.Count do begin
    s := Memo1.Lines.Strings[i];
    if Trim(s) > '' then
    //CharToOem(PChar(s),PChar(s));
    Canvas.TextOut(200,200 + (i * Canvas.TextHeight(s)), s);
   end;
   //Canvas.Brush.Color := clBlack;
   EndDoc;

Как можно при печати в конце вывести текущее время DateTimeToStr(Now)???

Автор: Poseidon 31.1.2011, 11:28

Выше EndDoc; добавь Canvas.TextOut(x,y, DateTimeToStr(Now)); с чем трудности? x,y - координаты надписи (нужно будет рассчитывать)

Автор: Гульмира 31.1.2011, 11:41

Цитата(Poseidon @ 31.1.2011, 11:28)

Выше EndDoc; добавь Canvas.TextOut(x,y, DateTimeToStr(Now)); с чем трудности? x,y - координаты надписи (нужно будет рассчитывать)

Ой-ой...... забыла совсем обратить внимание на координаты. Я так пробовала. Удалялась первая строка и вместо него записывалась текущая дата. Все поняла.. где я недоглядела. smile

Спасибо

Автор: Keeper89 31.1.2011, 11:44

Значит нужно подобрать координаты, а так оно перекрывается.