CLASS Dashed Box

Đánh dấu (tag): class tutorial

Highlights/Dependencies
+ Rectangle representation with dashed border + Due to the value of the parameter sizing, the object can be resized asimmetrically on the X and Y axis + Contains string handling functionality + Displays an externally stored graphical image as background for the rectangle + Attribute "Name" shown below the object

GraphRep Code
GRAPHREP sizing:asymmetrical PEN style:dash SET prm_x:1cm SET prm_y:1cm SET prm_w:1cm SET prm_h:1cm AVAL set-default:"" a:"External graphic" # ----- Search function to remove "\" and "@" from filepath SET found:(search(a,"\"",0)) IF (found >= 0) IF (found = (LEN a - 1)) SET s:(search(a,"@",0) + 1) SET e:((LEN a) - 1) ELSE SET s:((found) + 1) SET foundend:(search(a,"\"",s)) IF (foundend >= 0) SET e:((LEN a) - 1) ELSE SET e:(LEN a) ENDIF ENDIF ELSE 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)) # -- In case no image is loaded, show gray brackground TABLE w:(5prm_w) h:(5prm_h) cols:1 rows:1 RECTANGLE w:(tabw1) h:(tabh1) IF ( (ext=".bmp") OR (ext=".gif") OR (ext=".ico") OR (ext=".jpg") OR (ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff") OR (ext=".wbmp") OR (ext=".xpm") ) BITMAP (grfk) w:(tabw1) h:(tabh1) ENDIF

GraphRep Code

 GRAPHREP sizing:asymmetrical
 PEN style:dash
 SET prm_x:1cm
 SET prm_y:1cm
 SET prm_w:1cm
 SET prm_h:1cm
  
 AVAL set-default:"" a:"External graphic"
  # ----- Search function to remove "\" and "@" from filepath
  
 SET found:(search(a,"\"",0))
  
 IF (found >= 0)
  
   IF (found = (LEN a - 1))
     SET s:(search(a,"@",0) + 1)
     SET e:((LEN a) - 1)
   ELSE
     SET s:((found) + 1)
     SET foundend:(search(a,"\"",s))
     IF (foundend >= 0)
       SET e:((LEN a) - 1)
     ELSE
       SET e:(LEN a)
     ENDIF
   ENDIF
 ELSE
   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))
  
  # -- In case no image is loaded, show gray brackground
  
 TABLE w:(5*prm_w) h:(5*prm_h) cols:1 rows:1
 RECTANGLE w:(tabw1) h:(tabh1)
   IF ( (ext=".bmp") OR (ext=".gif") OR (ext=".ico") OR (ext=".jpg") OR (ext=".jpeg") OR (ext=".png") OR (ext=".targa") OR (ext=".tiff") OR (ext=".wbmp") OR (ext=".xpm") )
     BITMAP (grfk) w:(tabw1) h:(tabh1)
   ENDIF

Graphical Representation

0 Các đính kèm

53206 Xem

Các tài sản liên quan:

Trung bình (0 Bình chọn)

Các lời bình