xsharp.eu

Code: Select all

USING System.Runtime.InteropServices // top of prg
....
DELEGATE OGS_EnumAddItemToArray_delegate(ptrWnd AS PTR , lParam AS INT) AS WORD 
STATIC FUNCTION OGS_EnumAddItemToArray(ptrWnd AS PTR , lParam AS INT) AS WORD CALLBACK
	LOCAL aWindows AS ARRAY
	LOCAL oArrayHandle AS GCHandle
	oArrayHandle := GCHandle.FromIntPtr(lParam)
	aWindows := (ARRAY) oArrayHandle:Target

	IF aWindows[1] <= aWindows[2]				// number of elements <= max elements?
		aWindows[++aWindows[3]] := ptrWnd		// save handle
		aWindows[1] := ++aWindows[1]			// raise number of elements
	ELSE									// array zu small?
		aWindows[1] := -1					// return error
		RETURN 0
	ENDIF
		
	RETURN 1

FUNCTION OGS_EnumWindows() AS ARRAY PASCAL
	LOCAL aWindows AS ARRAY
	LOCAL loFaktor	AS DWORD
	
	aWindows := ArrayCreate(1024)
	aWindows[1] := 0				// Number of elements
	loFaktor := 1
	
	DO WHILE aWindows[1] = 0
		
		// max number of elements
		aWindows[2] := 1024*loFaktor
		// starting element-1
		aWindows[3] := 3

//		#warning Callback function modified to use a DELEGATE by xPorter. Please review.
//		EnumWindows(@OGS_EnumAddItemToArray(),LONGINT(_CAST,aWindows))
		STATIC LOCAL oOGS_EnumAddItemToArrayDelegate := OGS_EnumAddItemToArray AS OGS_EnumAddItemToArray_Delegate
		LOCAL oArrayHandle AS GCHandle
		oArrayHandle := GCHandle.Alloc(aWindows)
		EnumWindows(Marshal.GetFunctionPointerForDelegate(oOGS_EnumAddItemToArrayDelegate) , GCHandle.ToIntPtr(oArrayHandle))
		oArrayHandle:Free()

		IF aWindows[1] = -1
			
			aWindows := ArrayCreate(1024*(++loFaktor))	// too less elements
			aWindows[1] := 0
			aWindows[2] := 1024*loFaktor
			aWindows[3] := 3

		ELSE
			
			EXIT
		
		ENDIF
		
	ENDDO

	loFaktor := aWindows[1]
	aWindows := ADel(aWindows,1)                 		// delete element 1,2,3
	aWindows := ADel(aWindows,1)
	aWindows := ADel(aWindows,1)
	aWindows := ASize(aWindows,loFaktor)			// running windows

	RETURN aWindows

Code: Select all

CLASS Mailing
METHOD Close() 
ASSIGN FilterExpression(cString AS STRING) AS STRING PASCAL 
CONSTRUCTOR(oOwner AS window, cName AS STRING) 
ACCESS IsValid AS LOGIC PASCAL 
METHOD PrintPreview() 
ASSIGN SeekExpression(cString AS STRING) AS STRING PASCAL 
METHOD SetIndex(cString1 AS STRING, cString2 AS STRING) 
METHOD SetSortOrder(cOrder AS STRING) 
METHOD SetVariableValue(cVar AS STRING, cStr AS STRING) 
ASSIGN WhileExpression(cString) 
END CLASS

CLASS Etikette INHERIT Mailing	// Line 570
METHOD PrintPreview() 
END CLASS

error XS7036: There is no argument given that corresponds to the required formal parameter 'oOwner' of 'Mailing.Mailing(VO.Window, string)'	570,1	dlgReports.prg	Etikette:Etikette

Code: Select all

CLASS Etikette INHERIT Mailing
CONSTRUCTOR(oOwner AS window, cName AS STRING) 
SUPER(oOwner, cName)