FiveTech Support Forums

              
@   7, 70 GET oSelf:aDatax["101"] VAR oSelf:aDatosCliente["cCliente"] ;
                        OF oPanel  ;
                        SIZE 260, 20 PIXEL ;
                        PICTURE "@!K" ;       //
                        UPDATE
|

   @ 50,20 GET oGet VAR cVar PICTURE "@K" SIZE 150,24 PIXEL OF oDlg
   oGet:bGotFocus := { || oGet:oGet:Pos := 1, oGet:SetPos( 1 ) }

PICTURE "@K!"

Ó

PICTURE "@K !"

#include "fivewin.ch"

function Main()

   local oDlg, oGet
   local nVar := 100
   local cVar := "AAAAAAAAA"

   SetGetColorFocus()

   DEFINE DIALOG oDlg SIZE 400,150 PIXEL TRUEPIXEL TITLE FWVERSION

   @ 20,20 GET nVar PICTURE "9999" SIZE 100,24 PIXEL OF oDlg
   @ 60,20 GET oGet VAR cVar PICTURE "@!K"  SIZE 200,24 PIXEL OF oDlg
   oGet:bGotFocus := { || oGet:oGet:Pos := 1, oGet:SetPos( 1 ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

// ::hLays["BCLIENTE"] -> hash() 

              oPanel:= TPanel():New( 0, 0, 35, ScreenWidth(), oSelf:hLays["BCLIENTE"]:aVLayout[1] )
              oPanel:SetColor( nRGB(000,000,000),nRGB(255,255,255) )

              @   9, 20 SAY oSelf:aDatax["100"] PROMPT "Cliente:" OF oPanel  SIZE 45, 20 PIXEL UPDATE TRANSPARENT
              @   7, 70 GET oSelf:aDatax["101"] VAR oSelf:aDatosCliente["cCliente"] ;
                        OF oPanel  ;
                        SIZE 260, 20 PIXEL ;
                        PICTURE "@K !" ;       //
                        VALID IF(oSelf:CambiarCliente(,.t.),(::oBrw:SetFocus(),.t.),.f.)  ;
                        UPDATE
                  ::aDatax["101"]:bGotFocus := { || oself:aDatax["101"]:oGet:Pos := 1, oSelf:aDatax["101"]:SetPos( 1 ) }

#include "FiveWin.ch"
#include "ribbon.ch"
#include "xbrowse.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
   local uVar, oBrw
   local nValor := 0.00
   local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }

   local cCode := "Digite algo           " // Space(50)
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
      
   // oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 200 )
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 300 )

   @ 40,10 say "This a say" of oPanel2 transparent pixel
   @ 60,10 radio uVar prompt "This a radio" of oPanel2 pixel size 100, 25
   @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
   @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent 
   @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
   @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel2  pixel size 180, 150


   @ 210,10 say "digite algo: " of oPanel2 transparent pixel

   @ 230, 10 GET cCode OF oPanel2 SIZE 200, 42 PIXEL PICTURE "@K!" ;
      COLORS CLR_BLACK, CLR_WHITE // NOBORDER


   oBrw:CreateFromCode()

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//