Hi everyone
 
I have to draw into the Cosmetic Layer. I use the following method :
 
===========================================
 
Dim my_obj As Object
 
Create Rect Into Variable my_obj (x1,y1) (x2,y2) ......
 
Insert Into Cosmetic1 (Obj) Values(my_obj)
 
===========================================
 
Works fine, but is it possible to add another filed than "Obj", to identify
the objects later ?
 
For example :
 
Insert Into Cosmetic1 (Obj, my_field) Values(my_obj, 1)
 
then :
 
Select * From Cosmetic1 Where Object
 
Fetch First From Selection
While Not EOT(Selection)
    If Selection.my_field = 1 then
        Note "Object 1 found"
    End If
    Fetch Next From Selection
Wend
 
Thank you - Christophe

Reply via email to