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

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

Печатаются крякозябры [D7]


Циркуль ©   (2008-07-06 12:49:00) 

Имеется метод, выводящий нумерацию страниц на канву. В него передается либо канва, на которой рисуем превью, либо канва принтера. Так вот, иногда, на отдельных клиентских компах  бывает такая ситуация, что при печати на принтере русский текст (переменная PageText) выводится всякими левыми символами, причем этот же метод в превью на тех же компах все рисует корректно. И воспроизводится не со всеми шрифтами, например, для Arial или Times New Roman - воспроизводится, для Bookman Old Style - нет, и в превью и на печати все пучком.

procedure TSomeClass.DrawFooter(ACanvas: TCanvas; ARect: TRect; APageNumber, AFontSize: Integer);
var
 AFooterFont: TFont;
 AOldFontHandle: hFont;
 DC: hDC;
begin
 AFooterFont := TFont.Create;
 try
   AFooterFont.Assign(FFooterFont);
   AFooterFont.Size := AFontSize;
   DC := ACanvas.Handle;
   AOldFontHandle := SelectObject(DC, AFooterFont.Handle);
   try
     SetBkMode(DC, TRANSPARENT);
     ...
       DrawText(DC, PChar(SysUtils.Format(PageText + ' %d/%d', [APageNumber, PageCount])),
                                          -1, ARect, DT_BOTTOM or DT_SINGLELINE or DT_CENTER);
     ...
   finally
     SelectObject(DC, AOldFontHandle);
   end;
 finally
   AFooterFont.Free;
 end;
end;


Где грабли?


Циркуль   (2008-07-06 23:55:00) [1]

Спасибо :)


Anatoly Podgoretsky   (2008-07-06 21:04:00) [2]

В настройках принтрера поставить печать шрифтов битмапами.


Anatoly Podgoretsky   (2008-07-06 21:02:00) [3]

> KilkennyCat  (06.07.2008 19:07:01)  [1]

> вполне добротный Акробат Реадер с невполне добротным драйвером ньюлетта-паккарда.

Вообще то ни то, ни другое добротным назвать нельзя.


KilkennyCat   (2008-07-06 19:07:00) [4]

Грабли в настройках компов. Это не только Ваш код так может чудить, например, недавно так чудил на одной из машин вполне добротный Акробат Реадер с невполне добротным драйвером ньюлетта-паккарда.


Наверх

Титульная страница Поиск, карта сайта Написать письмо