To Antonio and all Simply Test ExplorerBar RESOLVED!

[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 ?

[Uwe.Diemer]

Excuse Perhaps u need Glasses I dont write this




CUT

I know where the rabbit runs

Lothar Matthäus

[Silvio]

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....

[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

[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

[Silvio]

Silvio

absolutely same

this samples is with dialog now... (windows, dialogs and panels)

http://www.sitasoft.net/fivewin/samples/spli2_1.zip

Code: Select all  Expand view

#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 ?

[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 ....

[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

[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...