control exceeds size in run time RESOLVED

Board index FiveWin for Harbour/xHarbour control exceeds size in run time RESOLVED

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

control exceeds size in run time RESOLVED
Posted: Mon Feb 15, 2021 12:49 AM

Hi guys, I don't understand Why the control buttonbar appreciate more large than the normal?

imagenes online

Into the pelles you can notice that the control is smaller than the program in run time

source code

Code (fw): Select all Collapse

REDEFINE BUTTONBAR oBar ID 100 OF oFld:aDialogs[3] 2007 TRANSPARENT    

   DEFINE BUTTON OF oBar PROMPT "Add"     FILE "c:\1712\fwh\bitmaps\32x32\new.bmp" ACTION ( IIF(cCodpag='02', AddRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )  
   DEFINE BUTTON OF oBar PROMPT "Delete"  FILE "c:\1712\fwh\bitmaps\delete.bmp" ACTION ( IIF(cCodpag='02', DeleteRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )


    REDEFINE XBROWSE oBrwC                  ;
      COLUMNS 1, 2                          ;
      HEADERS "Fecha","Importe"             ;
      COLSIZES 70, 100                      ;
      ARRAY {} LINES FASTEDIT CELL FOOTERS  ;
     ID 4018 OF oFld:aDialogs[3]            ;                                    
     UPDATE

      oBrwC:aCols[ 1 ]:nEditType     := EDIT_GET

      WITH OBJECT oBrwC:aCols[ 2 ]
         :nEditType     := EDIT_GET
         :nFooterType   := AGGR_SUM
         :nFootStrAlign := AL_RIGHT
      END
      oBrwC:MakeTotals()

I hope you can help me, thanks

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: control exceeds size in run time
Posted: Mon Feb 15, 2021 06:33 AM

Buttonbar always extends to the full width of the window/dialog.

Regards

G. N. Rao.

Hyderabad, India

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: control exceeds size in run time
Posted: Mon Feb 15, 2021 10:10 AM

Hi
I use this code.

Code (fw): Select all Collapse

LOCAL oRect := ::oDlg:GetCliRect()

::oDlgBar := TBar():NewAt( oRect:nTop+60, 00, 486, 42, 40, 40, ::oDlg, .F., , )

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: control exceeds size in run time
Posted: Fri Feb 19, 2021 11:54 PM

thank you Mr. Rao y Richard-Service for his reponse

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: control exceeds size in run time
Posted: Wed Mar 03, 2021 03:48 PM

I resolved of this way:

source code

Code (fw): Select all Collapse

REDEFINE BUTTONBAR oBar ID 100 OF oFld:aDialogs[3] 2007 TRANSPARENT    

   DEFINE BUTTON OF oBar PROMPT "Add"     FILE "c:\1712\fwh\bitmaps\32x32\new.bmp" ACTION ( IIF(cCodpag='02', AddRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )  
   DEFINE BUTTON OF oBar PROMPT "Delete"  FILE "c:\1712\fwh\bitmaps\delete.bmp" ACTION ( IIF(cCodpag='02', DeleteRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )


    REDEFINE XBROWSE oBrwC                  ;
      COLUMNS 1, 2                          ;
      HEADERS "Fecha","Importe"             ;
      COLSIZES 70, 100                      ;
      ARRAY {} LINES FASTEDIT CELL FOOTERS  ;
     ID 4018 OF oFld:aDialogs[3]            ;                                    
     UPDATE

      oBrwC:aCols[ 1 ]:nEditType     := EDIT_GET

      WITH OBJECT oBrwC:aCols[ 2 ]
         :nEditType     := EDIT_GET
         :nFooterType   := AGGR_SUM
         :nFootStrAlign := AL_RIGHT
      END
      oBrwC:MakeTotals()
ACTIVATE DIALOG oDlgVr CENTERED on INIT ( oBar:Move( 25, 15, 100 ) )

this link help me
http://forums.fivetechsupport.com/viewt ... ar#p228006

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: control exceeds size in run time
Posted: Thu Mar 04, 2021 09:29 AM

artu01 wrote:I resolved of this way:

source code

Code (fw): Select all Collapse

REDEFINE BUTTONBAR oBar ID 100 OF oFld:aDialogs[3] 2007 TRANSPARENT    

   DEFINE BUTTON OF oBar PROMPT "Add"     FILE "c:\1712\fwh\bitmaps\32x32\new.bmp" ACTION ( IIF(cCodpag='02', AddRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )  
   DEFINE BUTTON OF oBar PROMPT "Delete"  FILE "c:\1712\fwh\bitmaps\delete.bmp" ACTION ( IIF(cCodpag='02', DeleteRow(oBrwC), MsgAlert("Condicion de pago no es a Credito")), oBrwC:SetFocus() )


    REDEFINE XBROWSE oBrwC                  ;
      COLUMNS 1, 2                          ;
      HEADERS "Fecha","Importe"             ;
      COLSIZES 70, 100                      ;
      ARRAY {} LINES FASTEDIT CELL FOOTERS  ;
     ID 4018 OF oFld:aDialogs[3]            ;                                    
     UPDATE

      oBrwC:aCols[ 1 ]:nEditType     := EDIT_GET

      WITH OBJECT oBrwC:aCols[ 2 ]
         :nEditType     := EDIT_GET
         :nFooterType   := AGGR_SUM
         :nFootStrAlign := AL_RIGHT
      END
      oBrwC:MakeTotals()
ACTIVATE DIALOG oDlgVr CENTERED on INIT ( oBar:Move( 25, 15, 100 ) )

this link help me
viewtopic.php?f=3&t=38173&p=228006&hilit=redefine+buttonbar#p228006

Thanks for your share solution

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion