Hi Andrew,
You would have to loop through all records in a while loop and for each record apply the changes:
(untested) dim BlackPenStyle as pen dim NewObj as object dim id as integer BlackPenStyle = makePen(....) id = 0 fetch first from mytable while not eot(mytable) NewObj = mytable.object id = id+1 Alter Object NewObj Info OBJ_INFO_PEN, BlackPenStyle update mytable set obj=NewObj where rowid=id fetch next from mytable wend
Kind regards
Uffe Kousgaard www.routeware.dk
----- Original Message ----- From: "Andrew Tracey" <[EMAIL PROTECTED]>
To: <MapInfo-L@lists.directionsmag.com>
Sent: Thursday, April 21, 2005 12:47 PM
Subject: MI-L mbx
Dear All,
I have written an .mbx to pull out certian records within a .tab file. All records that are selected are polygons but have different colour schemes. I want to be able to change the border style to black on all polygons and leave the fill style as it is. I have attempted to do this using select all and editing polygon style, however when i have ran mapbasic it hasnt changed the border style. Is there a way of doing this.
Thanks in advance.
Andrew Tracey Information Support Officer Corporate Information Corporate Growth and Focus Corporate Development South Tyneside Council Westoe Road South Shields NE33 2RL
Tel: 0191 4247561 E-Mail : [EMAIL PROTECTED]
************************************************************************************************
************************************************************************************************
Please do not print this e-mail if you can help it - and help protect the environment.
************************************************************************************************
This Message may contain confidential information and is protected by copyright.
If you receive it in error please notify us and delete it without making use of or copying it.
The addressee and other employees within the Council may read and copy any e-mail
reply to this message and other e-mails you send to us.
Whilst we use virus checking procedures we accept no liability for viruses and recipients
must rely on their own virus checking procedures.
************************************************************************************************
The Council's web site address is www.southtyneside.info
--------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 16162
--------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 16164
