Spreadsheet with Xbrowse

[Silvio.Falconi]

I 'd like to re- create a small Spreadsheet with xbrowse

Many year ago on Dos I had a small SpreadSheet of Nantucket Corporation (1991 Clipper 5.01 - Release 1.29 )

I have the source code of it but the dos release used TBrowse class

the dialog had two folders

on First there is the SpreadSheet with numbers and test

on second you can see the formulas style lotus sample A3 / 3) + (A5 * 21.2) - 4 it supported operators: ( ) + - * /


but it had only six columns but I think with xbrowse we can have infinite columns






someone can help me to recreate it on xbrowse ?

[cnavarro]

Silvio
I would very interested in your project, but right now I do not have much time.
In a few days I can help

[Silvio.Falconi]

Code: Select all  Expand view

#include "fivewin.ch"
#include "xbrowse.ch"


Function Sheet()
Local odlg,oFld,oBrwCalc,oBrwFormulas
Local aGet[2]
//local aDataCalc :=array(1000,1000)
//local aDataformulas  :=array(1000,1000)



local aDataformulas := {{'', 'A', 'B', 'C', 'D' }, ;
                        { 1, '', '', '', '' }, ;
                        { 2, '', '', '', '' }, ;
                        { 3, '', '', '', '' }, ;
                        { 4, '', '', '', '' }, ;
                        { 5, '', '', '', '' }, ;
                        { 6, '', '', '', '' }  }





    local aDataCalc := {{'', 'A', 'B', 'C', 'D' }, ;
                        { 1, '', '', '', '' }, ;
                        { 2, '', '', '', '' }, ;
                        { 3, '', '', '', '' }, ;
                        { 4, '', '', '', '' }, ;
                        { 5, '', '', '', '' }, ;
                        { 6, '', '', '', '' }  }




 DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
 DEFINE DIALOG oDlg SIZE 400,440 PIXEL FONT oFont

@ 20,1 FOLDEREX oFld Prompt "Calc","Formulas" PIXEL;
       SIZE 200, 200 OF oDlg



    @ 10,10 XBROWSE oBrwCalc SIZE -10,-10 PIXEL OF oFld:adialogs[1]
     * DATASOURCE aDataCalc AUTOCOLS ;
      *CELL LINES NOBORDER


   WITH OBJECT oBrwCalc
      *:nWidths       := 60
      :setarray(aDataCalc)
      :CreateFromCode()
   END


    @ 10,10 XBROWSE oBrwFormulas SIZE -10,-10 PIXEL OF oFld:adialogs[2] ;
      DATASOURCE aDataformulas AUTOCOLS ;
      CELL LINES NOBORDER


   WITH OBJECT oBrwFormulas
      :nWidths       := 60
      :CreateFromCode()
   END




    ACTIVATE DIALOG oDlg CENTERED
    RELEASE FONT oFont

   return ni

it is too difficult because I not Know hove make the array system as excel

[Silvio.Falconi]

Another test


I made an array 10x10 to try but I think it can be infinite but I not Know how make it

I 'm making a class Tlotus ... some can help me ?

[cnavarro]

I had thought about creating an array {100, 1000}, but hide columns that are not visible or are empty (and no subsequent rows or columns with data)
Then gradually add rows or columns if needed

[Silvio.Falconi]

yes I tried 1000x1000 but the exe is too slow to open