HomeWare 14/HOMEWARE14.bin/windows/misc/robartnd.arj/DIALOG3D.SM

Text File | 1994-06-02 | 677b | 30 lines

' 3D Dialog boxes under Script Maker
' Written by Rob Harford,Symantec Platinum Support
'
' You need the following lines in your code in order to
' activate the 3D dialog boxes

declare function Ctl3dRegister lib "ctl3d.dll" (byval hInst as Long) as Integer
declare function Ctl3dAutoSubClass lib "ctl3d.dll" (byval hInst as Long) as Integer
declare function Ctl3dUnRegister lib "ctl3d.dll" (byval hInst as Long) as Integer

sub main()

 result=Ctl3dRegister(0)
 if (result = 1) then
  result=Ctl3dAutoSubClass(0)
  Enable3D=1
 end if

'
' Your code goes here
'
'

 if (Enable3D=1) then
   result=Ctl3dUnRegister(0)
   Sleep 500
 end if

end sub