bitmap changed from user - RESOLVED !!!

[Silvio]

I made

on Hwselction

if lOK
aControl[2]:cText := alltrim(Hw->Inventario)
aControl[3]:cText := alltrim(Hw->type)+" "+" Marca: "+;
alltrim(Hw->Marca)+" "+" Modello: "+alltrim(Hw->Modello)



aControl[20]:cResname := ltrim(STR(AScan( aItems, Trim( HW->type ))))





endif




on Pripara.prg

@ 5, 133 BUTTON oBtnSel PROMPT "..." OF oFldMat:aDialogs[1] PIXEL SIZE 10, 9 ;
ACTION (HwSeleccion( cInventario, aGet, oDlg ),;
cbmp:=aGet[20]:cresname ,;
nmsgbox(cBmp),;
aGet[20]:Refresh())


@ 2, 250 BITMAP aGet[20] RESOURCE oggettoBmp[val(trim(cBmp))] NOBORDER PIXEL;
OF oFldMat:aDialogs[1] SIZE 20,20 UPDATE



Now I have a number , I can select the number of array oggettoBmp[val(trim(cBmp))] but it not refresh the bitmaps

any idea

[ukoenig]

Silvio,

that cannot work !

@ 2, 250 BITMAP aGet[20] RESOURCE oggettoBmp[val(trim(cBmp))] NOBORDER PIXEL;
OF oFldMat:aDialogs[1] SIZE 20,20 UPDATE

To change a Bitmap from resource is easy :
a Sample for xBrowse ( shows Bitmaps with different Colors )



oBrw:bLClicked := { | nRow, nCol | IIF( oLbx1:nArrayAt = 1, oBMP:SetBMP( "Black" ) , NIL ), ;
IIF( oLbx1:nArrayAt = 7, oBMP:SetBMP( "Red" ), NIL ) }

To display a Image from File, You have to add :

aGet[20]:bPainted := {|hDC| < Your drawing-function > }

Next You need only a Refresh like < aGet[20]:Refresh() > to show a new Image.

here is a Sample with File-selection :

Code: Select all  Expand view  RUN

@ 30, 300 IMAGE oBmp FILENAME NIL OF oDlg SIZE 80, 50 PIXEL NOBORDER
oBMP:bPainted := {|hDC| DRAW_BRUSH(oBMP, hDC, cImage)}

// ---------- IMAGE-BRUSH ------------

FUNCTION DRAW_BRUSH( oBitmap, hDC, cFile )
LOCAL oNewBrush
LOCAL aRect := GETCLIENTRECT( oBitmap:hWnd )

IF FILE ( cFile ) // Image adjusted
     DEFINE IMAGE oNewbrush FILENAME cFile
     PalBmpDraw( hDC, 0, 0, oNewbrush:hBitmap, , aRect[4], aRect[3] )
ELSE
     IF !EMPTY( cFile )
          MsgAlert( "File : " + CRLF + cFile + CRLF + "not found !!!", "Error" )
     ENDIF
ENDIF

RETURN( NIL )
 

[Daniel Garcia-Gil]

Silvio


you save the position here

Code: Select all  Expand view  RUN

aControl[20]:cResname :=   ltrim(STR(AScan( aItems, Trim( HW->type ))))

after

Code: Select all  Expand view  RUN

cbmp:=aGet[20]:cresname ,;

WE told you... use LoadImage...

In the start you use...

Code: Select all  Expand view  RUN

@ 2, 250 BITMAP aGet[20] RESOURCE oggettoBmp[val(ltrim(cBmp))] NOBORDER PIXEL;
              OF oFldMat:aDialogs[1] SIZE 20,20    UPDATE

use same code in Button Action...

Code: Select all  Expand view  RUN

              @ 5, 133 BUTTON oBtnSel PROMPT "..." OF oFldMat:aDialogs[1]  PIXEL SIZE  10,  9  ;
                                         ACTION (HwSeleccion( cInventario, aGet, oDlg ),;
                                                    cbmp:=aGet[20]:cresname ,;
                                                   aGet[20]:LoadImage( oggettoBmp[val(ltrim(cBmp))] ),;
                                                   aGet[20]:Refresh())
 

this is a not correct way... but you dont need change the Arrays

[Silvio]

OK thanks Now run ok
Thanks Daniel, Thanks James

[James Bott]

Falconi,

Glad to hear you got it working.

Your interface is looking very nice!

Regards,
James

[Silvio]

thanks it is a project for a hardware support at mine school ( i work there)