SetLicViewerButton

Defines the buttons, which are visible within the Licence Viewer. To invoke the Licence Viewer see ShowLicViewer or for EasyGo see SetRegisterSettings (LicViewerAllowed)

Name

SetLicViewerButton

Purpose

Disables or removes a button from the LicenceViewer.

Params

Parameter

Type

Example

Note

Button

Integer

The button code:

1 = Activate/Deactivate - Button

2 = Enter Key - Button

3 = Info - Button

4 = Options - Button

5 = Help – Button

6 = Transfer/Adopt – Button

7 = Refresh - Button

Value

Integer

The show/visible type:

0 = invisible

1 = visible but never active

2 = visible and active

Returncode

Returncode Type Integer	Note
0	Button mode successfully set
4101	A parameter is invalid. Only the values described above are valid.
Other value	Error occurred, see list of return codes

Usage

To customize the LicenceViewer as a real viewer without the ability to change something. Only some administrative users will get the LicenceViewer with activated buttons to change things.

Note: You can’t disable or remove the Close – Button.

Sample

iRes := lic.SetLicViewerButton(1 , 0); // do not show the activate button

if iRes = 0 then

iRes := lic.SetLicViewerButton(2 , 0); // do not show the enter key button

if iRes = 0 then

iRes := lic.SetLicViewerButton(3 , 0); // do not show the info button

if iRes = 0 then

iRes := lic.SetLicViewerButton(4 , 2); // show the options button

if iRes = 0 then

iRes := lic.SetLicViewerButton(5 , 2); // show the help button

if iRes = 0 then

iRes := lic.SetLicViewerButton(6 , 2); // show the Transfer/Adopt button

if iRes <> 0 then

begin

<< an error occurred >>

...

end

else

begin

<< Buttons successfully set, showing licence viewer>>

lic.ShowLicViewer;

...