GRA_ transparent background

[rdonnay]

Here's a better solution.

It requires no changes to eXpress++ code.

Code: Select all

#INCLUDE "dcdialog.CH"
#INCLUDE "dcprint.ch"

FUNCTION Main()

LOCAL i, aAttr := Array(GRA_AS_COUNT)

aAttr[GRA_AS_COLOR] := GraMakeRGBColor({180,180,180})

DCPRINT ON

FOR i := 1 TO 11
  @ i,0 DCPRINT SAY Repl('X',80) FONT '12.Lucida Console'
NEXT

@ 3, 40 DCPRINT SAY "Office" ALIGN DCPRINT_ALIGN_HCENTER FONT "60.Arial Bold" ATTR aAttr

@ 9, 40 DCPRINT SAY "Office" ALIGN DCPRINT_ALIGN_HCENTER FONT "60.Arial Bold" ATTR aAttr

DCPRINT OFF

RETURN nil


PROC appsys ; return

[bwolfsohn]

Roger,

perfect..

many thanks..

(as usual)