Hi Josh,
I changed the script from a tool to a menu command and tried triggering it with "Do Menu Text By Name" and that worked perfect.
i also created a Custom dialog with checkboxes.
How can i make a checkbox listen to a "DoMenuTextByNamen"if it is checked?
Here is the script for the dialog:
PROCEDURE CreateDialog;
VAR
id: LONGINT;
result : LONGINT;
BEGIN
id := CreateLayout('Create Screen Report',TRUE,'Create', 'Cancel');
CreateStaticText(id,5,'Select Screens:',-1);
CreateCheckBox(id,6,'All Screens');
CreateCheckBox(id,7,'Screen 1');
CreateCheckBox(id,8,'Screen 2');
CreateCheckBox(id,9,'Screen 3');
CreateCheckBox(id,10,'Screen 4');
CreateCheckBox(id,11,'Screen 5');
CreateCheckBox(id,12,'Screen 6');
CreateCheckBox(id,13,'Screen 7');
CreateCheckBox(id,14,'Screen 8');
CreateCheckBox(id,15,'Screen 9');
CreateCheckBox(id,16,'Screen 10');
SetFirstLayoutItem(id, 5);
SetBelowItem (id,5,6,0,0);
SetBelowItem (id,6,7,0,0);
SetBelowItem (id,7,8,0,0);
SetBelowItem (id,8,9,0,0);
SetBelowItem (id,9,10,0,0);
SetBelowItem (id,10,11,0,0);
SetBelowItem (id,11,12,0,0);
SetBelowItem (id,12,13,0,0);
SetBelowItem (id,13,14,0,0);
SetBelowItem (id,14,15,0,0);
SetBelowItem (id,15,16,0,0);
SetHelpText(id,6,'This will create all screens combined in one report.');
result := RunLayoutDialog(id,NIL);
END;
RUN(CreateDialog);