paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:49:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use prettier parameter names in the XShm unit

Browse Source 
git-svn-id: trunk@49593 -
This commit is contained in:
nickysn 2021-07-11 00:03:28 +00:00
parent d16160be91
commit dfaa12e9d9
1 changed files with 22 additions and 22 deletions

44
packages/x11/src/xshm.pp
View File

@ -65,34 +65,34 @@ type
readOnly : TBool;
end;
function XShmQueryExtension(para1:PDisplay):TBoolResult;cdecl;external libX11;
function XShmGetEventBase(para1:PDisplay):cint;cdecl;external libX11;
function XShmQueryVersion(para1:PDisplay; para2:Pcint; para3:Pcint; para4:PBool):TBoolResult;cdecl;external libX11;
function XShmPixmapFormat(para1:PDisplay):cint;cdecl;external libX11;
function XShmAttach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmDetach(para1:PDisplay; para2:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:TBool):TStatus;cdecl;external libX11;
function XShmGetImage(para1:PDisplay; para2:TDrawable; para3:PXImage; para4:cint; para5:cint;
para6:culong):TStatus;cdecl;external libX11;
function XShmCreateImage(para1:PDisplay; para2:PVisual; para3:cuint; para4:cint; para5:Pchar;
para6:PXShmSegmentInfo; para7:cuint; para8:cuint):PXImage;cdecl;external libX11;
function XShmCreatePixmap(para1:PDisplay; para2:TDrawable; para3:Pchar; para4:PXShmSegmentInfo; para5:cuint;
para6:cuint; para7:cuint):TPixmap;cdecl;external libX11;
function XShmQueryExtension(dpy:PDisplay):TBoolResult;cdecl;external libX11;
function XShmGetEventBase(dpy:PDisplay):cint;cdecl;external libX11;
function XShmQueryVersion(dpy:PDisplay;majorVersion,minorVersion:Pcint;sharedPixmaps:PBool):TBoolResult;cdecl;external libX11;
function XShmPixmapFormat(dpy:PDisplay):cint;cdecl;external libX11;
function XShmAttach(dpy:PDisplay;shminfo:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmDetach(dpy:PDisplay;shminfo:PXShmSegmentInfo):TStatus;cdecl;external libX11;
function XShmPutImage(dpy:PDisplay;d:TDrawable;gc:TGC;image:PXImage;
src_x,src_y,dst_x,dst_y:cint;src_width,src_height:cuint;
send_event:TBool):TStatus;cdecl;external libX11;
function XShmGetImage(dpy:PDisplay;d:TDrawable;image:PXImage;x,y:cint;
plane_mask:culong):TStatus;cdecl;external libX11;
function XShmCreateImage(dpy:PDisplay;visual:PVisual;depth:cuint;format:cint;data:Pchar;
shminfo:PXShmSegmentInfo;width,height:cuint):PXImage;cdecl;external libX11;
function XShmCreatePixmap(dpy:PDisplay;d:TDrawable;data:Pchar;shminfo:PXShmSegmentInfo;
width,height,depth:cuint):TPixmap;cdecl;external libX11;
{ overloaded functions to handle TBool parameters as actual booleans }
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:Boolean):TStatus;
function XShmPutImage(dpy:PDisplay;d:TDrawable;gc:TGC;image:PXImage;
src_x,src_y,dst_x,dst_y:cint;src_width,src_height:cuint;
send_event:Boolean):TStatus;
implementation
function XShmPutImage(para1:PDisplay; para2:TDrawable; para3:TGC; para4:PXImage; para5:cint;
para6:cint; para7:cint; para8:cint; para9:cuint; para10:cuint;
para11:Boolean):TStatus;
function XShmPutImage(dpy:PDisplay;d:TDrawable;gc:TGC;image:PXImage;
src_x,src_y,dst_x,dst_y:cint;src_width,src_height:cuint;
send_event:Boolean):TStatus;
begin
XShmPutImage := XShmPutImage(para1,para2,para3,para4,para5,para6,para7,para8,para9,para10,Ord(para11));
XShmPutImage := XShmPutImage(dpy,d,gc,image,src_x,src_y,dst_x,dst_y,src_width,src_height,Ord(send_event));
end;
end.