FiveTech Software tech support forums

Question : what is the Difference "oTabs OF oMain" vs. "oMain:oClient = oTabs" :?: @ r,c TABS oTabs OF oWnd <otherClause> oTabs is created as one of the controls inside oWnd. oWnd is the Parent of oTabs. oTabs is one ...

hi Antonio, Please try it this way: C5_OpenThemeData( oTabs:hWnd, "SysTabControl32" ) thx for Answer as i can say "Name" for Theme come from TMSCHEMA.H "Button" "Rebar" "Toolbar" "Status" "Menu" ...

hi Antonio,

thx for Sample

Question : what is the Difference "oTabs OF oMain" vs. "oMain:oClient = oTabs"

Jimmy,

Please try it this way:

C5_OpenThemeData( oTabs:hWnd, "SysTabControl32" )

... some (small) Problem with TFolder() when i assign {} as 3rd Parameter (aPrompts) of TFolder() and use AddItem() than Control will not appear :?   oTabs := TFolder():New( 0, 0,{} , , oMain, 1, , , .t.,;                          .f., oMain:nRight - oMain:nLeft, oMain:nBottom ...

... a white Area so i guess "something" have add but how to "use Body" as Parent to put a Control on it :?: --- i try to use oTabs as Parent but got Error Called from: ../../../tobject.prg => TTABCONTROL:ADIALOGS( 0 ) Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW_GOTFOCUS( ...

Antonio Linares wrote:Dear Silvio,

Do you use static oPaziente ?

CLASS TPaziente
DATA oWinClients
DATA oBar
DATA oPaziente
DATA oLbx
DATA cTitulo
DATA oTabs
DATA oIcon
DATA oCbx

... //CLASS TPaziente   DATA oWin   DATA oBar   DATA oPaziente   DATA oLbx   DATA cTitulo   DATA oTabs   DATA oIcon   // ----------------------------------------------------//   METHOD New() CONSTRUCTOR   METHOD Activar()   METHOD ...

... defined in the panel with a for / next ? just to show what I'm trying to do ( testing ) Tab 1 and panel is painted on init @ 100, 0 TABS oTabs PROMPTS "&One", "&Two" OF oDlg PIXEL ; BITMAPS "..\bitmaps\16x16\people.bmp", "..\bitmaps\open2.bmp",; ...

Otto wrote:Hello Tim
do you know if you can draw the TABs instead of diagonally also vertically.
Thank you in advance
Otto

Please try setting oTabs:nOrientation to 1,2,3,4 for top, bottom, left, right.
Text will be automatically rotated based on orientation.

Hello Antonio, Thanks for the reply and new libs. The oImg:bLButtonDown and the oTabs:nTab works perfect. Only the oImg:nWidth gives the width (and height) of the control, not the width of the real picture. I want to know the real sizes of the image. When i make ...

Rene,

> Is there a function that I can check which tab is active/shown

oTabs:nTab

> is there a way to make the image clickable

oImage:bLButtonUp = { | nRow, nCol | ImageClick() }

> How can I find the sizes of the image?

oImage:nWidth and oImage:nHeight

Prueba a modificar:

oTabs:aSizes[ nTab ] := nNuevoAncho
...
oTabs:Refresh()

tendrás que hacerlo para cada una de los tabs

... y := 1 TO nLinks IF ::aLinks[y,4] == x oPanel[x]:AddLink( ::aLinks[y,1], ::aLinks[y,2], ::aLinks[y,3] ) ENDIF NEXT NEXT probe con el ON RESIZE ( oTabs:nLeft := ::oBrw:nLeft ) y no me dibuja la explorer hasta abajo, sigue dejando el eapcio pintado en gris. Gracias Saludos

Luiz, Maybe rebuild the Bitmap-array ? aImage := { NIL, c_Path1 + "Paint.Bmp", c_Path1 + "Paint.Bmp" } REDEFINE TABS ID 100 oTabs OF oDlg ; PROMPTS "One", "Two", "Three" UPDATE oTabs:acBitmaps := aImage You can delete the bitmaps like : FOR n := ...