Jump to content
Developer Wiki and Function Reference Links ×

I'm unable to fix it.


Recommended Posts

Now, I want to draw a simple rect and write, above it, the string from menu or button choice.

 

 PROCEDURE Example_1;
    
    VAR
    MyStr:STRING;
    MenuItem:INTEGER;
    result:BOOLEAN;
    
    
 BEGIN
    SetUnits(0,3,0,2.54,'cm','cmq');                { unità cm }
    
    result:=GetPluginChoiceIndex('Example_1', 'Nome', pNome, MenuItem);
    MyStr:=GetCustomObjectChoice('Example_1', 'Nome', MenuItem);
    
    Message(MyStr);    <-   I get nothing
    
    Rect(-100, 100, 100, -100);
    
    MoveTo(-100, 150);
    TextSize(12);
    CreateText(MyStr);   <- and of course here too.
 END;
 
 
 Run(Example_1);

 

...............................................................................

So, I wonder why. Maybe it is a very stupid bug, but I'm unable to see it.

 

Is there someone who could help me, please?

 

Thank you

 

L.

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...