paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 06:00:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@19040 -
This commit is contained in:
jesus 2009-03-20 07:27:13 +00:00
parent 6a269eed85
commit e9c207884b
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
components/printers/unix/cupsprinters.inc
View File

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