FiveTech Software tech support forums

RAMESHBABU wrote:Hi Cristobal,

Your TDocpanel Class seem to be very interesting and will add a great value
to our FiveWin Library.

I wish that you will be able to publish it in forth coming 19.04 Version.

-Ramesh Babu

Code: Select all  Expand view

Function DockEdit( oWindow, n, m )

   oDock  := TDockPnel():New( oWindow )
   WITH OBJECT oDock
      :SetHeightCaption( 40 )
      :SetCoors( { | o | XEval( o:oWnd:aControls[ n ]:nBottom + 10, o ) }, ;
                 { | o | XEval( o:oWnd:aControls[ n ]:nLeft, o ) }, ;
                 { | o | XEval( o:oWnd:aControls[ m ]:nBottom, o ) }, ;
                 { | o | Int( o:oWnd:nWidth / 3 ) + XEval( o:nLeft, o ) - 38 } )
      :SetCaption( { | o | "Title DockPanel + SourcEdit" } )
      :SetBorderSize( 1 )
      :SetColors( CLR_WHITE, METRO_STEEL, METRO_TEAL, CLR_BLUE )
      :nClrPaneT   := CLR_WHITE
      :SetFont( oFont4 )
      :SetImgsFiles( { { "..\bitmaps\16x16\max.bmp", , } } )
      :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB, cT | cT := MemoRead( "\fwh\samples\alert.prg" ), ;
                        oB := SourceEdit( cT, , Rgb( 255, 255, 234 ), ;
                        nT, nL, nH, nW, , , ;
                        , .F., o, .F., , 519, , -10, .F., , .T., .F., ;
                        , nil, "FixedSys" ) } )
      :Activate()
   END
Return oDock

 

cnavarro wrote:Look

Code: Select all  Expand view

#include "fivewin.ch"
#include "constant.ch"


Function test()
Local oDlg,oPanel
Local aItems

ctesto1:="Quest'area è una 'bacheca virtuale' dove appuntare ed avere sempre visibili le informazioni più comuni ed utili, quali le coordinate bancarie dell'azienda, i numeri telefonici dei dipendenti, i numeri telefonici dei fornitori per le emergenze, link internet interessanti, etc."
ctesto2:="10/07/2017 - Effettuare controllo periodico merce.. dal cliente Amici a 4 zampe.  (fatto?)" +CRLF+;
         "12/07/2017 - Effettuare controllo periodico merce.. dal cliente Autoscuola Predosa  (fatto?)   " +CRLF+;
         "04/08/2017 - Effettuare controllo periodico merce.. dal cliente Studio Legale Sesia.  (fatto?) " +CRLF+;
         "04/10/2017 - Effettuare controllo periodico merce.. dal cliente Ocean Blu Bar.  (fatto?)   " +CRLF+;
         "28/10/2017 - Il cliente Viaggiare.com deve rendere 3 pz di prodotto non conforme.  (fatto?) " +CRLF+;
         "13/12/2017 - Appuntamento c/o cliente Viaggiare.com per preventivo nuova apertura sede.  (fatto?)  " +CRLF+;
         "31/03/2018 - Verifica trimestrale magazzino  (fatto?) " +CRLF+;
         "30/04/2018 - Effettuare intervento di manutenzione posizionamento fori passacavi dal cliente:Boccieri Maria Cristina.  (fatto?)" +CRLF+;
         "09/05/2018 - Eseguire lavoro di inserimento fori passacavi al cliente...Ceramiche Italiane  (fatto?) " +CRLF+;
         "30/06/2018 - Verifica trimestrale magazzino  (fatto?)   " +CRLF+;
         "02/08/2018 - Effettuare controllo periodico merce.. dal cliente L'Arte di abitare  (fatto?)  " +CRLF+;
         "04/08/2018 - Effettuare controllo periodico merce.. dal cliente Arcò Studio Associato  (fatto?)  " +CRLF+;
         "30/09/2018 - Verifica trimestrale magazzino  (fatto?) " +CRLF+;
         "31/12/2018 - Inventario magazzino  (fatto?)"


aItems:={;
{'1.bmp',ctesto1,.t.},;
{'2.bmp',ctesto2,.t.},;
{'3.bmp','testo tre',.t.},;
{'4.bmp','testo quattro',.t.}}

DEFINE DIALOG oDlg SIZE 600,620 PIXEL

 oDlg:nStyle    = nOR( WS_CHILD, WS_BORDER, WS_VISIBLE,WS_POPUP )


ACTIVATE DIALOG oDlg  CENTERED       ;
ON INIT ( oPanel := CreaPanel( oDlg ,aItems),oPanel:checkresize() )
Return  NIL
//----------------------------------------------------------------------//
Function CreaPanel(oWnd,aItems)
Local oPanel
Local aBtn:= array(len(aItems))
Local nRow:=1
Local nCol :=1
Local nNumero:= 1
Local n
Local cCursor:= TCursor():New(,'HAND')

oPanel:= TScrollPanel():New(1,1,oWnd:nbottom-10,oWnd:nWidth-10,oWnd, .t.)

For n= 1 to Len(aItems)
   @ nRow,nCol BTNBMP aBtn[n]  ;
         OF oPanel SIZE oPanel:nWidth-20,120   ;
         PROMPT  space(50) + aItems[n][2] RIGHT ;
         NOBORDER    ;
         FLAT
         @ 1,2  BTNBMP FILENAME aItems[n][1] of  aBtn[n] SIZE 100,100   NOBORDER  FLAT
         aBtn[n]:ocursor := cCursor

 nNumero++
     nRow+=120+5
     nCol:=1
     nNumero=0

Next n

 oPanel:SetRange()
   Return oPanel
//----------------------------------------------------------------------//