Alaska Software Inc. - Comdlg32.ocx / Licence
Username: Password:
AuthorTopic: Comdlg32.ocx / Licence
AUGE_OHRComdlg32.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 LRe: 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_OHRRe: 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_OHRRe: 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