FiveTech Software tech support forums

... oPanel1:nTitleHeight +10, 10,; oPanel1:nBottom-30,oPanel1:nWidth-40, oPanel1 ) oItem1:SetBrush( oBrushshadow ) //panel for the text oItem2:=Tpanel():New( 2, 2,; oItem1:nBottom-45,oItem1:nWidth-4, oItem1) oItem2:SetBrush( oBrushtext ) //the text @ 5,o10 SAY oMemo VAR cMessageMemo ...

... {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBrw,oMisura,lTipo1,lTipo2 ) } )} Function BtnPopMenu(oBrw,oDbf,lTipo1,lTipo2) local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 PROMPT "First" ACTION (oItem1:SetCheck( ltipo1 := ! ltipo1 ),; Maketree(oDbf,oBrw)) CHECKED SEPARATOR ...

... check ( from the same) static ltipo1:=.f. static ltipo2:=.f. then from a btnbmp open a menu popup with 2 option Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ...

... check ( from the same) static ltipo1:=.f. static ltipo2:=.f. then from a btnbmp open a menu popup with 2 option Function BtnPop() local oItem1,oItem2 MENU oMenu POPUP MENUITEM oItem1 "First" ACTION oItem:SetCheck( ltipo1 := ! ltipo1 ) CHECKED SEPARATOR MENUITEM oItem2 "Second" ...

... you can see here oGet:bChange := {|nKey|(Chr(nKey)$"0123456789.")} oGet:bKeyDown := { | nKey |(oGet:assign(), ActiveNavigator(cVar,oBrw,oItem2:lChecked)) } https://i.postimg.cc/Dyr6MKKx/jjjjj.png

goosfancito wrote:Can i to move a item group at another item group using xbrowse and tree?

Assume you want to move oItem1 (it may be a group or not) next to another item oItem2.
Then

Code: Select all  Expand view

oItem1:Delete()
oItem2:Add( oItem1 )
 

... eso: oItem1 = oTree:Add( "First" ) oItem1:Add( "One" ) oItem1:Add( "Two" ) oItem1:Add( "Three" ) oItem2 = oTree:Add( "Second" ) oItem2:Add( "Hello" ) oItem2:Add( "World" ) oItem3 = oTree:Add( "Third" ) oItem3:Add( ...

... oFnt Return NIL //----------------------------------------------------------------------------// Function AddItems( oImageList ) local oItem1, oItem2, oItem3, oItem4, oItem5, oItem6 local oItem11, oItem12, oItem13, oItem14, oItem15, oItem16 local oItem21, oItem22, oItem23 local oItem31, oItem32 ...

... oWnd ... oMsgBar:lLeft = .T. // we want items to start from left to right DEFINE MSGITEM oItem1 OF oMsgBar // it goes to the left DEFINE MSGITEM oItem2 OF oMsgBar oItem2:lRight = .T. // it goes to the right * BtnBmp: - Reported bugs on painting fixed. - JPG also are read through GDI - Fix: When ...

... oWnd ... oMsgBar:lLeft = .T. // we want items to start from left to right DEFINE MSGITEM oItem1 OF oMsgBar // it goes to the left DEFINE MSGITEM oItem2 OF oMsgBar oItem2:lRight = .T. // it goes to the right * BtnBmp: - Reported bugs on painting fixed. - JPG also are read through GDI - Fix: When ...

... oWnd ... oMsgBar:lLeft = .T. // we want items to start from left to right DEFINE MSGITEM oItem1 OF oMsgBar // it goes to the left DEFINE MSGITEM oItem2 OF oMsgBar oItem2:lRight = .T. // it goes to the right * BtnBmp: - Reported bugs on painting fixed. - JPG also are read through GDI - Fix: When ...

... ENDIF before of ::aItems[n]:aItems[n2]:rcItem := { nTop, nLeft, nBottom, nRight } THIS RUN ONLY FOR : oWnd:nColumns := 2 oWnd:nType := 1 oItem2:= oWnd:AddItem( "Movimenti", "BIGIMAGE" ) oItem3:= oItem2:AddItem( "Ci sono "+ltrim(str(NumMovimenti))+" movimenti. ...

... nTop, (nLeft+40)-::oWnd:nWLeftImage+10 ) ELSE DrawMasked( hDC, ::hBmp, nTop, nLeft-::oWnd:nWLeftImage+10 ) endif endif endif on test try with oItem2:= oWnd:AddItem( "Movimenti", "IMAGE_BIG" ) oItem3:= oItem2:AddItem( "Ci sono "+ltrim(str(NumMovimenti))+" ...

... MENUITEM oItem[69] PROMPT "Ne&grita" ACTION Set_FontWin(2,oItem[68],oItem[69]) ENDMENU STAT FUNC Set_FontWin(n,oItem1,oItem2) LOCAL cIni:=GetWinDir()+"\"+cNSys+".Ini", hFont, lFWnd hFont:=IF(n=1,"Normal","Bold") WritePProstring(cNSys,"hFont",hFont,cIni) ...

... oImageList ) oItem1 = oTree:Add( "Ayuda de Menú Inicial" ) aFiles[1] := 'INICIAL.WLT' aItems[1] := "Ayuda de Menú Inicial" oItem2 := oItem1:Add( "Pacientes", 0 ) aFiles[2] := 'PACIENTE.WLT' aItems[2] := "Pacientes" oItem2:Add( "Búsqueda y creación", ...