Oops forgot the code. Doh! My initial request was to add a Control Brush
Picker. Any help would be much appreciated. Thanks.
function rebuild_Council_Occupier as logical
dim Council_table as string
dim c_a as alias
dim oc_a as alias
dim oc as object
onerror goto Council_Occupier_error
Open Table "n:\Rates\Rates.TAB" Interactive
Map From Rates
select * from rates where Occupier_Name1="STH WAIKATO DISTRICT
COUNCIL" into Selection
Map From Selection
Set Map Layer 1 Editable On
'===========================
Council_table = SelectionInfo (SEL_INFO_SELNAME) '== Creating
Region Style ==
c_a = Council_table +".obj"
'===========================
oc_a = Council_table + ".rowid"
fetch first from Council_table
do while not EOT(Council_table)
if (c_a)
then oc = c_a
Alter Object oc
Info OBJ_INFO_BRUSH, MakeBrush(2, 65280, 16777215)
update Council_table set obj = oc where rowid = oc_a
end if
fetch next from Council_table
loop
close table Council_table
Commit Table Rates Interactive
Close All Interactive
rebuild_Council_Occupier = true
finish:
exit function
Council_Occupier_error:
Print "Error #" + err() + " occurred while rebuilding Council Occupied.
Message """ + error$() + """"
rebuild_Council_Occupier = False
resume finish
end function
> -----Original Message-----
> From: Ethan Hohneck
> Sent: Tuesday, 25 January 2000 08:30
> To: [EMAIL PROTECTED]
> Subject: MI Control Brush and Pen Picker
>
> Good morning, afternoon, and to some, goodnight.
> I am in desperate need of some brilliant help from you. I am currently
> trying to modify my program that selects regions in a table and then
> colours them to a pre-set brush style. I would like to add in a Control
> Brush and Pen Picker so that users at my work can pick there own colours.
> I have been struggling with the help manuals to find a solution. A slice
> of code is below showing where i am to date. Can anyone offer any
> solutions please.
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
