Reading Example 9 on http://www.vectorlab.info/index.php?title=Events#Example_9, I found out how to display the same dialog
of the Preferences event.This is my script:
PROCEDURE Example9;
CONST
kObjOnInitXProperties = 5;
kResetEventID = 3;
kObjXPropSpecialEdit = 3;
kDefaultSpecialEdit = 0;
kCustomSpecialEdit = 1; kPropertiesSpecialEdit = 2; kReshapeSpecialEdit = 3;
VAR
theEvent, theButton?:LONGINT;
result?:BOOLEAN;
BEGIN
vsoGetEventInfo(theEvent, theButton);
CASE theEvent OF? kObjOnInitXProperties:
BEGIN
result?:= SetObjPropCharVS(kObjXPropSpecialEdit, Chr(2));
END;?
kResetEventID:
BEGIN
rect(0,0,50,50);
END;?
END;
END;Run(Example9);
How can I create a VW PIO which if double-clicked
shows a Custom Dialog ?
Could someone help me ?
Kind regards.
PS. My PIO is a point object an I use VW 12.5.