Alaska Software Inc. - Codejock SkinFramework and Ownerdraw
Username: Password:
AuthorTopic: Codejock SkinFramework and Ownerdraw
AUGE_OHRCodejock SkinFramework and Ownerdraw
on Tue, 17 Nov 2009 06:18:33 +0100
Kiron Joseph Re: Codejock SkinFramework and Ownerdraw
on Thu, 10 Dec 2009 11:02:53 +0530
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
AUGE_OHRRe: Codejock SkinFramework and Ownerdraw
on Thu, 10 Dec 2009 17:22:53 +0100
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
AUGE_OHRRe: Codejock SkinFramework and Ownerdraw
on Sun, 17 Jan 2010 07:34:05 +0100
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
AUGE_OHRRe: Codejock SkinFramework and Ownerdraw
on Mon, 18 Jan 2010 05:28:22 +0100
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
AUGE_OHRRe: Codejock SkinFramework and Ownerdraw
on Mon, 18 Jan 2010 07:51:45 +0100
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