Folderex LEFT

[Marc Vanzegbroeck]

Hi,

I want to use the folderex class with the tab's at the left.
The only problem is that the text on the tab is not rotated.
How can I rotate the text, or maybe put the characters below each other.
Like:

O
N
E


T
W
O

Thank you

[ukoenig]

Marc,

the solution You are looking for ?



because normal text doesn't work I used
transparent Images created with text

the images created with PIXELFORMER

Code: Select all  Expand view

#include "FiveWin.ch"

function main()
local oWnd, i
local oFld
local aBitmaps := { "Test1.png",;
                      "Test2.png",;
                      "Test3.png" }
 
DEFINE WINDOW oWnd TITLE "TFolderex - Testing -"
     
@ 3, 3 FOLDEREX oFld PIXEL ADJUST;
          PROMPT  "", "", "";          
          BITMAPS aBitmaps;
          ACTION( ::HideTab( nOption ) )
 
//#define LAYOUT_TOP     1
//#define LAYOUT_LEFT    2
//#define LAYOUT_BOTTOM  3
//#define LAYOUT_RIGHT   4  

oFld:nFolderHeight := 100
oFld:nLayOut := 2
   
ACTIVATE WINDOW oWnd
   
RETURN NIL

 

regards
Uwe

[Marc Vanzegbroeck]

Thank you Uwe,

That's a nice solution. I thought it might be possible to use text instead of a bitmap, but this is also good.

[cnavarro]

I do not know if I understood your problem

Code: Select all  Expand view

Function TestFldEx()

   local oSay5
   local oSay6
   local nClrL   := Rgb( 0, 188, 142 )
   local oFld12
   local oFont

   DEFINE FONT oFont NAME "CALIBRI" SIZE 0,-14

   DEFINE WINDOW oWindow FROM 20, 20 TO GetSysMetrics( 1 ) - 60, 1120 ;
      PIXEL TITLE "Test Panels and FolderEx" ;  //      MENU MyMenu();
      COLOR CLR_BLACK, Rgb( 224, 224, 224 )
      oWindow:SetFont( oFont )

      @ 1, 10 FOLDEREX oFld12 ;
         PROMPTS "CONEXIONES RECIENTES", "CONEXIONES GUARDADAS" PIXEL ;
         OF oWindow SIZE 600, 400 ; //TRANSPARENT ;
         FONT oFont COLOR CLR_WHITE LEFT
   
      WITH OBJECT oFld12
         :nFolderHeight  := 24
         :nRound         := 0
         :nSeparator     := 0
         :aGradSel       := { { 1, CLR_WHITE, CLR_WHITE } }
         :aGradUnSel     := { { 1, CLR_WHITE, CLR_WHITE } }
         :bClrText       := { | o, n | if( n = o:nOption, ;
                              METRO_GRIS2, Rgb( 184, 184, 184 ) ) }
         :aGradOver      := { { 0.8, CLR_WHITE, CLR_WHITE }, { 0.2, nClrL, nClrL } }
         :aGradOverUnSel := :aGradOver
         //:AdjClient()
         :Default()
      END

      @ 0, 10 SAY oSay5 PROMPT "Esto es un Folder Pestaña 1" OF oFld12:aDialogs[ 1 ] ;
         SIZE 250, 32 PIXEL ;
         FONT oFont /*TRANSPARENT*/ VCENTER COLOR Rgb( 128, 128, 128 )

      @ 5, 10 SAY oSay6 PROMPT "Esto es un Folder Pestaña 2" OF oFld12:aDialogs[ 2 ] ;
         SIZE 250, 32 PIXEL ;
         FONT oFont /*TRANSPARENT*/ VCENTER COLOR Rgb( 128, 128, 128 )

   ACTIVATE WINDOW oWindow  VALID ( .T. )

   RELEASE FONT oFont

Return nil
 

[Marc Vanzegbroeck]

Thank you Navarro,

My question was indeed to place either the text rotated like in your example or below each other like in the example of Uwe.
The only problem I had in the rotated text was that my text was always horizontal because I did'n define a font.
I thought maybe that I have to define a rotated text.
But now with oly defining a font, like your example, it is rotated

Now I'm wondering what is the best of the two

or

[cnavarro]

My opinion: let the control paint the text