CJ Radiobutton

Nutzung, Komponenten, .NET

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

CJ Radiobutton

Beitrag von AUGE_OHR »

hi,

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
gruss by OHR
Jimmy
Alfred
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 476
Registriert: Do, 03. Mai 2007 12:37
Wohnort: München

Re: CJ Radiobutton

Beitrag von Alfred »

Hallo Jimmy,

bei mir sieht das so aus:
codejock1_1.gif
codejock1_1.gif (6.75 KiB) 2523 mal betrachtet
Wenn ich COM1 anklicke hängt sich das Programm auf.

Windows XP Pro
Alaska 1.9.331

Gruß
Alfred
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: CJ Radiobutton

Beitrag von AUGE_OHR »

hi,
Alfred hat geschrieben: Wenn ich COM1 anklicke hängt sich das Programm auf.

Windows XP Pro
Alaska 1.9.331
DANKE !!!

... und wieder ein Xbase++ BUG gefunden ... jaja Codejock "biegt" eine Menge um ...
gruss by OHR
Jimmy
Antworten