FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Implementando una Clase TExplorerBar propia de FWH
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 07:08 AM
Aún estamos trabajando en ella pero ya podeis ver su progreso :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 01:02 PM

Excelente!!!

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Ruben Fernandez
Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 06:25 PM

Impresionante Maestro.

saludos

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 08:49 PM

Huyyyy super genial y se le podra cambiar los colores :mrgreen:

tu siempre con grandes y gratas sorpresas :D

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
JavierVital
Posts: 105
Joined: Thu Feb 26, 2009 04:08 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 10:25 PM

muy bien Antonio.
Se podra que funcione con versiones anteriores.?

Saludos.

joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 02:29 AM

cada dia, simplemente...MEJOR..!

Dios no está muerto...



Gracias a mi Dios ante todo!
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 03:47 AM

Todos sus valores son parametrizables luego se le puede cambiar todo: colores, tipos de letras, posiciones, etc.

Y el código fuente es bastante simple por lo que debe funcionar con versiones anteriores de FWH tambien :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 04:24 AM
Mostrando los bitmaps (configurables) en los paneles y color "hover" (configurable) al estar el ratón sobre un panel:

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 06:48 AM
Mostrando los bitmaps de los items :-)



Código fuente del ejemplo (compatible con la Clase de Andres Reyes):
Code (fw): Select all Collapse
#include "FiveWin.ch"

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

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One" )
   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" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 09:08 AM
Usando un bitmap para cada panel :-)



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

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

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
      
   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" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
Ruben Fernandez
Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 12:49 PM

Espectacular Antono...

Que se pueda usar desde recursos por favor...
Gracias y saludos

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82
Raymundo Islas M.
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 02:19 PM

Antonio,

+1 para que se pueda usar desde recursos !!

Saludos

FWH 10.6 + xHarbour + Borland 582
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 03:30 PM

Que bonito se ve :D

Super genial :mrgreen:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sun Jun 06, 2010 11:48 PM

Me muero de curiosidad de saber como esta quedando :mrgreen:

saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Mon Jun 07, 2010 12:13 AM

Aida,

Ya le falta muy poquito para estar terminada :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive · New replies & topics via GitHub Discussions