topic-29464

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Spreadsheet with Xbrowse
Posted: Tue Oct 21, 2014 11:34 AM

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 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Spreadsheet with Xbrowse
Posted: Tue Oct 21, 2014 07:03 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Spreadsheet with Xbrowse
Posted: Wed Oct 22, 2014 11:44 AM

Code (fw): Select all Collapse

 

#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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Spreadsheet with Xbrowse
Posted: Wed Oct 22, 2014 03:30 PM

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 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Spreadsheet with Xbrowse
Posted: Wed Oct 22, 2014 06:01 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Spreadsheet with Xbrowse
Posted: Fri Oct 24, 2014 10:23 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion