Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

*#pragma library( "cxplocal10.lib" )    // gibt es nicht
#pragma library( "xppwui.lib" )         // Layoutmanager ist hier drin

Code: Alles auswählen

#INCLUDE "Xbp.CH"
#INCLUDE "AppEvent.CH"
#INCLUDE "Common.CH"

procedure Main
local nEvent, oXbp, mp1, mp2
   nEvent := xbeP_None
   WHILE nEvent <> xbeP_Close
     nEvent := AppEvent(@mp1,@mp2,@oXbp,0)
     oXbp:HandleEvent(nEvent, mp1, mp2)
   END
   QUIT
RETURN

PROC AppSys
LOCAL oDlg, oXbp
LOCAL aSize
   oDlg := XbpDialog():New(,,{0,0},{600,400},,.F.)
   oDlg:TaskList := .T.
   oDlg:Create()
   aSize := oDlg:ClientSize
   aSize[2] -= 22
   CenterControl(oDlg)
   oDlg:Show()
   SetAppFocus(oDlg)
   oDlg:DrawingArea:SetColorBG(GraMakeRGBColor({255,255,127}))
   // Layoutmanager funktioniert nicht auf dem XbpDialog
   /*
   oDlg:DrawingArea:SetPosAndSize({0,22},aSize)
   oXbp := XbpStatusbar():New(oDlg,oDlg,{0,0},{aSize[1],22})
   oXbp:Create()
   oXbp:LayoutAlign := 13 // -> Fehlermeldung   
   */
   // nur auf der DrawingArea funktionierts:
   oXbp := XbpStatusbar():New(oDlg:DrawingArea,oDlg,{0,0},{aSize[1],22})
   oXbp:Create()
   oXbp:LayoutAlign := 13  //  -> hier funktionierts 

RETURN

Code: Alles auswählen

// Xbase++ 1.9 compatibility
#pragma library( "xppui3.lib" )

Code: Alles auswählen

// Xbase++ 1.9 compatibility
#ifndef XBP_RELXPOS
#define XBP_RELXPOS                    0x10
#define XBP_RELYPOS                    0x20
#define XBP_RELWIDTH                   0x40
#define XBP_RELHEIGHT                  0x80
#define XBP_XCENTER                    0x1000
#define XBP_YCENTER                    0x2000
#endif

Code: Alles auswählen

  SELECT 0

   SELECT * FROM (directory()) *** Zeile 47

   ? Fcount()
   ? "1:",fieldget(1)
   ? "2:",fieldget(2)
   ? "3:",fieldget(3)

   inkey(1)

Code: Alles auswählen

------------------------------------------------------------------------------
FEHLERPROTOKOLL von "C:\Users\BRANDELH\Documents\Xbase++\Projects\TestSQL-HB\test.exe" Datum: 30.08.2016 10:32:44

Xbase++ Version     : Xbase++ (R) Version 2.00.721
Betriebssystem      : Windows 7 06.01 Build 07601 Service Pack 1
------------------------------------------------------------------------------
oError:args         :
          -> VALTYPE: U VALUE: NIL
oError:canDefault   : J
oError:canRetry     : N
oError:canSubstitute: J
oError:cargo        : NIL
oError:description  : not implemented yet
oError:filename     : 
oError:genCode      :       9999
oError:operation    : USQLSTATEMENT:SETRESULTHANDLER
oError:osCode       :          0
oError:severity     :          2
oError:subCode      :       9999
oError:subSystem    : USQL
oError:thread       :          1
oError:tries        :          0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from MAIN(47)

Code: Alles auswählen

   use Test1 alias DB
   IF neterr()
      msgbox("DBF konnte nicht geöffnet werden")
      quit
   ENDIF

   DbeInfo(DBFDBE_LOCKOFFSET, 0x7FFFFFFF )

   ? "DBF USED()",used(),"NETERR()",neterr(),"Alias()",padr(alias(),8),"Select()",ntrim(SELECT()), "LastRec()",lastrec()
   aData := {}
   ? "Select start"
   nDauer := seconds()
   SELECT count(*) FROM DB INTO ARRAY aData   //// ******   hier kommt der interne Datenfehler !
   nDauer := seconds() - nDauer
   ? "Anzahl Datensätze",aData,"in DBF, Dauer",nDauer