Like sheet excel

[Silvio.Falconi]

where is this sample ?

[nageswaragunupudi]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oBrw, oFont
   local aData

   aData    := Array( 50 )
   AEval( aData, { |u,i| aData[ i ] := Array( 20 ) } )

   DEFINE FONT oFont NAME "CALIBRI" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 860,400 PIXEL TRUEPIXEL ;
      FONT oFont ;
      TITLE FWVERSION + " : Excel Sheet"

   @ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE aData AUTOCOLS ;
      CELL LINES NOBORDER FASTEDIT STYLE 2015

   WITH OBJECT oBrw
      :nEditTypes       := EDIT_GET
      :nColDividerStyle := ;
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :nMarqueeStyle    := MARQSTYLE_SOLIDCELL
      //
      :bRecSelData      := { |brw| brw:KeyNo }
      :nRecSelWidth     := "99"
      :SetRecSelBmp( 0 )
      :nRecSelHeadBmpNo := { 20, 16, { { "L", CLR_HGRAY, 0, 16, 16, 15, 3, 0, 15, 15, 15 } } }
      //
      :nWidths    := 60
      :CreateFromCode()
   END

   @ 20,20 SAY 'Like Excel Sheet' ;
      SIZE oDlg:nWidth - 40, 20 PIXEL OF oDlg CENTER COLOR CLR_RED,oDlg:nClrPane

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

[Silvio.Falconi]

thanks rao
On oldest Clipper test ( Clipper 5.01 - TBrowse Spreadsheet) I found the possibility to simulate a excel table
on a folder there was the table with numbers and on the other folder there was another table with functions
if you want I can send you this test to see if you can insert this possibility

[nageswaragunupudi]

ok

[Silvio.Falconi]

I made a small test inserting the two dbfs

Table folder




Formulas folder



the cols header are wrongs

[Silvio.Falconi]

Mr Rao
do You have found time to see that I send you ( spreadsheet) ?

[Silvio.Falconi]

look in your mail pls

[nageswaragunupudi]

Mr Silvio

The above sample demonstrates how to make xbrowse to look like an excel sheet but not to work like full excel and FWH does not have any plans to produce an Excel like program.

I would be glad to help with your work, but at this time I am extremely busy with some FWH maintenance work and unable to take out any time for this work. Please bear with me for a few more days and hope you understand.

[Silvio.Falconi]

thanks Mr Nages.

I Know it cannot work as excel sheet ....

because it use a function called Calculus() calc all formulas there are on second aray but this function make only (/+-*). and only from A to F

Many year ago there was a Class ( at that time it did not exist xbrowse but only wbrowse) called FileXls but was not the class filexls you can downlooad from Linares 's Archive

that class I mean created excel like paper with function and operations but that procedure was several dollars to purchase

perhaps someone have that procedure ...