topic-42786

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

write a test on Image control
Posted: Mon Feb 13, 2023 05:21 PM

I have an image control with ximage ( no bitmap no btnbmp)

 @  240,  90 XIMAGE oImage ;
             FILENAME ".\bitmaps\verde.jpg"  NOBORDER ;
             SIZE 250,200 ;
             OF oFrmFiscale ;
             UPDATE
            oImage:bRClicked  := { || NIL  }
            oImage:ltransparent:=.t.
            oImage:nUserControl :=0

and I try to write a text into

Code (fw): Select all Collapse

Static Function Calcola()
 local oBold
          DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -16  BOLD
////my calculation
cCod :="wwwwwwwwwwwww"

 oImage:bPainted:= { |hDC|myfunc(hdc,oBold,cCod)}


return  nil

 Function  myfunc(hdc,oBold,cCod)
           FW_SayText( hDC, ;
           cCod, ;
          { 150, 32, 108, 25 },,oBold, CLR_GREEN,  , .f. )

       return nil

why not run ?

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: write a test on Image control
Posted: Mon Feb 13, 2023 09:59 PM

Silvio, creo que el rectangulo de coordenadas donde muestras el texto tendría que ser mas grande

Code (fw): Select all Collapse

Function  myfunc(hdc,oBold,cCod)
           FW_SayText( hDC, ;
           cCod, ;
          {150,32,170, 250 },,oBold, CLR_GREEN,  , .f. )  // x1,y1 hasta x2,y2
return nil

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: write a test on Image control
Posted: Mon Feb 13, 2023 10:19 PM

cmsoft wrote:Silvio, creo que el rectangulo de coordenadas donde muestras el texto tendría que ser mas grande
Code (fw): Select all Collapse
Function  myfunc(hdc,oBold,cCod)
           FW_SayText( hDC, ;
           cCod, ;
          {150,32,170, 250 },,oBold, CLR_GREEN,  , .f. )  // x1,y1 hasta x2,y2
return nil

only if i hover over it then i see something, the procedure has some gets that the user has to fill in, every time i fill a get i refresh ccod . back in the day i used a say control on the dialog and did oSay:setext(ccod ) now I wanted to insert the string above an image

if I use btnbmp I have no problems and the function correctly writes cCod but if I use ximage I don't see the writing printed on the image

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: write a test on Image control
Posted: Mon Feb 13, 2023 10:28 PM

resolved

need oImage:refresh()

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: write a test on Image control
Posted: Mon Feb 13, 2023 11:46 PM

Me alegro Silvio!

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion