Problem write text on Bitmaps resolved !!!

[Silvio.Falconi]

I wish draw a number into Bitmap

I saw Bmptext.prg sample but not run ok



I create this small sample with 100 bmps and when I try to call bpainted method I not see any numbers ...why ?

Any Help please

the small test

Code: Select all  Expand view  RUN

#include "fivewin.ch"


#define BMP_H    40
#define BMP_V    40


static totx,toty
static ofont
static aData,aBmps

Function test()
   Local oDlg

nItem:= 1
TOTY := 10
TOTX := 10

aBmps := ARRAY( TOTY, TOTX )
aData := ARRAY( TOTY, TOTX )

DEFINE FONT ofont NAME "VERDANA" SIZE 0,-20 BOLD
Define Dialog oDlg size 600,600

Activate Dialog oDlg centered;
On Init Load(oDlg,TOTY,TOTX,aData,aBmps,nItem)
Return nil


//--------------------------------------------------------------------//
Function Load(oDlg,TOTY,TOTX,aData,aBmps,nItem)
  Local nY,nX

        For nY := 1 to TOTY
           For nX := 1 To TOTX
               aData[nY,nX] := "X"
               NExt nX
            Next nY

 AssegnaBitmaps( aBmps, aData, oDlg, nItem )

return nil
//-------------------------------------------------------------------//
Function AssegnaBitmaps( aBmps, aData, oDlg, nItem )
  Local nY, nX
  Local nRow:=60
  Local nCol:=BMP_V
  Local nFila:=1,x:=1
  Local t
  Local nNumber:= 1
 nY  := 1
 nX  := 1

 For nY := 1 to TOTY
 For nX := 1 To TOTX
        @ nrow, ncol  BITMAP aBmps[ nY, nX ] RESOURCE "VUOTO_48" OF oDlg ;
                SIZE  BMP_H, BMP_V PIXEL ADJUST     TRANSPARENT  //NOBORDER

  aBmps[nY,nX]:bPainted := { | hDC, cP, oBmp | Numbers_Painted(hDC,oBmp,oFont,nNumber)  }


  ncol:=ncol+BMP_V
  nNumber++
            Next nX

nRow += BMP_H
nCol := BMP_V
nNumber++
Next nY



RETUR NIL












Function Numbers_Painted(hDC,oBmp,oFont,n)

      DrawText2(hDC, oFont:hFont, 2,;
            ltrim(str(n)) + " " ,38, 3, 40, 62,CLR_WHITE,CLR_GREEN)

RETUR NIL
//-------------------------------------------------------------------//

FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 )
LOCAL hFontOld:= SelectObject( hDC, hFont )
LOCAL nBkOld := SetBkMode( hDC, nBkMode )
SetTextColor( hDC, color )
setBkColor( hDC, color2 )
DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
SelectObject( hDC, hFontOld )
SetBkMode( hDC, nBkOld )
RETURN( NIL

[Silvio.Falconi]

any solution please ?

[Silvio.Falconi]

I'm sure there is a solution plrase help me
Regards

[Lailton]

Silvio,

Check it:
viewtopic.php?f=3&t=35666&p=212382&hilit=umbrella#p212382
viewtopic.php?f=3&t=24461&p=132549&hilit=umbrella#p132549

[Silvio.Falconi]

Laiton,
These topics are for btnbmp not for bitmaps.
Then i tried it but not run

[Silvio.Falconi]

resolved!!!



But this function not run

Code: Select all  Expand view  RUN

FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color,color2 )
LOCAL hFontOld:= SelectObject( hDC, hFont )
LOCAL nBkOld := SetBkMode( hDC, nBkMode )
SetTextColor( hDC, color )
setBkColor( hDC, color2 )

DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
*DRAWTEXTEX( hDC,  cText, {  nTop, nLeft, nTop+nWidth, nLeft+nHeight  } )
SelectObject( hDC, hFontOld )
SetBkMode( hDC, nBkOld )
RETURN( NIL )