Point_tri_pt.qry

Download

More scripts: Style By Script

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes

name$ = "MANTOS"
name2$ = "CONTACTO"
name3$ = "SKARN"
DrawSymbol = 1
if (left$(MID.ELEMENTO,2) == "CU" and 
   (MID.DEPOSITO in {name$, name2$, names3$}))
     begin
          DrawColor$ = "red"
          Symbol$ = "Box"
     end
else
if (left$(MID.ELEMENTO,2) == "AU" and 
   (MID.DEPOSITO in {name$, name2$, names3$}))
     begin
          DrawColor$ = "blue"
          Symbol$ = "Circle"
     end
else   
     
     begin
           DrawColor$ = "green"
           Symbol$ = "Plus"
end