Jump to content

PIO events


AlbertoB

Recommended Posts

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.

Link to comment

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

Link to comment

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...