paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

printers: less hints

Browse Source 
git-svn-id: trunk@35786 -
This commit is contained in:
mattias 2012-03-07 06:04:57 +00:00
parent 93ab0b45cd
commit 4307fe4272
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/printers/unix/cupsdyn.pp
View File

@ -675,7 +675,8 @@ Type
{Format tags for attribute formats...
Mask for copied attribute values
Bitflag for copied attribute values }
ipp_tag_t = (IPP_TAG_ZERO := $00,
ipp_tag_t = (IPP_TAG_COPY := (-($7fffffff)) - 1,
IPP_TAG_ZERO := $00,
IPP_TAG_OPERATION,
IPP_TAG_JOB,
IPP_TAG_END,
@ -710,8 +711,8 @@ Type
IPP_TAG_LANGUAGE,
IPP_TAG_MIMETYPE,
IPP_TAG_MEMBERNAME,
IPP_TAG_MASK := $7fffffff,
IPP_TAG_COPY := (-($7fffffff)) - 1);
IPP_TAG_MASK := $7fffffff
);
//Resolution units...
ipp_res_t = (IPP_RES_PER_INCH := 3,
@ -1065,9 +1066,9 @@ var
//httpEncode64: function (out:Pchar; in:Pchar):Pchar;cdecl;
//httpDecode64: function (out:Pchar; in:Pchar):Pchar;cdecl;
httpGetLength: function (http:Phttp_t):longint;cdecl;
httpMD5: function (_para1:Pchar; _para2:Pchar; _para3:Pchar; _para4:TArrayChar32):Pchar;cdecl;
httpMD5Final: function (_para1:Pchar; _para2:Pchar; _para3:Pchar; _para4:TArrayChar32):Pchar;cdecl;
httpMD5String: function (_para1:Pmd5_byte_t; _para2:TArrayChar32):Pchar;cdecl;
httpMD5: function (_para1:Pchar; _para2:Pchar; _para3:Pchar; {%H-}_para4:TArrayChar32):Pchar;cdecl;
httpMD5Final: function (_para1:Pchar; _para2:Pchar; _para3:Pchar; {%H-}_para4:TArrayChar32):Pchar;cdecl;
httpMD5String: function (_para1:Pmd5_byte_t; {%H-}_para2:TArrayChar32):Pchar;cdecl;
//
// cups_ppd

10
components/printers/unix/framepagesetup.pas
View File

@ -44,11 +44,11 @@ type
procedure cbPaperChange(Sender: TObject);
procedure panPreviewResize(Sender: TObject);
procedure pbPreviewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pbPreviewMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure pbPreviewMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure pbPreviewMouseWheelDown(Sender: TObject; {%H-}Shift: TShiftState;
{%H-}MousePos: TPoint; var Handled: Boolean);
procedure pbPreviewMouseWheelUp(Sender: TObject; {%H-}Shift: TShiftState;
{%H-}MousePos: TPoint; var Handled: Boolean);
procedure pbPreviewPaint(Sender: TObject);
procedure radPortraitClick(Sender: TObject);
private