FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Recent problem with buttonbar
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Recent problem with buttonbar
Posted: Tue Oct 28, 2014 12:53 PM
Hallo,

The buttonbar in my application used to look like this : (build with FWH 13.08)
.

But a shortwhile ago, the buttonbar looks like this : (build with FWH 14.09)
.

Does anyone have any idea what causes this change? It doesn't look nice anymore.

Thanks a lot in advance.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Recent problem with buttonbar
Posted: Tue Oct 28, 2014 02:22 PM

You mean the there is gap between the border and bitmap.
And quality of painting of some bitmaps is now inferior.
Right?

We shall look into this.

Regards



G. N. Rao.

Hyderabad, India
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Tue Oct 28, 2014 02:29 PM

Indeed, there is a gap but the quality of the bitmap is terrible. I think it has something to do with the size of the bitmap.

Thanks.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Recent problem with buttonbar
Posted: Tue Oct 28, 2014 02:37 PM

Our postings crossed.
I agree with you.
We shall work on this and provide you with modified prgs at the earliest.

Meanwhile can you post here
code for creating of button bar and first 4 or 5 bitmaps.

Regards



G. N. Rao.

Hyderabad, India
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Tue Oct 28, 2014 03:03 PM
Here is the code I build may button bar with :
Code (fw): Select all Collapse
PROCEDURE BuildBar1(mRet)

   DEFAULT(mRet,.T.)

   IF mRet
      oBar:End()
   ENDIF

*  SetRes(1)
   IF US->UOF2007LB
      DEFINE BUTTONBAR oBar 3D SIZE IF(&("US->USCREEN1"+CheckTermServ())<>0,&("US->USCREEN1"+CheckTermServ()),30),IF(&("US->USCREEN2"+CheckTermServ())<>0,&("US->USCREEN2"+CheckTermServ()),32) OF oWnd 2007
   ELSE
      DEFINE BUTTONBAR oBar 3D SIZE IF(&("US->USCREEN1"+CheckTermServ())<>0,&("US->USCREEN1"+CheckTermServ()),30),IF(&("US->USCREEN2"+CheckTermServ())<>0,&("US->USCREEN2"+CheckTermServ()),32) OF oWnd
   ENDIF
   DEFINE BUTTON OF oBAR FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"CURRENT.BMP"             ACTION (StartSub(.T.,,.T.),EditDos("Update",1,.F.)             ,EndSub(.T.,,.T.))  TOOLTIP "Geactiveerd dossier consulteren"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"NIEUW.BMP"               ACTION (StartSub(.T.,,.T.),EditDos("Insert",1,.F.)             ,EndSub(.T.,,.T.))  TOOLTIP "Nieuw dossier toevoegen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DOSSIER.BMP"             ACTION (StartSub(.T.,,.T.),ActDos(0)                           ,EndSub(.T.,,.T.))  TOOLTIP "Basisgegevens dossiers / dossier activeren"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ZOEK.BMP"          GROUP ACTION (StartSub(.T.,,.T.),MZoekDOS(,,,,,,,,,0)                ,EndSub(.T.,,.T.))  TOOLTIP "Multifunctioneel opzoeken van dossiers"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"PARTIJ.BMP"        GROUP ACTION (StartSub(.T.,,.T.),ActPar(0,1)                         ,EndSub(.T.,,.T.))  TOOLTIP "Basisgegevens partijen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ANDEREN.BMP"             ACTION (StartSub(.T.,,.T.),ActAnd(0)                           ,EndSub(.T.,,.T.))  TOOLTIP "Basisgegevens andere betrokkenen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"RECHTB.BMP"              ACTION (StartSub(.T.,,.T.),ActBan(0)                           ,EndSub(.T.,,.T.))  TOOLTIP "Basisgegevens rechtbanken"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"AGENDAD.BMP"       GROUP ACTION (StartSub(.T.,,.T.),ToonAg1()                           ,EndSub(.T.,,.T.))  TOOLTIP "Dossieragenda"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"AGENDAK.BMP"             ACTION (StartSub(.T.,,.T.),ToonAg2()                           ,EndSub(.T.,,.T.))  TOOLTIP "Kantoor- en procedureagenda"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"AGENDAI.BMP"             ACTION (StartSub(.T.,,.T.),ToonAg3()                           ,EndSub(.T.,,.T.))  TOOLTIP "Individuele agenda"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DOSPRES.BMP"       GROUP ACTION (StartSub(.T.,,.T.),ToonPrest(1,xLaatstDos)             ,EndSub(.T.,,.T.))  TOOLTIP "Dossierprestaties"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"FINFICH.BMP"             ACTION (StartSub(.T.,,.T.),ToonFin(xLaatstDos)                 ,EndSub(.T.,,.T.))  TOOLTIP "Financiële fiche"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"INTRES1.BMP"       GROUP ACTION (StartSub(.T.,,.T.),MeervIntr()                         ,EndSub(.T.,,.T.))  TOOLTIP "Meervoudige intrestberekening"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"INTRES2.BMP"             ACTION (StartSub(.T.,,.T.),EnkelvIntr()                        ,EndSub(.T.,,.T.))  TOOLTIP "Enkelvoudige intrestberekening"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"INDEX.BMP"               ACTION (StartSub(.T.,,.T.),Indexberek()                        ,EndSub(.T.,,.T.))  TOOLTIP "Indexberekeningen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"EMAIL.BMP"         GROUP ACTION (StartSub(.T.,,.T.),MailSend()                          ,EndSub(.T.,,.T.))  TOOLTIP "Email-bericht versturen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"OUTLOOK.BMP"             ACTION (StartSub(.T.,,.T.),EmailImport()                       ,EndSub(.T.,,.T.))  TOOLTIP "Email-bericht uit Outlook inlezen"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"PHONE.BMP"         GROUP ACTION (StartSub(.T.,,.T.),ActTel(0)                           ,EndSub(.T.,,.T.))  TOOLTIP "Telefoonnota's"
   IF !EMPTY(US->ULOGPATH) .AND. ALLTRIM(US->ULOGPATH) <> "\"
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"LOGFILE.BMP"          ACTION (StartSub(.T.,,.T.),ActLog(0)                           ,EndSub(.T.,,.T.))  TOOLTIP "Logbestand dossier"
   ENDIF
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DOSNOTA.BMP"             ACTION (StartSub(.T.,,.T.),ActDno()                            ,EndSub(.T.,,.T.))  TOOLTIP "Dossiernota's"
   IF xPriority >= 3 .OR. xBoekExt <> "PAR"
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"INKFACT.BMP"    GROUP ACTION (StartSub(.T.,,.T.),AfpControle(),ActB1(1)              ,EndSub(.T.,,.T.))  TOOLTIP "Inkomend facturenboek"
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"UITFACT.BMP"          ACTION (StartSub(.T.,,.T.),AfpControle(),ActB1(2)              ,EndSub(.T.,,.T.))  TOOLTIP "Uitgaand facturenboek"
   ENDIF
   IF xPriority >= 4 .OR. xBoekExt <> "PAR"
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"BANKEN.BMP"           ACTION (StartSub(.T.,,.T.),AfpControle(),ActB2(3),AfpControle(),EndSub(.T.,,.T.))  TOOLTIP "Financieel dagboek"
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DIVERS.BMP"           ACTION (StartSub(.T.,,.T.),AfpControle(),ActB2(4),AfpControle(),EndSub(.T.,,.T.))  TOOLTIP "Diversen dagboek"
   ENDIF
   IF PAR->OZDOSSIER .AND. PAR->ONDOSSIER
      DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ARCHIEF.BMP"    GROUP ACTION (StartSub(.T.,,.T.),ActArc(1)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per dossier"
   ENDIF
   IF PAR->OZONDERW .AND. PAR->ONONDERW
      IF PAR->OZDOSSIER .AND. PAR->ONDOSSIER
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ONDWERP.BMP"       ACTION (StartSub(.T.,,.T.),ActArc(2)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per onderwerp"
      ELSE
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ONDWERP.BMP" GROUP ACTION (StartSub(.T.,,.T.),ActArc(2)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per onderwerp"
      ENDIF
   ENDIF
   IF PAR->OZONDERV .AND. PAR->ONONDERV
      IF (PAR->OZDOSSIER .AND. PAR->ONDOSSIER) .OR. (PAR->OZONDERW .AND. PAR->ONONDERW)
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ONDVERD.BMP"       ACTION (StartSub(.T.,,.T.),ActArc(3)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per categorie document"
      ELSE
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"ONDVERD.BMP" GROUP ACTION (StartSub(.T.,,.T.),ActArc(3)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per categorie document"
      ENDIF
   ENDIF
   IF PAR->OZDATUM .AND. PAR->ONDATUM
      IF (PAR->OZDOSSIER .AND. PAR->ONDOSSIER) .OR. (PAR->OZONDERW .AND. PAR->ONONDERW) .OR. (PAR->OZONDERV .AND. PAR->ONONDERV)
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DATUM.BMP"         ACTION (StartSub(.T.,,.T.),ActArc(4)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per datum"
      ELSE
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"DATUM.BMP"   GROUP ACTION (StartSub(.T.,,.T.),ActArc(4)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per datum"
      ENDIF
   ENDIF
   IF PAR->OZNUMMER .AND. PAR->ONNUMMER
      IF (PAR->OZDOSSIER .AND. PAR->ONDOSSIER) .OR. (PAR->OZONDERW .AND. PAR->ONONDERW) .OR. (PAR->OZONDERV .AND. PAR->ONONDERV) .OR. (PAR->OZDATUM .AND. PAR->ONDATUM)
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"NUMMER.BMP"        ACTION (StartSub(.T.,,.T.),ActArc(5)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per documentnummer"
      ELSE
         DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"NUMMER.BMP"  GROUP ACTION (StartSub(.T.,,.T.),ActArc(5)                           ,EndSub(.T.,,.T.))  TOOLTIP "Opgeslagen documenten raadplegen per documentnummer"
      ENDIF
   ENDIF
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"SCAN.BMP"          GROUP ACTION (StartSub(.T.,,.T.),ScanImport()                        ,EndSub(.T.,,.T.))  TOOLTIP "Ingescande documenten importeren"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"NAGENDA.BMP"       GROUP ACTION (StartSub(.T.,,.T.),NieuwAg()                           ,EndSub(.T.,,.T.))  TOOLTIP "Nieuw agendapunt"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"NPRESTA.BMP"             ACTION (StartSub(.T.,,.T.),NieuwPr(1)                          ,EndSub(.T.,,.T.))  TOOLTIP "Nieuwe prestatie"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"CLOCK.BMP"         GROUP ACTION (StartSub(.T.,,.T.),NieuwPr(2)                          ,EndSub(.T.,,.T.))  TOOLTIP "Prestatie chronometreren"
   DEFINE BUTTON OF oBar FILE "..\BITMAPS\"+IF(US->UOF2007LB,"2","1")+"EXIT.BMP"          GROUP ACTION (oWnd:End())                                                                TOOLTIP "Juda v. " + ALLTRIM(PAR->JUDAVERS) + " verlaten"

   oBar:Enable()
   oBar:Update()
   oWnd:Enable()

RETURN

******************************************************************************
Thanks.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Wed Oct 29, 2014 09:46 AM

Hello,

I did some more tests concerning this problem.

I rebuild my application with FWH 14.08. Then the problems doesn't occur.

Then I went back to FWH 14.09. I noticed that the problem is connected to changes in the BTNBMP class. If I use BTNBMP.PRG of FWH 14.08, the problem doesn't occur anymore.

So, the problem is in BTNBMP.PRG.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Recent problem with buttonbar
Posted: Wed Oct 29, 2014 10:57 AM

Michel,

many thanks for your feedback, we are going to review it and provide a solution asap.

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Fri Oct 31, 2014 08:49 AM

Antonio,

No solution yet?

Thanks.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Recent problem with buttonbar
Posted: Fri Oct 31, 2014 08:58 AM

We shall send you modified btnbmp.prg for testing at your end.
Can you please contact me at my email

nageswaragunupudi@gmail.com ?

Regards



G. N. Rao.

Hyderabad, India
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Tue Dec 23, 2014 11:27 AM

Hello guys,

I didn't hear about this problem anymore.
And now in FWH 4.12 I see that the problem is still there.

I was promised a revised btnbmp class, but I didn't receive it.

Now I use the btnbmp class of FWH 13.08 and everything is ok.

Please what's wrong?

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Recent problem with buttonbar
Posted: Wed Dec 24, 2014 07:02 AM

Michel,

Rao has been working on this and he told me he has his changes ready, so surely today or tomorrow we will post the required changes.

Many thanks for the reminder :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Mon Dec 29, 2014 05:42 PM

Antonio,

No news yet?

Thanks

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Recent problem with buttonbar
Posted: Mon Dec 29, 2014 05:46 PM

Michel,

I chatted about this with Rao several days ago and he confirmed me that he was working on it, so I guess he may be close to deliver some fixes :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
driessen
Posts: 1467
Joined: Mon Oct 10, 2005 11:26 AM
Re: Recent problem with buttonbar
Posted: Tue Dec 30, 2014 10:31 AM

Antonio,

Thanks a lot.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

Continue the discussion

Static archive · New replies & topics via GitHub Discussions