Decoremos el arbol de navidad de FWH - Decorate the FWH tree

[Marcelo Roggeri]

Hola buenas tardes, Cristobal estoy probando el testmdi.prg que compartiste, donde el menu lateral se puede ocultar.
El tema es que solo me toma una rayita en la parte superior para hacer doble click.
Te adjunto la imagen para que te des cuenta.


otra cosa en la linea 168 comente esto //:nAlign := 3 porque daba error, luego lo compilo y te adjunto el error

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\FEFWH\testmdi.exe (32 bits)
   Size: 3,958,784 bytes
   Compiler version: Harbour 3.2.0dev (r1801051438)
   FiveWin  version: FWH 18.04
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 10/23/18, 17:11:00
   Error description: Error BASE/1075  Argument error: >
   Args:
     [   1] = U  
     [   2] = N   1035

Stack Calls
===========
   Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:RESIZE( 244 )
   Called from: .\source\classes\CONTROL.PRG => TPANEL:_NALIGN( 1561 )
   Called from: testmdi.prg => HAZEXPLORERBAR( 168 )
   Called from: testmdi.prg => (b)MAIN( 56 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1041 )
   Called from: testmdi.prg => MAIN( 56 )
 

Saludos y Muchas gracias
Marcelo

[cnavarro]

Marcelo, el ejemplo me funciona perfectamente y sin problemas

[Marcelo Roggeri]

Le agregue el alto de la wnd al panel 2 en la linea 170

:nHeight := oWnd:nHeight()

Code: Select all  Expand view  RUN

  WITH OBJECT ( oPnel2 := TPanel():New( 0, 0, 0, nWPanel, oExplBar ) )
      :SetColor( 0, METRO_OLIVE )
      :SetBrush( oBrush )
      //:nAlign  := 3

      :nHeight := oWnd:nHeight()  // ESTO AGREGUE YO

      WndHeight( :hWnd, :nHeight + 2 )
      :bPainted   := { | o | HazSayPnel() }
      :bLDblClick := { | o | lHide := !lHide, ;
                             oVSplitL:SetPosition( if( !lHide, nWPanel + 1, nPosVSp ) ), ;
                             Eval( oVSplitL:bChange ), ;
                             oVSplitL:Adjust(), oWndCalend:Refresh() }
   END WITH
 

y ahora si se ve.

Saludos
Marcelo

[cnavarro]

Bien, pero como te comento sin poner lo que has añadido y con el nalign a mi me funciona, tendré que ver por qué

[cnavarro]

Primera version para implementar la tecnica de BlockChain
Ejemplo desarrollado con hashs
Para entender bien el ejemplo, por favor vea este video antes.
Espero sus comentarios

First version to implement the BlockChain technique
Example developed with hashs
To understand the example well, please watch this video before.
I await your comments

https://youtu.be/_160oMzblY8



EXE sample

https://bitbucket.org/fivetech/fivewin- ... OCKFUL.EXE

Incluido en la nueva version de Fivewin 18.10

viewtopic.php?f=16&t=36338#p216789

[cnavarro]

Aunque no creo que me dé tiempo a terminarlo, aquí dejo una imagen de un proyecto que llevo desarrollando hace tiempo
Pero aprovecho para desear a todos los componentes del foro Feliz Navidad

[Marcelo Roggeri]

Hola Cristobal, buenos días que bien se ve la imagen del proyecto, gracias e igualmente el saludo a todo el foro. Bendiciones

[cnavarro]

Otro proyecto que estoy desarrollando: FASTREPORT.NET desde Fivewin

[hua]

Aunque no creo que me dé tiempo a terminarlo, aquí dejo una imagen de un proyecto que llevo desarrollando hace tiempo
Pero aprovecho para desear a todos los componentes del foro Feliz Navidad

Hi Cristobal,
Could you share the code of this? It's ok if it's not finished, I'm interested in the part that creates the UI.

Thank you very much

[johan.soteldo]

Me encanta esta parte de la navidad, puedo dejar volar mi imaginación con la intención de que mi Árbol de navidad sean el mejor de todo el vecindario, además me puedo reunir con toda mi familia en esta época del año.

[lucasdebeltran]

Cristóbal,

Por favor, ¿nos puedes informar como llevas Fastreport? Gracias.

[anserkk]

Cristóbal,

Por favor, ¿nos puedes informar como llevas Fastreport? Gracias.

I am also interested to know more about using Fastreport.net from Fivewin

[cnavarro]

Cristóbal,

Por favor, ¿nos puedes informar como llevas Fastreport? Gracias.

I am also interested to know more about using Fastreport.net from Fivewin

Dear Lucas and Anser
I had not seen much interest in this topic and I devoted my time to other topics
I am developing a class that facilitates access to FastReport.Net
At the moment the class contains:

Code: Select all  Expand view  RUN

CLASS TFwFastReport FROM TDotNet

   DATA cFileReport      INIT ""      PROTECTED
   DATA cFilePrepared    INIT ""      PROTECTED
   DATA cFileExport      INIT ""      PROTECTED
   DATA lSeparatepages   INIT .T.     PROTECTED
   DATA nQuality         INIT 0       PROTECTED
   DATA nResolution      INIT 0       PROTECTED
   DATA cFolderIn        INIT ""
   DATA cFolderOut       INIT ""
   DATA cFolderExp       INIT ""
   DATA lPreview         INIT .T.
   DATA bPreviewWnd
   DATA bPreviewExp
   DATA cExeDesigner
   DATA cExeViewer
   DATA oWnd

   METHOD New( cDll, cSpace, cVerFrame, cLib ) CONSTRUCTOR
   METHOD Designer()
   METHOD FwExecute( cMethod, cParam )         INLINE ::Execute( , , cMethod, cParam )
   METHOD FwPrepare()                          INLINE ::FwExecute( "FwhPrepare", "" )
   METHOD FwReport()                           INLINE ::FwExecute( "FwhReport", "" )
   METHOD FwSavePrepare()                      INLINE ::FwExecute( "FwhSavePrepare", "" )
   METHOD FwExport( cFile, cType )
   METHOD FwExportHtml( cFile )
   METHOD FwExportPng( cFile )
   METHOD FwExportJpg( cFile )
   METHOD FwExportBmp( cFile )
   METHOD FwExportTif( cFile )
   METHOD FwExportGif( cFile )
   METHOD FwExportEmf( cFile )

   METHOD PreviewEmf( cFile )

   METHOD SetArraytoData( aDatos )
   METHOD SetDataArray( aDatos )
   METHOD SetDesigner( cExe )
   METHOD SetFileExport( cFile, cExt )
   METHOD SetFileReport( cFile, lExec )
   METHOD SetFilePrepared( cFile, lExec )

   METHOD SetViewer( cExe )
   METHOD Show( cFile )
   METHOD Viewer()

ENDCLASS
 

Also, the main problem I have is that I have never used FastReport and I do not know exactly the scope it has to have and the priorities to which I must give importance in its development.

These are my tests that work correctly

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

Static cDll       := "d:\fwh\fwhteam\samples\FastFwh.dll"
Static cWorkSpace := "FastFwhR.Fwh"

Static oWnd
Static aTasks    := {}

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

Function Main()

   DEFINE WINDOW oWnd TITLE "FastReport NET from Fivewin: " + FWVERSION + ;
      " - ® Cristobal Navarro ( 2019 ) " + " - Right Click to Active"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RIGHT CLICK FastReportNet()


Return nil

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


Function FastReportNet()

   local cPathReports := "D:\FastReportNet\VSC2017\Demos\Reports"
   //local cFileFrx  := "D:\Fwh\FwhTeam\samples\fastreport\frh\reps\4.frx"
   //local cFilePrx  := "D:\Fwh\FwhTeam\samples\fastreport\frh\reps\4.fpx"
   local cFileFrx  := "D:\FastReportNet\VSC2017\Demos\Reports\box.frx"
   local cFileFpx  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.fpx"
   local cFileFpx1 := "D:\FastReportNet\VSC2017\Demos\Reports\box.fpx"
   local cFileExp  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.html"
   local cFilePng  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.png"
   local cFileBmp  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.bmp"
   local cFileJpg  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.jpg"
   local cFileTif  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.tif"
   local cFileGif  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.gif"
   local cFileHtml := "D:\FastReportNet\VSC2017\Demos\Reports\box2.html"
   local cFileEmf  := "D:\FastReportNet\VSC2017\Demos\Reports\box3.emf"
   local aDatos    := { "a", "b", "c", "d" }
   local oNet
   local oErr

   TRY
      oNet := TFwFastReport():New( cDll, cWorkSpace )
      WITH OBJECT oNet
         //
         //:SetDllName( cDll )
         //:SetNameSpace( cWorkSpace )
         //

         :oWnd    := oWnd

         //
         :SetDesigner( "D:\FastReportNet\FastReport.Community\Designer.exe" ) // .frx
         :SetViewer( "D:\FastReportNet\FastReport.Community\Viewer.exe" )     // .fpx
         //

         cFileFrx := "D:\FastReportNet\VSC2015_1\FastFwh\FastFwh\in\report.frx"

         :SetFileReport( cFileFrx )
         //
         if Empty( :GetNetError() )
            :SetFilePrepared() // cFileFpx )
         endif
         if Empty( :GetNetError() )
            :FwReport()
         endif
         if Empty( :GetNetError() )
            :SetDataArray( aDatos )
         endif
         if Empty( :GetNetError() )
            :FwPrepare()
         endif
         if Empty( :GetNetError() )
            :FwSavePrepare()
         endif
         //
         if Empty( :GetNetError() )

            //:Viewer()
            //:Designer()

            //:FwExport( cFilePng )
            //:FwExportPng()

            //:FwExport( cFileBmp )
            //:FwExportBmp()

            //:FwExport( cFileJpg )
            //:FwExportJpg()

            //:FwExport( cFileTif )
            //:FwExportTif()

            //:FwExport( cFileGif )
            //:FwExportGif()

            //:FwExport( cFileHtml )
            //? :SetFileExport( , "html" )
            //:FwExport( , "html" )
           
            //:FwExportHtml()

            ? :SetFileExport( , "emf" )
            :FwExport( , "emf" )

            //:FwExportEmf()

         endif
         if Empty( :GetNetError() )
            //? :GetResult()
            //? :GetReturnValue()
            //? :GetValueReturn()
            if :lPreview
               :Show()
            endif
         endif

         if !Empty( :GetNetError() )
            ? :GetNetError()
         endif

         :End()
      END
   CATCH oErr
   
   END TRY

Return nil

//----------------------------------------------------------------------------//
// Export FastReport to standard preview of FW
//----------------------------------------------------------------------------//

function PreviewEmf( cFile )

   LOCAL oPrn, oFont

   PRINTER oPrn PREVIEW

      DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-14 OF oPrn

      PAGE
      oPrn:ImportWMF( cFile )

      oPrn:CmSay(  0.4,  1, cFile )
      oPrn:CmSay(  1.0,  1, "Fichero Exportado de FastReport .NET" )
      oPrn:CmSay(  1.6,  1, "Cristobal Navarro" )
     
      ENDPAGE

   ENDPRINT

   oFont:End()

   //MsgInfo( "Work done!", "Look" )

return nil

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

[anserkk]

Dear Mr.Cristobal,

Thank you for sharing the code.

Also, the main problem I have is that I have never used FastReport and I do not know exactly the scope it has to have and the priorities to which I must give importance in its development.

The FastReport available for Harbour ( I am NOT talking about FastReport.NET ) is a one single DLL file without any external dependency which is to be distributed along with our application EXE file ie something similar to the way FreeImage.DLL works. The viewer, the designer everything is inbuilt into that FastReport DLL file.

To me, the following are the main attractions in FastReport

1. No other files required, just one single DLL along with our FiveWin application EXE file.
2. Another advantage of FastReport is that it can generate PDF files with a very small file size.
3. The preview of the report is good.

Inspecting your code, I see few references to other external EXE's for the viewer, designer etc. For eg

Code: Select all  Expand view  RUN

Static cDll       := "d:\fwh\fwhteam\samples\FastFwh.dll"
...
:SetDesigner( "D:\FastReportNet\FastReport.Community\Designer.exe" ) // .frx
:SetViewer( "D:\FastReportNet\FastReport.Community\Viewer.exe" )     // .fpx
...
 

I was of the assumption that FastReport.NET also works in the same way as FastReport for Harbour ie with one single DLL file. Of course, the .NET Framework dependency will be there but then it is not a problem because nowadays Windows OS comes with preloaded .NET Framework. Dependency on multiple EXE's and DLL's for the report engine to function is always a maintenance headache.

Fivewin application is one single EXE and that's the charm. Hope I explained it correctly

Regards
Anser

[cnavarro]

Dear Anser

The references to these external programs are one more feature that I have added to verify, at the moment, that the reports are valid, but are not necessary for the operation of FastReport.net.
Its operation is identical to the one you mention. A single DLL that is called from Fw.