The Origin Forum
File Exchange
Try Origin for Free
The Origin Forum
Home | Profile | Register | Active Topics | Members | Search | FAQ | Send File to Tech support
Username:
 Password:
Save Password
Forgot your Password? | Admin Options

 All Forums
 Origin Forum for Programming
 LabTalk Forum
 Object Existence as test condition for IF		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic

wallacej

UK
Posts
Posted - 01/18/2005 :  12:21:41 PM  Show Profile  Edit Topic  Reply with Quote  View user's IP address  Delete Topic
Origin Version (7.5):
Operating System: Win 2000

I am using the following LabTalk script to allow the user to select an image from file to be added to an Origin report. The image is then automatically resized and positioned.

run.section(imgfile,ImportImage);
///Resize and position image
BMP1.Width = 1850;
BMP1.Height = 1844;
BMP1.Left = 4231;
BMP1.Top = 2732;

If the user clicks Cancel and does not load an image an error is thrown as BMP1 does not exist.

I am trying to trap the error by enclosing the resizing and repositioning code in an IF statement. I am struggling to find the test condition that will test for the presence of the bitmap object BMP1.

Thank you

Mike Buess

USA
3037 Posts
Posted - 01/18/2005 :  12:57:19 PM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
This should work...

run.section(imgfile,ImportImage);
///Resize and position image (if it exists)
if( BMP1.Width!=0/0 )
{
BMP1.Width = 1850;
BMP1.Height = 1844;
BMP1.Left = 4231;
BMP1.Top = 2732;
};

Mike Buess
Origin WebRing Member
Go to Top of Page

wallacej

UK
Posts
Posted - 01/19/2005 :  04:09:50 AM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
That works a treat.

Thank You
Go to Top of Page
  Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
The Origin Forum © 2020 Originlab Corporation Go To Top Of Page
Snitz Forums 2000