FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour FolderEx problem
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
FolderEx problem
Posted: Wed Mar 24, 2021 10:21 AM
I can't insert the title of the Folderex tab below the tab bitmap, see the picture





the code

@ 3, 3 FOLDEREX oFolder PIXEL LEFT STRETCH;
PROMPT "&Generale", "&Stampe","Spiaggia", "Planning" ;
TAB HEIGHT 120 ;
BITMAPS aBitmaps ;
ALIGN FLDBMP_LEFT, FLDBMP_CENTER,FLDBMP_CENTER, FLDBMP_CENTER ;
FONT oTitle

oFolder:nLayOut := 2


@ 3,0 FOLDEREX oFld1 OF oFolder:aDialogs[ 1 ] PIXEL ;
PROMPT "Impostazione", "Visualizza", "Azienda" ;
TAB HEIGHT 30 FONT oFont

@ 3,10 FOLDEREX oFld2 OF oFolder:aDialogs[ 2 ] PIXEL ;
PROMPT "Predefinita", "Prenotazione", "Pagamento" ;
TAB HEIGHT 30 FONT oFont





run good only with ALIGN 0,0,0,0






I wish in this mode



any solution ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: FolderEx problem
Posted: Wed Mar 24, 2021 06:44 PM

Example complete, please! .RAR

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Marc Venken
Posts: 1487
Joined: Tue Jun 14, 2016 07:51 AM
Re: FolderEx problem
Posted: Wed Mar 24, 2021 10:33 PM

No code to test, but have you tried the combination of 2 parameters ?.

this is xbrowse and mayby also used for folders. Give it a try

:nDataStrAlign := AL_CENTER + AL_BOTTOM

Marc Venken

Using: FWH 23.08 with Harbour
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: FolderEx problem
Posted: Thu Mar 25, 2021 11:05 AM
Marc Venken wrote:No code to test, but have you tried the combination of 2 parameters ?.

this is xbrowse and mayby also used for folders. Give it a try

:nDataStrAlign := AL_CENTER + AL_BOTTOM



ON METHOD PaintTB() CLASS TFolderEx THERE ARE ONLY DT_SINGLELINE, DT_VCENTER, DT_CENTER
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: FolderEx problem
Posted: Thu Mar 25, 2021 11:33 AM
karinha wrote:Example complete, please! .RAR


the test
Please change your folder fwh
local cFolder_Fivewin:="C:\work\fwh\"


Code (fw): Select all Collapse
 
#include "fivewin.ch"
#include "constant.ch"

 Function test()
    local oDlg, oFolder,oFont,oBold,oTitle
    local oFld1,oFld2
    local nBottom   := 42
    local nRight    := 123.2
    local nWidth    :=  Max( nRight * DLG_CHARPIX_W, 180 )
    local nHeight   := nBottom * DLG_CHARPIX_H
    local oBtnConferma,oBtnChiudi


    local cFolder_Fivewin:="C:\work\fwh\"
    local aBitmaps  := {cFolder_Fivewin+"bitmaps\32x32\users.bmp",;
                        cFolder_Fivewin+"bitmaps\32x32\delete.bmp",;
                        cFolder_Fivewin+"bitmaps\32x32\fivetech.bmp",;
                        cFolder_Fivewin+"bitmaps\32x32\quit.bmp",}

       DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14
   DEFINE FONT oBold NAME "Segoe UI" SIZE 0,-12 BOLD
   DEFINE FONT oTitle NAME "Segoe UI" SIZE 0,-14 BOLD



       DEFINE DIALOG oDlg SIZE nWidth, nHeight ;
          TITLE "Configurazione" PIXEL FONT oFont;
            STYLE nOR(  WS_CAPTION, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )

       @ 3, 3 FOLDEREX oFolder PIXEL LEFT STRETCH;
                PROMPT "&Generale", "&Stampe","Spiaggia", "Planning" ;
                TAB HEIGHT 120 ;
                BITMAPS aBitmaps ;
                ALIGN FLDBMP_LEFT, FLDBMP_CENTER,FLDBMP_CENTER, FLDBMP_CENTER ;
                OF oDlg

        oFolder:nLayOut := 2

        @ 3,0 FOLDEREX oFld1 OF oFolder:aDialogs[ 1 ] PIXEL  ;
         PROMPT "Impostazione", "Visualizza", "Azienda" ;
          TAB HEIGHT 30   FONT oFont

     @ 3,10 FOLDEREX oFld2 OF oFolder:aDialogs[ 2 ] PIXEL  ;
         PROMPT "Predefinita", "Prenotazione", "Pagamento" ;
          TAB HEIGHT 30 FONT oFont



       @ 195,250 BUTTONBMP oBtnConferma;
     RESOURCE "INVOICE_SAVE" ;
     PROMPT "   Salva" SIZE 55,15 PIXEL OF  oDlg;
     TOOLTIP "fai click per salvare";
     TEXTRIGHT FONT oTitle ;
     ACTION   ( oDlg:end( IDOK ) )

     @ 195,250 BUTTONBMP oBtnChiudi;
     RESOURCE "INVOICE_EXIT" ;
     PROMPT "   Chiudi" SIZE 55,15  PIXEL OF  oDlg;
     TOOLTIP "fai click per chiudere";
     TEXTRIGHT FONT oTitle ;
     ACTION  ( oDlg:end( IDCANCEL ) )



       oDlg:bResized  := <||
                     oRect                := oDlg:GetCliRect()
                     oFolder:nWidth       := oRect:nRight-20
                     oFolder:nHeight      := oRect:nBottom-60

                     oFld1:nWidth  := oFolder:nWidth-140
                     oFld1:nHeight := oFolder:nHeight-20
                     oFld2:nWidth  := oFolder:nWidth-140
                     oFld2:nHeight := oFolder:nHeight-20

                     oBtnConferma:nTop    := oRect:nBottom - 34
                     oBtnConferma:nLeft   := oRect:nRight - 260
                     oBtnChiudi:nTop      := oRect:nBottom - 34
                     oBtnChiudi:nLeft     := oRect:nRight - 140

                     oFld1:refresh()
                     oFld2:refresh()
                      return nil
                            >






                            ACTIVATE DIALOG oDlg CENTERED  ;
                               ON INIT (EVAL( oDlg:bResized) )
   if oDlg:nresult == IDOK

   endif

    RELEASE FONT oFont
  return nil
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: FolderEx problem
Posted: Thu Mar 25, 2021 03:23 PM
Que falta?

Code (fw): Select all Collapse
// SAMPLES\FOLDXSIL.PRG

#Include "fivewin.ch"
#Include "constant.ch"

FUNCTION test()

   LOCAL oDlg, oFolder, oFont, oBold, oTitle, oRect
   LOCAL oFld1, oFld2
   LOCAL nBottom   := 42
   LOCAL nRight    := 123.2
   LOCAL nWidth    :=  Max( nRight * DLG_CHARPIX_W, 180 )
   LOCAL nHeight   := nBottom * DLG_CHARPIX_H
   LOCAL oBtnConferma, oBtnChiudi
   // LOCAL cFolder_Fivewin := "C:\work\fwh\"
   LOCAL cFolder_Fivewin := "C:FWH1905"
   LOCAL aBitmaps  := { cFolder_Fivewin + "bitmaps\32x32\users.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\delete.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\fivetech.bmp", ;
                        cFolder_Fivewin + "bitmaps\32x32\quit.bmp", }

   DEFINE FONT oFont  NAME "Segoe UI" SIZE 0, - 14
   DEFINE FONT oBold  NAME "Segoe UI" SIZE 0, - 12 BOLD
   DEFINE FONT oTitle NAME "Segoe UI" SIZE 0, - 14 BOLD

   DEFINE DIALOG oDlg SIZE nWidth, nHeight                ;
      TITLE "Configurazione in xHarbour" PIXEL FONT oFont ;
      STYLE nOR( WS_CAPTION, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )

   @ 3, 3 FOLDEREX oFolder PIXEL LEFT STRETCH;
      PROMPT "&Generale", "&Stampe", "&Spiaggia", "&Planning"        ;
      ON PAINT TAB PaintTab( Self, nOption )                         ;
      TAB HEIGHT 120 ROUND 5 BITMAPS aBitmaps                        ;
      ALIGN FLDBMP_LEFT, FLDBMP_CENTER, FLDBMP_CENTER, FLDBMP_CENTER ;
      OPTION 2                                                       ;
      ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 2, CLR_BLUE, CLR_BLACK ) ) OF oDlg

   oFolder:nLayOut := 2

   @ 3, 0 FOLDEREX oFld1 OF oFolder:aDialogs[ 1 ] PIXEL  ;
      PROMPT "&Impostazione", "&Visualizza", "&Azienda"  ;
      TAB HEIGHT 30   FONT oFont

   @ 3, 10 FOLDEREX oFld2 OF oFolder:aDialogs[ 2 ] PIXEL ;
      PROMPT "&Predefinita", "Prenotazione", "Pagamento" ;
      TAB HEIGHT 30 FONT oFont

   @ 195, 250 BUTTONBMP oBtnConferma;
      RESOURCE "INVOICE_SAVE" ;
      PROMPT "  &Salva" SIZE 55, 15 PIXEL OF  oDlg;
      TOOLTIP "fai click per salvare";
      TEXTRIGHT FONT oTitle ;
      ACTION   ( oDlg:end( IDOK ) )

   @ 195, 250 BUTTONBMP oBtnChiudi;
      RESOURCE "INVOICE_EXIT" ;
      PROMPT "  &Chiudi" SIZE 55, 15  PIXEL OF  oDlg;
      TOOLTIP "fai click per chiudere";
      TEXTRIGHT FONT oTitle ;
      ACTION  ( oDlg:end( IDCANCEL ) )

   oDlg:bResized  := < ||
   oRect                := oDlg:GetCliRect()
   oFolder:nWidth       := oRect:nRight - 20
   oFolder:nHeight      := oRect:nBottom - 60

   oFld1:nWidth  := oFolder:nWidth - 140
   oFld1:nHeight := oFolder:nHeight - 20
   oFld2:nWidth  := oFolder:nWidth - 140
   oFld2:nHeight := oFolder:nHeight - 20

   oBtnConferma:nTop    := oRect:nBottom - 34
   oBtnConferma:nLeft   := oRect:nRight - 260
   oBtnChiudi:nTop      := oRect:nBottom - 34
   oBtnChiudi:nLeft     := oRect:nRight - 140

   oFld1:refresh()
   oFld2:refresh()

   RETURN NIL
   >

   ACTIVATE DIALOG oDlg CENTERED  ;
      ON INIT ( Eval( oDlg:bResized ) )

   IF oDlg:nresult == IDOK

   ENDIF

   RELEASE FONT  oFont
   RELEASE FONT  oBold
   RELEASE FONT  oTitle

RETURN NIL

FUNCTION PaintTab( o, nOption )

   LOCAL hBrush, hBmp, nLastRow

   IF nOption == o:nOver .OR. nOption == o:nOption
      o:SetAlphaLevel( nOption, 255 )
   ELSE 
      o:SetAlphaLevel( nOption, 50 )
   ENDIF 
   
   IF nOption == o:nOption .and. nOption == 2
      hBmp = ReadBitmap( 0, "C:\FWH1905\bitmaps\backgrnd\MAGENTA.bmp" )
      hBrush = CreatePatternBrush( hBmp )
      DeleteObject( hBmp )
      IF o:nLayOut == 2
         nLastRow = o:aPos[ o:aLines[ o:aOrder[ 1 ] ][ 1 ] ][ 1 ] + o:nFolderHeight
         SetBrushOrgEx( o:hDC, nLastRow + 2, 1 )  
      ELSE 
         SetBrushOrgEx( o:hDC, 2, 2 ) 
      ENDIF
      RETURN hBrush
   ENDIF   
   
RETURN o:SetFldColors( o, nOption )
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: FolderEx problem
Posted: Fri Mar 26, 2021 09:35 AM
karinha wrote:Que falta?


this is your solution


the text must be on bottom of image, NOT on over the image

But in your opinion, if I had problems to place the writing under the image, why did I create the topic to ask help ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions