Board index FiveWin for Harbour/xHarbour FWH903 and btnget issue?

Posts: 566

Joined: Thu Aug 30, 2007 03:40 PM

FWH903 and btnget issue?
Posted: Wed Apr 01, 2009 12:04 AM

hi, i updated to fwh903, after compile my appl apper the error : ( i use 3rd party btnget, but this works with fwh902)

Application

Path and name: D:_Prj\Scas\Scas_.exe (32 bits)
Size: 2,465,280 bytes
Time from start: 0 hours 0 mins 9 secs
Error occurred at: 31/03/2009, 21:01:18
Error description: Warning BASE/1004 Message not found: TBTNBMP:HBITMAP
Args:

Stack Calls

Called from: source\rtl\tobject.prg => TBTNBMP:ERROR(172)
Called from: source\rtl\tobject.prg => TBTNBMP:MSGNOTFOUND(205)
Called from: source\rtl\tobject.prg => TBTNBMP:HBITMAP(0)

this appl works fine with fwh902, i missing something?

thanks

Maurizio

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Re: FWH903 and btnget issue?
Posted: Wed Apr 01, 2009 06:43 AM

Hello
The problem is the new tget.prg in CreateButton()

Old tget.prg

     @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
        ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
        SIZE ::nHeight - 4, ::nHeight - 4 PIXEL

New tget.prg

 @ 0, ::nWidth - ::nHeight BTNBMP ::oBtn OF Self ;
             ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
                      SIZE ::nHeight - 4, ::nHeight - 4

Regards MAurizio

Maurizio
www.nipeservice.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH903 and btnget issue?
Posted: Wed Apr 08, 2009 06:12 PM

Maurizio,

Thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: FWH903 and btnget issue?
Posted: Tue May 05, 2009 12:46 PM

Hi Antonio,

I use btnget in 148 prgs. Do you know how i can make btnget works with fwh903?

Thanks a lot.

dutch

Posts: 1598

Joined: Fri Oct 07, 2005 05:56 PM

Re: FWH903 and btnget issue?
Posted: Wed May 06, 2009 03:41 AM

Dear Wanderson,

First, I've modify BTNGET.CH as following and it works fine.

Code (fw): Select all Collapse

/*
 * $Id: btnget.ch,v 1.1 2001/09/05 16:53:13 RRamirez Exp $
 */

#xcommand REDEFINE BTNGET [ <oGet> VAR ] <uVar> ;
             [ ID <nId> ] ;
             [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ VALID   <ValidFunc> ]       ;
             [ <pict: PICT, PICTURE> <cPict> ] ;
             [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ FONT <oFont> ] ;
             [ CURSOR <oCursor> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
             [ ACTION <uAction> ] ;
             [ BITMAP <cBmpName> ] ;
       => ;
          [ <oGet> := ] TGet():ReDefine( <nId>, bSETGET(<uVar>), <oDlg>,;
             <nHelpId>, <cPict>, <{ValidFunc}>, <nClrFore>, <nClrBack>,;
             <oFont>, <oCursor>, <cMsg>, <.update.>, <{uWhen}>,;
             [ \{|nKey,nFlags,Self| <uChange> \}], <.readonly.>,;
             <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, [\{|self| <uAction> \}], <cBmpName> )


#command @ <nRow>, <nCol> BTNGET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ <pict: PICT, PICTURE> <cPict> ] ;
            [ VALID <ValidFunc> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ]  ;
            [ FONT <oFont> ] ;
            [ <design: DESIGN> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ <pass: PASSWORD> ] ;
            [ <lNoBorder: NO BORDER, NOBORDER> ] ;
            [ <help:HELPID, HELP ID> <nHelpId> ] ;
            [ ACTION <uAction> ] ;
            [ BITMAP <cBmpName> ] ;
       => ;
          [ <oGet> := ] TGet():New( <nRow>, <nCol>, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, <oFont>, <.design.>,;
             <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             <.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,, [\{|self| <uAction> \}], <cBmpName> )

#command @ <nRow>, <nCol> BTNGET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ <pict: PICT, PICTURE> <cPict> ] ;
            [ VALID <ValidFunc> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ]  ;
            [ FONT <oFont> ] ;
            [ <design: DESIGN> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ <help:HELPID, HELP ID> <nHelpId> ] ;
            [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
       => ;
          [ <oGet> := ] TGet():New( <nRow>, <nCol>, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, <oFont>, <.design.>,;
             <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             .f., .f., <nHelpId>,;
             <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}> )

But later on, I've changed all by text replace in all Prgs file. Because I don't need to include BTNGET.CH file anymore.

Regards,
Dutch

Regards,

Dutch

FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Wanderson

Posts: 332

Joined: Thu Nov 17, 2005 09:11 PM

Re: FWH903 and btnget issue?
Posted: Wed May 06, 2009 04:42 PM

Hi Dutch,
Thanks for your reply.
I put in your btnget.ch this line
[ <resource: BUTTON NAME, RESNAME, RESOURCE> <cResName> ];
because i use resource. But after compiler all bitmaps in btngets dosen't display and F2 don't work too.
Change something in btnget redefine?
I use:

REDEFINE BTNGET oGet01 VAR oCtoPar:SIGLAPAR ID 102 of Odlg;
RESOURCE "FINDP" picture '999' COLOR Frente,Fundo update action listater() valid vepar(oCtoPar:SIGLAPAR)

Tia.
Wanderson.

FiveTech Support Forums

Application

Stack Calls

Continue the discussion