Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Использование KOLPrinters

<Falcon> © (2005-01-26 12:12:00)
Как можно с помощью KOLPrinters (не используя диалог PageSetup) менять ориентацию страницы? Строка:

Printer.Orientation := poLandscape;

эфекта не возымела. Не охота писать через API...

D7, WinXP, Kol2.05

<Falcon> (2005-01-31 14:10:00) [1]
Спасибо, теперь понял в чем была ошибка.

Boguslaw (2005-01-29 19:21:00) [2]
Use Canvas or Handle property of TPrinter, even when not using it - just

somehandle := Printer.Handle;

Test if TPrinter.RE_Print(RichEdit : PControl) is working ,please ?

Boguslaw (2005-01-29 19:18:00) [3]
Sorry,

I misunderstand what did You mean.
I don't know what You are trying to do (one line is not enought ;-) , but
after

Printer.Orientation := poLandscape;

use eigther Printer.GetHandle or use Printer.Canvas . This cause printer DC rebuild (device context) with modified orientation.

thaddy (2005-01-28 19:11:00) [4]
You can fill the *structure* programmatically, is what Boguslav means. i.e. without calling the dialog itself

<Falcon> (2005-01-28 16:50:00) [5]

> Как можно с помощью KOLPrinters ( не используя диалог PageSetup).....

Boguslaw (2005-01-28 01:47:00) [6]
From KOLPrinters help:

type TPageSetupOptions = Set of TPageSetupOption;
Options:

psdMargins : allow user to select margins
psdOrientation : allow user to select page orientation
psdSamplePage : draw contents of the sample page
psdPaperControl : allow paper size control
psdPrinterControl : allow user to select printer
psdHundredthsOfMillimeters : set scale to hundredths of millimeters for margins and paper size,on return indicate selected scale
psdThousandthsOfInches : set scale to thousandths of inches for margins and paper size,on return indicate selected scale
psdUseMargins,psdUseMinMargins : use suggested margins
psdWarning : generate warning when there is no default printer
psdHelp : add help button to dialog, application must process HELPMSGSTRING message
psdReturnDC : returns DC of selected printer if required

function NewPageSetupDialog( AOwner: PControl; Options: TPageSetupOptions ): PPageSetupDlg;
Global function for page setup dialog

Did You add psdPaperControl into TPageSetupOptions ?

<Falcon> (2005-01-27 11:52:00) [7]
При просмотре этого свойства во время отладки (Printer.Orientation) Делфя выдает:
function to by called TPrinter.GetOrientation was eliminated by linker

Наверх

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