VPF::вывести на печать текущее время

Гульмира

Дата 31.1.2011, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 18.10.2010

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Гульмира

Дата 31.1.2011, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 18.10.2010

Репутация: нет
Всего: нет

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

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

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

Спасибо

Это сообщение отредактировал(а) Гульмира - 31.1.2011, 11:46

Keeper89

Дата 31.1.2011, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

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

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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