AlbertoB Posted April 12, 2008 Share Posted April 12, 2008 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. Quote Link to comment
Charles Chandler Posted April 13, 2008 Share Posted April 13, 2008 See Example 1, at http://www.vectorlab.info/index.php?title=Events#Example_1 Basically, you just need to add another case, with something like this: kOnObjPrefEventID: BEGIN {Typically this dialog accepts user input and uses SetRField to write the values to the object's record definition handle.} AlrtDialog('Custom Preference Dialog'); END; Replace the AlrtDialog call with the name of your custom dialog routine. Charles Quote Link to comment
AlbertoB Posted April 13, 2008 Author Share Posted April 13, 2008 With kOnObjPrefEventID, custom dialog now appears only when the user clicks on the preference icon button. My target is make it appear when the user double-clicks on PIO. Thank you very much for your help. AlbertoB. Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.