stars on xbrowse

[Silvio.Falconi]

Uwe,
With printer class also I was able to print the stars...


I asked to print with Report Class !!!!!

as ..

COLUMN TITLE "Disegno" DATA ....... SIZE 10 IMAGE IMGDATA ....... HEIGHT 1.2 ALPHALEVEL 128

[Silvio.Falconi]

thanks to Manual Alvarez ( Mastintin )

We can create a bitmap from another two bitmaps from GdiPlus library




test.prg

Code: Select all | Expand

#include "fivewin.ch"
#include "report.ch"

STATIC oReport


Function Rep01()
     Local aSTAR
     lOCAL cDir:=".\BITMAPS\"
     USE INTERNET ALIAS IN

     REPORT oReport TITLE  "*** Report Rating***" PREVIEW

// from resources 
      COLUMN TITLE "Design"    DATA IN->INDISENO  SIZE 10 IMAGE IMGDATA  cBmponoffArrayresources( "STARFULL", "STAREMPTY", 5, IN->INDISENO )    HEIGHT 1.2 ALPHALEVEL 128
      COLUMN TITLE "Contenuti" DATA IN->INCONTENI SIZE 10 IMAGE IMGDATA  cBmponoffArrayresources( "STARFULL", "STAREMPTY", 5, IN->INCONTENI )    HEIGHT 1.2 ALPHALEVEL 128
      COLUMN TITLE "Global"    DATA IN->INVALORAC SIZE 10 IMAGE IMGDATA  cBmponoffArrayresources( "STARFULL", "STAREMPTY", 5, IN->INVALORAC )    HEIGHT 1.2 ALPHALEVEL 128

// from file
      COLUMN TITLE "Design"    DATA IN->INDISENO  SIZE 10 IMAGE IMGDATA cBmponoffArray( cDir+"full.bmp", cDir+"empty.bmp", 5, IN->INDISENO )    HEIGHT 1.2 ALPHALEVEL 128
      COLUMN TITLE "Contenuti" DATA IN->INCONTENI SIZE 10 IMAGE IMGDATA  cBmponoffArray( cDir+"full.bmp", cDir+"empty.bmp", 5, IN->INCONTENI )    HEIGHT 1.2 ALPHALEVEL 128
      COLUMN TITLE "Global"    DATA IN->INVALORAC SIZE 10 IMAGE IMGDATA  cBmponoffArray( cDir+"full.bmp", cDir+"empty.bmp", 5, IN->INVALORAC )    HEIGHT 1.2 ALPHALEVEL 128
     END REPORT

 ACTIVATE REPORT oReport

     // nuevo para borrar imágenes

     FOR i=1 TO 5
        FErase( AllTrim(Str(i))+ ".bmp" )
     NEXT

     RETURN NIL

the functions are disponible from next fwh package
FUNCTION cBmponoffArray( cBmpOn, cbmpOff, totalRango, nRango ) by Mastintin
FUNCTION cBmponoffArrayresources( cResOn, cResOff, totalRango, nRango ) by Mastintin

then there is an error on GdiPlus.cpp GDIPLUSIMAGESAVE correct by Alvarez