Hi Jimmy,

I am also have this issue with the menu. Could you solve the problem ?


Regards
Kiron
On Tue, 17 Nov 2009 06:18:33 +0100, "AUGE_OHR" <AUGE_OHR*AT*WEB.DE>
wrote:

>hi,
>
>using Demo C:\ALASKA\XPPW32\SOURCE\samples\basics\OWNERDRW\OWNERDRW.PRG
>*** Code ***
>add :
>
>#include "xbcjcal.ch"   xtpSkin... Constante if you like to test it with :ApplyOptions
>#define  CRLF            Chr(13)+Chr(10)
>
>// Einbinden der Automation Support Library
>#PRAGMA LIBRARY( "ASCOM10.LIB" )
>
>  LOCAL oSkin
>  LOCAL cSkin := "Office2007.cjstyles"
>
>...
>  oSkin       := XbpActiveXControl():new( , , {0,0}, {0,0} )
>* oSkin:CLSID   := "Codejock.SkinFramework.13.0.0"
>  oSkin:CLSID   := "{16378D39-12CF-4C7D-8769-DFAAF02FD1F5}"
>  oSkin:License := "Skin Framework Control Copyright (c) 2003-2009 Codejock Software"+CRLF+;
>                   "PRODUCT-ID: Codejock.SkinFramework.ActiveX.v13.0"+CRLF+;
>                   "VALIDATE-CODE: GGE-OLD-QQR-EJS"
>  oSkin:create()
>
>  oSkin:callMethod("LoadSkin",cSkin,"")
>* oSkin:ApplyOptions := xtpSkinApplyColors+xtpSkinApplyFrame+xtpSkinApplyMetrics+xtpSkinApplyMenus
>* oSkin:ApplyOptions := xtpSkinApplyFrame+xtpSkinApplyMenus
>   also New Threads
>  oSkin:AutoApplyNewThreads := .T.
>   and MDI Client
>  oSkin:AutoApplyNewWindows := .T.
>   apply to Dialog
>  oSkin:callMethod("ApplyWindow", oDlg:getHWND() )
>*** eof ***
>
>now try to open Menu ... they are empty
>
>
>
>so next, with/without Codejock Skinframework i try this
>*** Code ***
>  oClrBox       := XbpColorListbox():new( oDlg:drawingArea )
>  oClrBox:create( ,, {50,20},{200,100} )
>  
>   just a test
>  
>  oClrBox:vertScroll := .F.
>  oClrBox:configure()
>*** eof ***
>
>now i got
>
>
>so how to :configure a Ownerdraw Listbox ?
>
>greetings by OHR
>Jimmy

hi,

> I am also have this issue with the menu. Could you solve the problem ?

also Roger and all Express++ User have that Problem while Alaska do
not "move" and did not fix it as they promise.

greetings by OHR
Jimmy

hi,

when using XbpPushbutton :drawMode := XBP_DRAW_OWNER
GraBackground() still show "System" Theme but not Skin Theme
while a normal XbpPushbutton show Skin Theme ... why ?

   ::DrawBackground( oPS, aInfo )
   ::DrawFrame( oPS, aInfo )
   ::DrawImage( oPS, aInfo )
   ::DrawText( oPS, aInfo )

METHOD Button:DrawBackground( oPS, aInfo )
   GraBackground( oPS, 
{aInfo[XBP_DRAWINFO_RECT][1],aInfo[XBP_DRAWINFO_RECT][2]},;
                                          {aInfo[XBP_DRAWINFO_RECT][3],aInfo[XBP_DRAWINFO_RECT][4]} 
 )
RETURN

a XP Button have a "orange" Frame when "hover", but when XBP_DRAW_OWNER

METHOD Button:DrawFrame( oPS, aInfo )
   IF IsThemeActive(.T.) == .T.
      RETURN
   ENDIF

i can only "simulate" it with Color ... but they are Picture ( Bitmaps / 
JPG)

a Office 2007 Outlook Shortcut Button use the "orange" Frame for hole Button
so we need, for "visual Style", something like GraFrame() to give us "visual 
Style"
of the Frame Picture too.

greetings by OHR
Jimmy

hi,

the "normal" Way is

CLASS MyButton FROM XbpPushButton

which fail with Codejock SkinFramework
if i change my Class to

CLASS MyButton FROM XbpBasePushButton

with oXbp:DrawMode := XBP_DRAW_OWNERADVANCED

than Codejock SkinFramework work fine.

 greetings by OHR
Jimmy

hi,

> if i change my Class to
>
> CLASS MyButton FROM XbpBasePushButton
>
> with oXbp:DrawMode := XBP_DRAW_OWNERADVANCED
>
> than Codejock SkinFramework work fine.

this was only while now it does not call :draw Methode ... so never reach 
GraBackground() ... 

greetings by OHR
Jimmy