nesco писал(а):
Кстати, твой код может отрисовать на контексте принтера или ему пофиг на контекст, что подсунули, на том и отрисовали?Да скорей всего, это же контекст, хай какие то там масштабы для вывода.
nesco, с DocumentTemplate я не знаком, нужен был экспорт BmpToPDF я сделал.
Для руш контролов (TrackBarRush, PanelRush) достаточно процедурки DrawBackground для проблем с фоном
procedure THIClassName.DrawBackground(Sender: PControl);
var
org: TPoint;
hParent: HWND;
scrDC: HDC;
begin
try
hParent := Sender.Parent.GetWindowHandle;
scrDC := Sender.Canvas.Handle;
OffsetViewportOrgEx(scrDC, -Sender.Left, -Sender.Top, org);
SendMessage(hParent, WM_ERASEBKGND, scrDC, 0);
SendMessage(hParent, WM_PRINTCLIENT, scrDC, PRF_CLIENT);
SetViewportOrgEx(scrDC, org.x, org.y, nil);
except
end;
end;
Поиск
Друзья
Администрация