Download ADONIS® 3.9 - BPMS Method Manual

Part IV
SET e:(LEN a)
SET s:(search(a,"@",0) + 1)
ENDIF
SET grfk:(copy (a, s, e - s))
SET s:((LEN grfk) - 4)
SET e:((LEN grfk))
SET ext:(copy (grfk, s, e))
# -- build obj -SET ext:(lower(ext))
# --- --- --- --- --- --- --- --- --- --- --- --- --TABLE w:4.5cm h:4.5cm cols:3 rows:3
w1:.15cm w2:100% w3:.15cm
h1:.15cm h2:100% h3:.15cm
STRETCH off
IF (autoB = "No")
IF
(
(ext=".bmp")
OR
(ext=".gif")
OR
(ext=".ico")
OR
(ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff")
OR (ext=".xpm") )
BITMAP (grfk) w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3)
ELSE
PEN color:darkgray outline
FILL color:(rgbval(f))
RECTANGLE w:(tabw1 + tabw2 + tabw3) h:(tabh1 + tabh2 + tabh3)
AVAL grad:"Font size"
AVAL typ:"Font style"
IF (typ = "Standard")
FONT h:(PT grad)
ELSIF (typ = "Italic")
FONT h:(PT grad) italic
ELSIF (typ = "Bold")
FONT h:(PT grad) bold
ELSIF (typ = "Underline")
FONT h:(PT grad) underline
ELSIF (typ = "Bold Italic")
FONT h:(PT grad) bold italic
ELSIF (typ = "Bold Underline")
FONT h:(PT grad) bold underline
ENDIF
IF (sp="English")
ATTR "Text" x:(tabx1) y:(taby1) w:(tabw2) h:(tabh2)
ELSE
ATTR "Notiz" x:(tabx1) y:(taby1) w:(tabw2) h:(tabh2)
ENDIF
ENDIF
# --- --- --- --- --- --- --- --- --- --- --- --- --ELSIF (autoB = "Yes")
# SET d:4.5cm # default width and height
# PEN color:white
# FILL style:null
# SHADOW off
# RECTANGLE w:(d) h:(d) # a border marking the object's size
# SHADOW on
IF
(
(ext=".bmp")
OR
(ext=".gif")
OR
(ext=".ico")
OR
(ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff")
OR (ext=".xpm") )
BITMAPINFO (grfk) # get the bitmap size
STRETCH off
IF (bmpwidth > bmpheight)
# use maximum height, space left and right
#
SET w:(tabh1 * (bmpwidth / bmpheight))
#
SET h:(tabh1)
page 374
(ext=".jpg")
OR
OR (ext=".wbmp")
(ext=".jpg")
OR
OR (ext=".wbmp")
ADONIS BPMS Method Manual