X-Git-Url: https://sfsrealm.hopto.org/projects/gitweb.cgi?a=blobdiff_plain;f=grpapi%2FGrpApi.bas;h=1df20862abd121fcb96ed7e49f704509b0ecfb13;hb=2d86db8c62512403ab189a8f7eacf7898e3df4e3;hp=5fa258535dd3f68a161fff554068b06786fd44aa;hpb=021a5286100edce1abd5c3cb507e2b40e4df1462;p=grpapi.git diff --git a/grpapi/GrpApi.bas b/grpapi/GrpApi.bas index 5fa2585..1df2086 100644 --- a/grpapi/GrpApi.bas +++ b/grpapi/GrpApi.bas @@ -1,7 +1,8 @@ Attribute VB_Name = "GrpApi" Option Explicit -' ShadowFlare GRP Library. (c) ShadowFlare Software 2002-2006 +' ShadowFlare GRP Library. (c) ShadowFlare Software 2002-2008 +' License information for this code is in license.txt ' Any comments or suggestions are accepted at blakflare@hotmail.com (ShadowFlare) @@ -81,18 +82,18 @@ Declare Sub CopyMemory Lib "Kernel32.dll" _ ' ' The functions must be in this form: ' -' Function GetPixelProc (ByRef value As any_type, X As Long, Y As Long) As Long -' Sub SetPixelProc (ByRef value As any_type, X As Long, Y As Long, clrColor As Long) +' Function GetPixelProc (ByRef value As any_type, ByVal X As Long, ByVal Y As Long) As Long +' Sub SetPixelProc (ByRef value As any_type, ByVal X As Long, ByVal Y As Long, ByVal clrColor As Long) ' ' or ' -' Function GetPixelProc (ByVal value As any_type, X As Long, Y As Long) As Long -' Sub SetPixelProc (ByVal value As any_type, X As Long, Y As Long, clrColor As Long) +' Function GetPixelProc (ByVal value As any_type, ByVal X As Long, ByVal Y As Long) As Long +' Sub SetPixelProc (ByVal value As any_type, ByVal X As Long, ByVal Y As Long, ByVal clrColor As Long) ' -' Replace "any_type" with whatever type you want. This parameter gets the data from -' DrawGrp's hdcDest parameter. You can either pass a number to DrawGrp and use the -' "ByVal" versions of the above functions, or you can use AddressOf to get a reference -' to a variable and use it for the "ByRef" versions. +' Replace "any_type" with whatever type you want (but must be 4 bytes long if ByVal). +' This parameter gets the data from DrawGrp's hdcDest parameter. You can either pass +' a number to DrawGrp and use the "ByVal" versions of the above functions, or you can +' use AddressOf to get a reference to a variable and use it for the "ByRef" versions. ' GetPixelProc should return an RGB color value. Declare Sub SetFunctionGetPixel Lib "Grpapi.dll" (lpGetPixelProc As Long) Declare Sub SetFunctionSetPixel Lib "Grpapi.dll" (lpSetPixelProc As Long)