GRAPHREP layer:2
SHADOW off

AVAL set-default:"EDP system" rt:"Type of resource"
AVAL sp:"Language"
IF (sp = "System")
  IF (_uilang = "de")
    SET sp:"German"
  ELSE
    SET sp:"English"
  ENDIF
ENDIF

AVAL col:"fontcolor"
AVAL set-default:"no" mono:"Monochrome view"
AVAL str_bitmap:"Screenshot"
SET str_bitmap: (replall(str_bitmap,"\"",""))

SET found:(search(str_bitmap,"\"",0))
IF (found >= 0)
  IF (found = (LEN str_bitmap - 1))
    SET s:(search(str_bitmap,"@",0) + 1)
    SET e:((LEN str_bitmap) - 1)
  ELSE
    SET s:((found) + 1)
    SET foundend:(search(str_bitmap,"\"",s))
    IF (foundend >= 0)
      SET e:((LEN str_bitmap) - 1)
    ELSE
      SET e:(LEN str_bitmap)
    ENDIF
  ENDIF
ELSE
  SET e:(LEN str_bitmap)
  SET s:(search(str_bitmap,"@",0) + 1)
ENDIF

SET grfk:(copy (str_bitmap, s, e - s))

SET s:((LEN grfk) - 4)
SET e:((LEN grfk))
SET ext:(copy (grfk, s, e))
SET ext:(lower(ext))

IF (mono = "yes")
  SET bMono:1
ELSE
  SET bMono:0
ENDIF

PEN w:0.05cm

IF (bMono)
  SET color_lightskyblue:(rgbval("white"))
  SET color_navy:(rgbval("black"))
  SET color_lightgreen:(rgbval("white"))
  SET color_palegreen:(rgbval("white"))
  SET color_orangered:(rgbval("white"))
  SET color_mistyrose:(rgbval("white"))
  SET color_forestgreen:(rgbval("white"))
  SET color_lightsteelblue:(rgbval("white"))
  SET col:(rgbval("black"))
ELSE
  SET color_lightskyblue:(rgbval("lightskyblue"))
  SET color_navy:(rgbval("navy"))
  SET color_lightgreen:(rgbval("lightgreen"))
  SET color_palegreen:(rgbval("palegreen"))
  SET color_orangered:(rgbval("orangered"))
  SET color_mistyrose:(rgbval("mistyrose"))
  SET color_forestgreen:(rgbval("forestgreen"))
  SET color_lightsteelblue:(rgbval("lightsteelblue"))
ENDIF

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") )
  SET cms_width:2.8cm
  SET cms_height:1.94cm
  SET str_bitmap:(token(str_bitmap, 1, "@"))

  BITMAPINFO (str_bitmap)  # get the bitmap size
  STRETCH off
  IF (bmpwidth / CMS cms_width < bmpheight / CMS cms_height)
    # use maximum height, space left and right
    SET w:(cms_height * (bmpwidth / bmpheight))
    BITMAP (str_bitmap) x:((0cm - w) / 2) y:((-0.4cm - cms_height) /2) w:(w) h:(cms_height)
  ELSE
    # use maximum width, space at top and bottom
    SET h:(cms_width * (bmpheight / bmpwidth))
    BITMAP (str_bitmap) x:((0.0cm - cms_width) / 2) y:((0.3cm - h) / 2) w:(cms_width) h:(h)
  ENDIF
ELSE
IF (rt = "EDP system")
  FILL color:lightgray

    IF (NOT bMono)
      # start - smooth shaded colors
      CLIP_RECT x:-.6cm y:-.7cm w:1.2cm h:1.05cm
      GRADIENT_RECT x:-.6cm y:-.7cm w:1.2cm h:1.05cm style:updiag
          color1:white color2:lightgray
      FILL style:null
      PEN w:0.08cm color:$6b6b6b join:miter
      CLIP_OFF
      # end - smooth shaded colors
    ENDIF
    

  RECTANGLE x:-.6cm y:-.7cm w:1.2cm h:1.05cm

    IF (NOT bMono)
      # start - smooth shaded colors
      CLIP_RECT x:-.7cm y:.35cm w:1.4cm h:.35cm
      GRADIENT_RECT x:-.7cm y:.35cm w:1.4cm h:.35cm style:updiag
          color1:white color2:lightgray
      PEN w:0.08cm color:$6b6b6b join:miter
      FILL style:null
      CLIP_OFF
      # end - smooth shaded colors
    ENDIF


  RECTANGLE x:-.7cm y:.35cm w:1.4cm h:.35cm

     FILL color:(color_lightskyblue)

    # start - smooth shaded colors
    CLIP_RECT x:-.45cm y:-.55cm w:.9cm h:.75cm
    GRADIENT_RECT x:-.45cm y:-.55cm w:.9cm h:.75cm style:updiag
        color1:white color2:(color_lightskyblue)
    PEN w:0.05cm
    FILL style:null
    CLIP_OFF
    # end - smooth shaded colors

  RECTANGLE x:-.45cm y:-.55cm w:.9cm h:.75cm
    FILL color:(color_navy)
  RECTANGLE x:-.3cm y:-.45cm w:.4cm h:.05cm
  FILL color:white
  RECTANGLE x:-.3cm y:-.4cm w:.4cm h:.2cm
    FILL color:(color_navy)
  RECTANGLE x:-.1cm y:-.15cm w: .4cm h:.05cm
  FILL color:white
  RECTANGLE x:-.1cm y:-.1cm w: .4cm h:.2cm
    FILL color:(color_lightgreen)
  RECTANGLE x:-.57cm y:.48cm w:.09cm h:.09cm
  FILL color:black
  RECTANGLE x:.15cm y:.48cm w:.45cm h:.03cm

ELSIF (rt = "Communication system")
  FILL color:slategray

    IF (NOT bMono)
      # start - smooth shaded colors
      CLIP_RECT x:-.275cm y:-.7cm w:.55cm h:1.4cm
      GRADIENT_RECT x:-.275cm y:-.7cm w:.55cm h:1.4cm style:updiag
          color1:white color2:gray
      PEN w:0.08cm color:$484848 join:miter
      FILL style:null
      CLIP_OFF
      # end - smooth shaded colors
    ENDIF


  RECTANGLE x:-.275cm y:-.7cm w:.55cm h:1.4cm
  FILL color:black
  RECTANGLE x:.14cm y:-1cm w:.05cm h:.3cm
    PEN w:0.05cm
    FILL color:(color_palegreen)
  RECTANGLE x:-.225cm y:-.55cm w:.45cm h:.3cm
  FILL color:black
  RECTANGLE x:-.20cm y:-.15cm w:.075cm h:.05cm
  RECTANGLE x:-.05cm y:-.15cm w:.075cm h:.05cm
  RECTANGLE x:0.10cm y:-.15cm w:.075cm h:.05cm
  RECTANGLE x:-.20cm y:-.03cm w:.075cm h:.05cm
  RECTANGLE x:-.05cm y:-.03cm w:.075cm h:.05cm
  RECTANGLE x:0.10cm y:-.03cm w:.075cm h:.05cm
  RECTANGLE x:-.20cm y:0.09cm w:.075cm h:.05cm
  RECTANGLE x:-.05cm y:0.09cm w:.075cm h:.05cm
  RECTANGLE x:0.10cm y:0.09cm w:.075cm h:.05cm
  RECTANGLE x:-.20cm y:0.21cm w:.075cm h:.05cm
  RECTANGLE x:-.05cm y:0.21cm w:.075cm h:.05cm
  RECTANGLE x:0.10cm y:0.21cm w:.075cm h:.05cm
  RECTANGLE x:-.05cm y:.55cm w:.1cm h:.03cm
  RECTANGLE x:-.05cm y:-.65cm w:.1cm h:.03cm
ELSE
    FILL color:white
    RECTANGLE x:-0.9cm y:-0.65cm w:1.8cm h:1.3cm

  FILL color:whitesmoke
ENDIF
ENDIF

FONT color:(col)
IF (sp = "English")
   ATTR "Name" y:.8cm w:c:2.8cm h:t
ELSE
   ATTR "Bezeichnung" y:.8cm w:c:2.8cm h:t
ENDIF