Page 2 of 2
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 4:08 pm
by Silvio
Uwe.Diemer,
Do you want explain What do you want from me ?,
If you have glasses you can READ good the messages of DAniel ,
compiled the sources Daniel published on this topic and see the solution easy you want
It' is easy
I not understood when you wrote "As Usulally" ......WHAT DO YOU WANT BY ME ?
why you are feeding the TROLL ?
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 5:32 pm
by Uwe.Diemer
Excuse Perhaps u need Glasses I dont write this
CUT
I know where the rabbit runs
Lothar Matthäus
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 6:26 pm
by Silvio
Uwe.Diemer wrote:Ja so is er halt
Why Silvio are u using the computer of Mda Solution
A good "Friend" of you ?
Uwe ,
I not
need glasses , you wrote this (see the quote message ) and what do you want with this ?
Cannot I use Mdasolution Computers , you are the Master of Mda , or you are Antonio Linares ?
How Many time you send me your sources ? I not have the short memory....
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 6:34 pm
by Silvio
Armando,
How many time you send me yours sources, and How Many times you help me ?
Remember .. one of the most messages you wrote me .
On Thu Jun 18, 2009 10:01 pm
Tal vez esta es la razón del porque nadie quiere ayudarte !.
viewtopic.php?f=3&t=15914
Saludos
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 6:41 pm
by Otto
Silvio, where is the problem if you post the working sample?
I mean we all spend time and then get a ätschi bätschi I hope neener-neener is the correct translation.
Best regards,
Otto
Re: To Antonio and all Simply Test ExplorerBar two browse, tab
Posted: Fri Aug 20, 2010 6:44 pm
by Silvio
Daniel Garcia-Gil wrote:Silvio
absolutely same
this samples is with dialog now... (windows, dialogs and panels)
http://www.sitasoft.net/fivewin/samples/spli2_1.zipCode: Select all | Expand
#include "fivewin.ch"
#include "Splitter.ch"
REQUEST DBFCDX
FUNCTION Main()
LOCAL oSample
oSample = TSample():New()
RETURN NIL
//--------------------
CLASS TSample
DATA oWnd
DATA oTaskpanel
DATA oSplitV
DATA oSplitH
DATA oGrid
DATA oTab
DATA oPanelLeft
DATA oPanelTop
DATA oPanelDown
METHOD New()
METHOD BuildGrid()
METHOD BuildPanel()
METHOD BuildSplitterH()
METHOD BuildSplitterV()
METHOD Buildtab()
METHOD OnResizeWnd( nWidth, nHeight )
ENDCLASS
//--------------------
METHOD New() CLASS TSample
LOCAL oBrush
LOCAL oSelf := Self
DEFINE BRUSH oBrush COLOR CLR_CYAN
DEFINE WINDOW ::oWnd
DEFINE DIALOG ::oPanelLeft STYLE nOr( WS_CHILD ) SIZE 150, 150 OF ::oWnd
ACTIVATE DIALOG ::oPanelLeft NOWAIT
DEFINE DIALOG ::oPanelTop STYLE nOr( WS_CHILD ) SIZE 150, 150 OF ::oWnd
ACTIVATE DIALOG ::oPanelTop NOWAIT ;
ON INIT ::Move( 0, oSelf:oPanelLeft:nRight + 5, oSelf:oWnd:nHeight / 2, oSelf:oWnd:nWidth )
::oPanelDown = TPanel():New( ::oPanelTop:nHeight + 5, ;
::oPanelLeft:nRight + 5, ;
::oWnd:nHeight - ::oPanelTop:nHeight - 5, ;
::oWnd:nWidth, ::oWnd )
::BuildPanel()
::BuildGrid()
::BuildTab()
::BuildSplitterH()
::BuildSplitterV()
::oPanelDown:SetBrush( oBrush )
::oWnd:bResized = {| nType, nWidth, nHeight | ::OnResizeWnd( nWidth, nHeight ) }
ACTIVATE WINDOW ::oWnd
RETURN Self
//--------------------
METHOD BuildGrid() CLASS TSample
LOCAL i, aBrowse, oCol
USE "customer" ALIAS CU NEW SHARED
::oGrid := TXBrowse():New( ::oPanelTop )
::oGrid:nTop := 0
::oGrid:nLeft := 0
::oGrid:nBottom := ::oWnd:nHeight
::oGrid:nRight := ::oWnd:nWidth
aBrowse := { { { || CU->FIRST }, i18n("First"), 150, 0 },;
{ { || CU->LAST }, i18n("Last"), 150, 0 },;
{ { || CU->STREET}, i18n("Street"), 150, 0 },;
{ { || CU->CITY } , i18n("City"), 150, 0 } }
FOR i := 1 TO Len(aBrowse)
oCol := ::oGrid:AddCol()
oCol:bStrData := aBrowse[ i, 1 ]
oCol:cHeader := aBrowse[ i, 2 ]
oCol:nWidth := aBrowse[ i, 3 ]
oCol:nDataStrAlign := aBrowse[ i, 4 ]
oCol:nHeadStrAlign := aBrowse[ i, 4 ]
NEXT
::oGrid:SetRDD()
::oGrid:CreateFromCode()
::oPanelTop:oClient = ::oGrid
RETURN NIL
//--------------------
METHOD BuildPanel() CLASS TSample
LOCAL oPanel1
lOCAL bClick:={|| msgInfo( "clicked") }
::oTaskPanel := TExplorerBar():New( 0, 0, 150, 150, ::oPanelLeft )
oPanel1 = ::oTaskPanel:AddPanel( "One", "c:\fwh\bitmaps\32x32\people.bmp" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\additem.bmp" )
oPanel1:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )
::oPanelLeft:oClient = ::oTaskPanel
RETURN NIL
//--------------------
METHOD BuildSplitterV() CLASS TSample
@ 00, ::oTaskPanel:nWidth + 1 SPLITTER ::oSplitV ;
VERTICAL ;
COLOR CLR_YELLOW ;
PREVIOUS CONTROLS ::oPanelLeft ;
HINDS CONTROLS ::oPanelTop, ::oPanelDown, ::oSplitH;
SIZE 2, ::oWnd:nHeight PIXEL ;
LEFT MARGIN 70 ;
RIGHT MARGIN 200 ;
OF ::oWnd ;
UPDATE
RETURN NIL
//--------------------
METHOD BuildSplitterH() CLASS TSample
@ ::oPanelTop:nHeight + 1, ::oTaskPanel:nWidth + 1 SPLITTER ::oSplitH ;
HORIZONTAL ;
COLOR CLR_YELLOW ;
PREVIOUS CONTROLS ::oPanelTop ;
HINDS CONTROLS ::oPanelDown;
SIZE ::oWnd:nWidth, 2 PIXEL ;
TOP MARGIN 120 ;
BOTTOM MARGIN 120 ;
OF ::oWnd ;
UPDATE
RETURN NIL
//--------------------
METHOD Buildtab() CLASS TSample
LOCAL oSelf := Self
@ ::oGrid:nBottom + 2, 0 TABS ::oTab SIZE ::oPanelTop:nWidth, 12 PIXEL OF ::oPanelTop ;
ITEMS ' First ', ' Last ';
ACTION ( CU->( DbSetOrder( ::oTab:nOption ) ),;
CU->( DbGoTop() ) ,;
oSelf:oGrid:Refresh( .T. ) )
::oPanelTop:oBottom = ::oTab
RETURN NIL
//--------------------
METHOD OnResizeWnd( nWidth, nHeight )
IF nWidth != NIL .AND. nHeight != NIL
::oPanelLeft:SetSize( ::oPanelLeft:nWidth, nHeight )
::oSplitV:SetSize( ::oSplitV:nWidth, nHeight )
::oSplitV:nLong = nHeight
::oPanelTop:SetSize( nWidth - ::oPanelLeft:nWidth - ::oSplitV:nWidth, ::oPanelTop:nHeight )
::oSplitH:SetSize( nWidth, 2 )
::oSplitH:nLong = nWidth
::oPanelDown:SetSize( nWidth - ::oPanelLeft:nWidth - ::oSplitV:nWidth, nHeight - ::oPanelDown:nTop )
ENDIF
RETURN NIL
Ok.
I re published a Daniel Source
ok now ?
Or you want My TMIA DIALOG CLASS , MY TTABS CLASS ?
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 6:51 pm
by Silvio
SORRY OTTO, BUT
ALL THIS was and is INCREDIBLE!!!
There are two sources code one on window and one on dialog ( STYLE WS _ CHILD)
WHY I MUST RE PUBLISHED THE WORING SAMPLE IF YOU HAVE ALLREADY THE SOURCE ON THIS TOPIC allready published from daniel ??
Only on the picture I use another ttabs control ( my ttabs2007 class no fwh class ) and my TmiaDialog Class , do you want I must pubblish also these classes ?
and why ?
I NOT UNDERSTOOD WHAT YOU WROTE ....
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 6:56 pm
by Otto
Now I made a test with my system and with some helps of test of Daniel I resolved it
Thank to Daniel and James
Thank you Silvio. Your statement was not clear for me. I had the impression that
“my System” was essential for the solution too.
Best regards,
Otto
Re: To Antonio and all Simply Test ExplorerBar RESOLVED!
Posted: Fri Aug 20, 2010 7:01 pm
by Silvio
Daniel and James Allready Known the "my system" .
"My System" I use is a dialog with WS_CHILD STYLE Or NOR 4
Perhaps you understood bad...