könnte bitte jemand der XCodejock hat mal das Radiobutton Sample ausprobieren !?
bitte dann auf den CJ Radiobutton clicken, NICHT die "rechts" in der Groupbox (die funktionieren)
wer die CJ Suite Control installiert hat möge bitte mal das hier laufen lassen und auf einen Radio-
button clicken ...
Code: Alles auswählen
#PRAGMA LIBRARY( "ASCOM10.LIB" )
//
// Codejock Konstanten
//
*#include "suite.ch"
#include "Appevent.ch"
#include "Xbp.ch"
#include "Gra.ch"
PROCEDURE AppSys
RETURN
PROCEDURE Main
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oDlg,oStatic,oRadio,bSelected
LOCAL aSize := {250,550}
LOCAL aPos := {100,100}
LOCAL aPP := {}
AAdd ( aPP, { XBP_PP_COMPOUNDNAME, "8.Arial" } )
AAdd ( aPP, { XBP_PP_FGCLR, GRA_CLR_BLUE } )
AAdd ( aPP, { XBP_PP_BGCLR, GRA_CLR_PINK } )
* aPos := HX_CenterPos( aSize, AppDesktop():currentSize() )
oDlg := XbpDialog():new( ,,aPos,aSize,aPP )
oDlg:title := "Codejock RadioButton Class"
oDlg:titleBar := .T.
oDlg:taskList := .T.
oDlg:icon := 1
oDlg:create()
* oStatic := oDlg:DrawingArea
// XbpStatic als Parent und Owner der Radiobuttons
oStatic := XbpStatic():new(oDlg:DrawingArea ,, {20,120}, {120,150} )
oStatic:type := XBPSTATIC_TYPE_GROUPBOX
oStatic:caption := "COM Ports"
oStatic:create()
oRadio := XbpActiveXControl():new( oStatic,, {20,100}, {80,20})
* oRadio:CLSID := "{32BA4845-5743-4248-9E4D-2B47F3BC9111}"
oRadio:CLSID := "Codejock.RadioButton.13.0.0"
oRadio:License := "Suite Controls Copyright (c) 2003-2009 Codejock Software"+ Chr(13)+Chr(10) +;
"PRODUCT-ID: Codejock.Controls.ActiveX.v13.0"+ Chr(13)+Chr(10) +;
"VALIDATE-CODE: NSR-VTA-EXQ-TPT"
oRadio:Create()
oRadio:caption := "COM 1"
oRadio := XbpActiveXControl():new( oStatic,, {20,70}, {80,20} )
* oRadio:CLSID := "{32BA4845-5743-4248-9E4D-2B47F3BC9111}"
oRadio:CLSID := "Codejock.RadioButton.13.0.0"
oRadio:License := "Suite Controls Copyright (c) 2003-2009 Codejock Software"+ Chr(13)+Chr(10) +;
"PRODUCT-ID: Codejock.Controls.ActiveX.v13.0"+ Chr(13)+Chr(10) +;
"VALIDATE-CODE: NSR-VTA-EXQ-TPT"
oRadio:Create()
oRadio:caption := "COM 2"
oRadio := XbpActiveXControl():new(oStatic,, {20,40}, {80,20} )
* oRadio:CLSID := "{32BA4845-5743-4248-9E4D-2B47F3BC9111}"
oRadio:CLSID := "Codejock.RadioButton.13.0.0"
oRadio:License := "Suite Controls Copyright (c) 2003-2009 Codejock Software"+ Chr(13)+Chr(10) +;
"PRODUCT-ID: Codejock.Controls.ActiveX.v13.0"+ Chr(13)+Chr(10) +;
"VALIDATE-CODE: NSR-VTA-EXQ-TPT"
oRadio:Create()
oRadio:caption := "COM 3"
oRadio := XbpActiveXControl():new( oStatic,, {20,10}, {80,20} )
* oRadio:CLSID := "{32BA4845-5743-4248-9E4D-2B47F3BC9111}"
oRadio:CLSID := "Codejock.RadioButton.13.0.0"
oRadio:License := "Suite Controls Copyright (c) 2003-2009 Codejock Software"+ Chr(13)+Chr(10) +;
"PRODUCT-ID: Codejock.Controls.ActiveX.v13.0"+ Chr(13)+Chr(10) +;
"VALIDATE-CODE: NSR-VTA-EXQ-TPT"
oRadio:Create()
oRadio:caption := "COM 4"
SetAppWindow(oDlg)
SetappFocus(oDlg)
// Event loop = Programmsteuerung
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:HandleEvent( nEvent, mp1, mp2 )
ENDDO
oDlg:Destroy()
RETURN