Aufruf: under construction

BOOLEAN = SetToolBarMethode(tcToolbars AS STRING , tcMethode AS STRING , tv1 AS VARIANT @ , tv2 AS VARIANT @)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN
Rückgabe per Reverenz:
	tv1 AS VARIANT
	tv2 AS VARIANT

Code: under construction

PROCEDURE SetToolBarMethode (tcToolbars AS STRING,tcMethode AS STRING,tv1 AS Variant @,tv2 AS Variant @) AS Boolean
	LOCAL lcToolbars
	lcToolbars = STRTRAN(m.tcToolbars,"G_O","",1,-1,1)
	RETURN ICASE(;
		PCOUNT()=4,My.AppForms.Toolbars.SetToolBarMethode(m.lcToolbars,m.tcMethode,@tv1,@tv2),;
		PCOUNT()=3,My.AppForms.Toolbars.SetToolBarMethode(m.lcToolbars,m.tcMethode,@tv1),;
		PCOUNT()=2,My.AppForms.Toolbars.SetToolBarMethode(m.lcToolbars,m.tcMethode),;
		.F.)
ENDPROC