View Single Post
  #78  
Old 20th January 2009, 12:49
george7a's Avatar
george7a george7a is offline
Guru
 
Join Date: May 2004
Location: Nazareth
Posts: 1,491
george7a is on a distinguished road
Baan: IVc, 5.0 b, 5.0 c, LN 6.1 - DB: MS SQL, Oracle - OS: Windows 2000, 2003 & UNIX
Clipboard functions

There are some undocumented clipboard functions in otgbrgtools DLL:

copy.to.clipboard
Code:
function extern copy.to.clipboard(
	 const string tag(),
	 const string mss() )

clear.clipboard
Code:
function extern clear.clipboard(
	 )

cut.to.clipboard
Code:
function extern cut.to.clipboard(
	 const string tag(),
	 const string mss() )

paste.from.clipboard
Code:
function extern paste.from.clipboard(
	 const string tag(),
	 ref string mss() )

Here is the full otgbrgtools DLL function:
Code:
function extern check.perm.lang(
	 domain ttaad.clan x,
	 ref long y )

function extern check.perm.mod(
	 domain ttadv.cmod x,
	 ref long y )

function extern check.perm.owner(
	 ref string x(),
	 ref long y )

function extern clear.clipboard(
	 )

function extern copy.to.clipboard(
	 const string tag(),
	 const string mss() )

function extern long create.path(
	 ref string path(),
	 long gmes )

function extern cut.to.clipboard(
	 const string tag(),
	 const string mss() )

function extern delete.menu.data(
	 domain ttaad.clan clan,
	 domain ttadv.cpac cpac,
	 domain ttadv.vers vers,
	 domain ttadv.rele rele,
	 domain ttadv.cust cust,
	 domain ttadv.cmod cmod,
	 domain ttadv.cmen cmen,
	 domain ttadv.parm parm,
	 domain ttyeno also.texts,
	 domain ttyeno also.objects,
	 [ long ignore.presence.of.linked.languages ] )

function extern long display.stp.info(
	 long newwindow,
	 long type,
	 long button,
	 const string msg(),
	 ... )

function extern dsk.ds2font(
	 const string fontds(),
	 ref long weight,
	 ref long slant,
	 ref long points )

function extern dsk.font2ds(
	 long weight,
	 long slant,
	 long points,
	 ref string fontds() )

function extern long dsk.load.font(
	 const string fontds(),
	 ref long width,
	 ref long height,
	 ref long baseline,
	 ref long charwidth )

function extern get.envpath(
	 domain ttadv.vers v,
	 domain ttadv.rele r,
	 domain ttadv.cust c,
	 domain ttadv.kord k,
	 domain ttadv.cpac p,
	 domain ttadv.cmod m,
	 string s(9),
	 domain ttaad.clan l,
	 long vr )

function extern get.home.dir(
	 )

function extern getbseenv(
	 ref string bsepath(),
	 ref string systemname() )

function extern iadv0002.read.perm(
	 )

function extern long iadv0007.integration(
	 domain ttadv.cpac cpac )

function extern long iadv0007.integration.including.tt(
	 domain ttadv.cpac cpac )

function extern long iadv0007.pvrc.in.pvrc(
	 domain ttadv.cpac component.cpac,
	 domain ttadv.vers component.vers,
	 domain ttadv.rele component.rele,
	 domain ttadv.cust component.cust,
	 domain ttadv.cpac current.cpac,
	 domain ttadv.vers current.vers,
	 domain ttadv.rele current.rele,
	 domain ttadv.cust current.cust )

function extern long iadv0300.dept.vrc(
	 ref string cpac(),
	 ref string from.vers(),
	 ref string to.vers(),
	 ref string from.rele(),
	 ref string to.rele(),
	 ref string from.cust(),
	 ref string to.cust() )

function extern long iadv0300.label.vrc.changed(
	 ref string clan(),
	 ref string cpac(),
	 ref string clab(),
	 long leng,
	 long lhgt,
	 long depth.vrc )

function extern long iadv0300.message.vrc.changed(
	 ref string clan(),
	 ref string cpac(),
	 ref string cmes(),
	 long depth.vrc )

function extern long integration.on.runtime(
	 domain ttadv.cpac cpac )

function extern long itttxt0008.determine.factor(
	 ref long multi.byte )

function extern long itttxt0008.multi.byte.input(
	 )

function extern paste.from.clipboard(
	 const string tag(),
	 ref string mss() )

function extern read.last.used(
	 ref string x() )

function extern read.rel(
	 )

function extern read.tt.par(
	 )

function extern reset.compnr(
	 )

function extern long search.path(
	 domain ttadv.cpac cpac fixed,
	 domain ttadv.vers vers fixed,
	 domain ttadv.rele rele fixed,
	 domain ttadv.cust cust fixed,
	 domain ttadv.kord kord,
	 ref string path() )

function extern set.compnr.0(
	 )

function extern strip.envpath(
	 ref string envpath(),
	 ref string home.dir() )

function extern long test.dir(
	 domain ttst200 path )

function extern long test.or.make.dir(
	 ref string path.buff(),
	 long gmes )

function extern write.last.used(
	 string x(250) )

function extern string zoom.to(
	 const string session(),
	 ... )
__________________
_
George Abdo
NAZDAQ - Your Documents, Your Way.
Reply With Quote