FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour explorerBar y MDI
Francisco Horta
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: explorerBar y MDI
Posted:

cesar,
y donde le puedo cambiar el ancho a la explorerbar?
saludos
paco

____________________

Paco
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
explorerBar y MDI
Posted: Fri May 06, 2011 09:26 PM
TExplorerBa y ventana MDI no funciona,


Uploaded with ImageShack.us

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" MDI
   
   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, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: explorerBar y MDI
Posted: Fri May 20, 2011 09:02 PM
Hola

el punto es que los mensajes no llegan al objeto oWnd, sino al frame que se crea por el entorno MDI, entonces colgemos del alli la explorer y controlamos manualmente le tamaño con el resize

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

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

function Main()

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

   oExBar = TExplorerBar():New( , , , , oWnd:oWndClient)

   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, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )


   oWnd:bResized = { | nType, nWidth, nHeight | if( nWidth != NIL, oExBar:move( , , , nHeight ), ) }
  

   ACTIVATE WINDOW oWnd

return nil
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: explorerBar y MDI
Posted: Fri May 20, 2011 10:48 PM
Daniel, agradezco tu pronta respuesta,

ha mejorado un poco, pero al mover de lado la MDI CHILD, o incluso al maximinizarla, deja un efecto raro manchado sobre la texplorerbar,
saludos..


Uploaded with ImageShack.us" rel="noopener">

Uploaded with ImageShack.us
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: explorerBar y MDI
Posted: Sat May 21, 2011 12:11 AM
Hola

entonces no invadamos nosotros el espacio del MDI y dejemosle el trabajo a fivewin
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" MDI
   
   oWnd:SetSize( 350, 600 )
   
   oExBar = TExplorerBar():New( , , , , oWnd )

   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, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
  
   oWnd:oLeft = oExBar

   ACTIVATE WINDOW oWnd 

return nil
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: explorerBar y MDI
Posted: Sat May 21, 2011 09:52 AM

the best way is to use the tfsdi class of José Luis Sánchez Navarro

Best Regards, Saludos



Falconi Silvio
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: explorerBar y MDI
Posted: Sat May 21, 2011 06:44 PM

Excelente, Daniel,
ya funciona, gracias.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: explorerBar y MDI
Posted: Sat May 21, 2011 06:50 PM

Mr. Silvio,

my idea is to use only FWH.

GRACIAS.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: explorerBar y MDI
Posted: Mon May 23, 2011 08:12 AM

sysctrl2,

Tfsdi i a only FWH DIALOG style .nor. 4 !!!! (no border)
you can insert explorerbar a t left and grid at right and it run ok good

Best Regards, Saludos



Falconi Silvio

Continue the discussion

Static archive · New replies & topics via GitHub Discussions