topic-33662

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: stars on xbrowse
Posted: Sat Feb 18, 2017 03:54 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: stars on xbrowse
Posted: Sun Feb 19, 2017 11:14 AM

thanks to Manual Alvarez ( Mastintin )

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

test.prg

Code (fw): Select all Collapse

#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

FiveTech Support Forums

Continue the discussion