Printers, fix PageWidth/PageHeight after orientation change on printer setup dialog (cups), issue #13357

git-svn-id: trunk@19040 -
This commit is contained in:
jesus 2009-03-20 07:27:13 +00:00
parent 6a269eed85
commit e9c207884b

View File

@ -68,8 +68,7 @@ begin
fcupsNumOpts:=0;
fcupsOptions:=nil;
FStates:=FStates-[cpsDefaultPaperNameValid,cpsOrientationValid,
cpsPaperNameValid,cpsCopiesValid];
FStates := [];
end;
procedure TCUPSPrinter.cupsAddOption(aName,aValue: string);
@ -903,24 +902,27 @@ begin
// || ||
// || ||
//
// PORTRAIT ORIENTATION LANDSCAPE ORIENTATION
// PORTRAIT LANDSCAPE
// +-----------------+ +-----------------+
// | t | | t |
// | +---------+ | | +---------+ |
// | | ( ) | | | | | / | |
// | l | --+-- | r | | l |()-+--- | r |
// | | / \ | | | | | \ | |
// | +---------+ | | +---------+ |
// | b | | b |
// +-----------------+ +-----------------+
//
// +-----------------+ +-----------------+
// | t | | t |
// | +---------+ | | +---------+ |
// | | | | | | | |
// | | ( ) | | | | v | |
// | | | | | | |\ | | |
// | l | >--+--< | r | | l | ---+-() | r |
// | | | | | | |/ | | |
// | | / \ | | | | ^ | |
// | | / \ | | | | | |
// | +---------+ | | +---------+ |
// | | | |
// | b | | b |
// +-----------------+ +-----------------+
//
// todo: check meaning of poReverseXXXXX
// REVERSE PORTRAIT REVERSE LANDSCAPE
// +-----------------+ +-----------------+
// | t | | t |
// | +---------+ | | +---------+ |
// | | \ / | | | | \ | | |
// | l | --+-- | r | | l | ---+-()| r |
// | | ( ) | | | | / | | |
// | +---------+ | | +---------+ |
// | b | | b |
// +-----------------+ +-----------------+
//
if Orientation in [poPortrait, poReversePortrait] then begin