Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

 typedef struct
  {
  UINT        _nSize;
  UINT_PTR       _nUserParam;
  LPCSTR        _pszProjectFileName;
  LPCSTR        _pszOriginalProjectFileName;
  UINT        _nPages; // 0 for 'unlimited'
  UINT        _nFunction;
  HWND        _hWnd;
  HANDLE        _hEvent;
  LPCSTR        _pszExportFormat;
   BOOL        _bWithoutDialog;
  } scLlDesignerPrintJobA;

Code: Alles auswählen

DEFINE  STRUCTURE LLDesignerPrintJob
	VAR _nSize AS UINTEGER
	VAR _nUserParam AS UINTEGER
	VAR _pszProjectName AS @STRING
	VAR _pszOriginalProjectFileName AS @STRING
	VAR _nPages AS UINTEGER
	VAR _nFunction AS UINTEGER
	VAR _hWnd AS UINTEGER
	VAR _hEvent AS UINTEGER
	VAR _pszExportFormat AS @STRING
	VAR _bWithoutDialog AS UINTEGER
ENDDEFINE 

Code: Alles auswählen

oCallback	:= LLDesignerPrintJob():New(pointer)
oCallback:_pszExportFormatFromVar()  // löst pointer auf String auf !!
// für jedes Char-Element gibt es eine *FromVar Methode
// es gibt sogar *ToVar
// Numerische Werte mit get/set:
oCallback:get_hevent()
oCallback:set_hevent(5)

Code: Alles auswählen

oCallback:set_hevent(5)
oCallbak:_pszOriginalProjectFileNametovar("Hello World")