SONIC SKINNER ACTIVEX

This forum is for eXpress++ general support.
Post Reply
Message
Author
User avatar
unixkd
Posts: 565
Joined: Thu Feb 11, 2010 1:39 pm

SONIC SKINNER ACTIVEX

#1 Post by unixkd »

HI All

Sonic Activex can be used to skin an Xbase++ Application and it cost just $21. I tried the control but it gives automation runtime error 440. Anybody familiar with this error? Sonic skinner can be downloaded here: https://sonicactivex.com/download.html
#include "dcdialog.ch"
#include "appevent.ch"
#define OCX_CID "SonicSkinner.SonicSkin"

PROCEDURE Xtest()

LOCAL GetList := {}, oFileMenu, oMenuBar, oEditMenu, oMemo, oUtilMenu, cMemo := ""

@ 0,0 DCACTIVEXCONTROL oSkin CLSID OCX_CID SIZE 0,0 EVAL {|o| _ConfigureSkin(o)}

@ 0,0 DCMULTILINE cMemo SIZE 70,7 FONT "10.Courier.Bold"


/* ---- Menu ---- */

DCMENUBAR oMenuBar

DCSUBMENU oFileMenu PROMPT "&File" PARENT oMenuBar

DCMENUITEM "&Open a File" PARENT oFileMenu ;
ACTION {||Msgbox('OpenFile')} ;

DCMENUITEM "&Close File" PARENT oFileMenu ;
ACTION {||Msgbox('CloseFile')}

DCMENUITEM "&Pack File" PARENT oFileMenu ;
ACTION {||Msgbox('Packfile')}

DCSUBMENU oEditMenu PROMPT "&Edit" PARENT oMenuBar

DCMENUITEM "&Next Record" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCMENUITEM "&Previous Record" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}


DCMENUITEM "&Top of File" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCMENUITEM "&Bottom of File" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCSUBMENU oUtilMenu PROMPT "&Util" PARENT oMenuBar

DCMENUITEM "Copy File" PARENT oUtilMenu ;
ACTION {||Msgbox('CopyFile')}

DCMENUITEM "Move File" PARENT oUtilMenu ;
ACTION {||Msgbox('MoveFile')}

DCREAD GUI ;
TITLE 'Menu Demo' ;
FIT ;
ADDBUTTONS EVAL {|o| .t. }

RETURN

Static Function _ConfigureSkin(o)
o:AllowFullScreen := .t.
o:AllowResize := .t.
o:AllowSystemMenu := .t.
o:Enabled := .t.
Return nil

skiman
Posts: 1183
Joined: Thu Jan 28, 2010 1:22 am
Location: Sijsele, Belgium
Contact:

Re: SONIC SKINNER ACTIVEX

#2 Post by skiman »

Maybe you can try the following. This was how I used it in the past for Codejock. I don't know if the method applyWindow (or something similar) exists in your control.
DCREAD GUI ;
PARENT @oDlg
TITLE 'Menu Demo' ;
FIT ;
ADDBUTTONS EVAL {|o| oSkin:applyWindow(oDlg:getHwnd()) }
Best regards,

Chris.
www.aboservice.be

User avatar
Auge_Ohr
Posts: 1405
Joined: Wed Feb 24, 2010 3:44 pm

Re: SONIC SKINNER ACTIVEX

#3 Post by Auge_Ohr »

hi,

i try to install in VirtualBox but got
Skinner_Virus.jpg
Skinner_Virus.jpg (47.58 KiB) Viewed 1829 times
have try it as Administrator with same Result
greetings by OHR
Jimmy

User avatar
unixkd
Posts: 565
Joined: Thu Feb 11, 2010 1:39 pm

Re: SONIC SKINNER ACTIVEX

#4 Post by unixkd »

Find the OCX file. just unzip it and try
SonicSkinner.zip
(116.71 KiB) Downloaded 85 times
Joe

User avatar
unixkd
Posts: 565
Joined: Thu Feb 11, 2010 1:39 pm

Re: SONIC SKINNER ACTIVEX

#5 Post by unixkd »

Hi Jimmy

I made the sonicskinner.ocx available in the post above

Joe

Post Reply