Author | Topic: Comdlg32.ocx / Licence | |
---|---|---|
AUGE_OHR | Comdlg32.ocx / Licence on Mon, 06 Jul 2009 22:33:36 +0200 hi, tlb2ch "MSComDlg.CommonDialog.1" -> Error #ifndef _MSCOMDLG_COMMONDIALOG_1_HAEDER_DAEMON Fehler: Keine Lizenz fr die Verwendung dieser Klasse vorhanden oDlgColor := CreateObject("MSComDlg.CommonDialog.1") -> NIL oDlgColor := GetObject(,"MSComDlg.CommonDialog.1") -> NIL oDlgColor := XbpActiveXControl():new( oDlg:drawingArea,,{10,250}, oDlgColor:CLSID := "MSComDlg.CommonDialog.1" *oDlgColor:CLSID := "{F9043C85-F6F2-101A-A3C9-08002B2F49FB}" oDlgColor:create() -> crash i need a :Licence for it, but where to get without install VB ? greetings by OHR Jimmy | |
Jorge L | Re: Comdlg32.ocx / Licence on Mon, 06 Jul 2009 18:24:24 -0300 Hi try with generic licence 112-1111111 "AUGE_OHR" <AUGE_OHR*AT*WEB.DE> escribió en el mensaje de noticias news:5b62728e$7805807f$6f38@news.alaska-software.com... > hi, > > tlb2ch "MSComDlg.CommonDialog.1" -> Error > > #ifndef _MSCOMDLG_COMMONDIALOG_1_HAEDER_DAEMON > Fehler: > Keine Lizenz f³r die Verwendung dieser Klasse vorhanden > > oDlgColor := CreateObject("MSComDlg.CommonDialog.1") -> NIL > > oDlgColor := GetObject(,"MSComDlg.CommonDialog.1") -> NIL > > oDlgColor := XbpActiveXControl():new( oDlg:drawingArea,,{10,250}, > oDlgColor:CLSID := "MSComDlg.CommonDialog.1" > *oDlgColor:CLSID := "{F9043C85-F6F2-101A-A3C9-08002B2F49FB}" > oDlgColor:create() -> crash > > i need a :Licence for it, but where to get without install VB ? > > greetings by OHR > Jimmy > > | |
AUGE_OHR | Re: Comdlg32.ocx / Licence on Tue, 07 Jul 2009 08:55:12 +0200 hi, > try with generic licence 112-1111111 tlb2ch "MSComDlg.CommonDialog.1" /l:"112-1111111" does not run on my Machine ... greetings by OHR Jimmy | |
AUGE_OHR | Re: Comdlg32.ocx / Licence on Tue, 07 Jul 2009 14:59:11 +0200 hi got it ! *** Code *** #include "XBP.CH" #include "APPEVENT.CH" #include "GRA.CH" #include "OS.CH" #define CCFullOpen 2 #define CCHelpButton 8 #define CCPreventFullOpen 4 #define CCRGBInit 1 #pragma library("ascom10.lib") PROCEDURE APPSYS ; RETURN PROCEDURE MAIN LOCAL nEvent, oXbp, mp1, mp2 LOCAL oDlg LOCAL aSize := {800,600} LOCAL aPos := {0,0} LOCAL oDlgColor LOCAL nColor := 0 oDlg := XbpDialog():new( AppDesktop(),,aPos,aSize ) oDlg:title := "Color Picker" oDlg:tasklist := .T. oDlg:Icon := 1 oDlg:close := {|| lExit := .T. } oDlg:create():show() oDlgColor := XbpActiveXControl():new( oDlg:drawingArea,,{10,250},{100,80} ) oDlgColor:CLSID := "{F9043C85-F6F2-101A-A3C9-08002B2F49FB}" oDlgColor:license := "28C4C820-401A-101B-A3C9-08002B2F49FB" oDlgColor:create() oDlgColor:Flags := CCFullOpen+CCRGBInit oDlgColor:DialogTitle := "my Xbase++ Color Picker" IF NIL <> oDlgColor * oDlgColor:AboutBox() oDlgColor:ShowColor() * oDlgColor:ShowFont() * oDlgColor:ShowOpen() * oDlgColor:ShowPrinter() * oDlgColor:ShowSave() IF oDlgColor:GetProperty("CancelError") PostAppEvent(xbeP_Quit,,,oDlg:drawingArea) ELSE PostAppEvent(xbeP_Keyboard,xbeK_ENTER,,oDlg:drawingArea) ENDIF ELSE MSGBOX("Object ist NIL") QUIT ENDIF nEvent := xbe_None WHILE nEvent != xbeP_Close nEvent := AppEvent ( @mp1, @mp2, @oXbp ) DO CASE CASE nEvent == xbeP_Quit QUIT AppQuit() CASE nEvent == xbeP_Keyboard .AND. mp1 = xbeK_ENTER nColor := AutomationTranslateColor(oDlgColor:GetProperty("Color") , .T.) IF nColor == 16777216 ELSE oDlg:drawingArea:setcolorBG(nColor) oDlg:configure() MSGBOX("Color "+STR(nColor)) ENDIF EXIT OTHERWISE oXbp:HandleEvent ( nEvent, mp1, mp2 ) ENDCASE ENDDO oDlg:destroy() RETURN *** Eof *** greetings by OHR Jimmy |