Ich hab das ganze schon ein paar mal benutzt und es hat immer funktioniert, ich habe den Code kopiert und auf das jetzige Fenster angepasst, doch leider scheint es so, also würde das Quickbrowse jetzt nicht funktionieren, warum auch immer.
Das ist mein code:
Code: Alles auswählen
#include "Common.ch"
#include "Font.ch"
#include "Gra.ch"
#include "Xbp.ch"
#include "AppEdit.ch"
#include "AppBrow.ch"
#include "Appevent.ch"
#include "ace.ch"
#include "tbxWP.ch"
#pragma library("tbxWP.LIB")
#pragma library("tbxBC.LIB")
#pragma Library( "XppUI2.LIB" )
#pragma Library( "XppUi2.lib" )
#pragma Library("AppClass.lib") // for use the tbxClasses
#pragma Library("AceServer.Lib") // for use data access
#pragma Library("XppUi3.Lib") // for use new XbParts and alignment
#pragma Library("XbpPack.Lib")
#pragma Library("tbxExtCtrl.Lib")
#pragma Library("XppUI2.Lib")
#pragma Library("cjx.Lib")
#pragma Library("ADAC20B.LIB")
#include "quickbrowse.prg"
PROCEDURE Main
LOCAL nEvent, oXbp, mp1, mp2
LOCAL oDlg_anrufe
oDlg_anrufe := anrufe():new()
oDlg_anrufe:title:= "title"
oDlg_anrufe:minSize := {590,409}
oDlg_anrufe:maxSize := {590,409}
oDlg_anrufe:Create()
proc_anrufe( oDlg_anrufe)
nEvent := xbe_None
WHILE nEvent != xbeP_Close
nEvent := AppEvent ( @mp1, @mp2, @oXbp )
oXbp:HandleEvent ( nEvent, mp1, mp2 )
IF nEvent == xbeP_Quit
QUIT // AppQuit()
ENDIF
ENDDO
RETURN
die Procedure proc_anrufe(oDlg_anrufe) hat folgenden Inhalt:
Code: Alles auswählen
PROCEDURE proc_anrufe( oDlg_anrufe ;
)
LOCAL oBrowse_Auftragsliste
LOCAL aHeader
LOCAL browse_pos[2]
LOCAL browse_size[2]
LOCAL aInhaltBrowse
aHeader := { ;
"Nummer", ;
"kundennr", ;
"Anrufer", ;
"Telefonnummer", ;
"E-mail", ;
"Rückrufzeitraum von:", ;
"Rückrufzeitraum bis:", ;
"Problem", ;
"Gesprächsinhalt", ;
"Anrufart", ;
"Erstellt", ;
"Geändert", ;
}
msgbox("1")
browse_pos[1] := 0
browse_pos[2] := 0
browse_size[1] := 1228
browse_size[2] := 500
msgbox("2")
oBrowse_Auftragsliste := XbpQuickBrowse():new(oDlg_anrufe:drawingArea,,browse_pos, browse_size,{ { XBP_PP_COMPOUNDNAME, "12.Arial" } })
msgbox("1s2")
* oBrowse_Auftragsliste:dataLink := DacPagedDataStore():new()
oBrowse_Auftragsliste:dataLink := DacPagedDataStore():new()
msgbox("2.1")
oBrowse_Auftragsliste:create()
msgbox("3")
oBrowse_Auftragsliste:setColWidth(150,1)
oBrowse_Auftragsliste:setColWidth(150,2)
oBrowse_Auftragsliste:setColWidth(150,3)
oBrowse_Auftragsliste:setColWidth(150,4)
oBrowse_Auftragsliste:setColWidth(150,5)
oBrowse_Auftragsliste:setColWidth(150,6)
oBrowse_Auftragsliste:setColWidth(150,7)
oBrowse_Auftragsliste:setColWidth(150,8)
oBrowse_Auftragsliste:setColWidth(150,9)
oBrowse_Auftragsliste:setColWidth(150,10)
oBrowse_Auftragsliste:setColWidth(150,11)
oBrowse_Auftragsliste:setColWidth(150,12)
msgbox("12")
oBrowse_Auftragsliste:setHeader(aHeader)
//...................
msgbox("4")
IF empty(aInhaltBrowse)
AADD(aInhaltBrowse,{ ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"", ;
"" ;
})
msgbox("5")
ENDIF
oBrowse_Auftragsliste:setdataLink(DacPagedDataStore():new(aInhaltBrowse))
RETURN