scintilla sample

[Silvio.Falconi]

I compile the scieditor sample and I have this error

Code: Select all  Expand view

tack Calls
===========
   Called from: .\source\classes\window.prg => WNDCREATEERROR( 890 )
   Called from: .\source\classes\window.prg => TSCINTILLA:CREATE( 873 )
   Called from: .\source\classes\scintila.prg => TSCINTILLA:NEW( 783 )
   Called from: source\sciedit.prg => BUILDEDITOR( 141 )
   Called from: source\sciedit.prg => MAIN( 30 )
 

any solution ?

[Antonio Linares]

Dear Silvio,

You need Scintilla.dll and SciLexer.dll

From FWH\samples you may do:

buildh.bat fivedit

[Silvio.Falconi]

Dear Silvio,

You need Scintilla.dll and SciLexer.dll

From FWH\samples you may do:

buildh.bat fivedit

yes I have these dll on folder as you can see here



I no need five edit , I need a small script editor for use on my lotto application
in several industry applications you can find a script editor of the vbscript type, it is a complete environment to create and execute code using the Visual Basic .Net language. The editor has ready-made functions to help the developer in writing the sources. The developed code can be executed directly within the application. So I do not need to compile the script in EXE but only execute instructions because the functions are already inserted in the application. Up to now I have used a txt editor, then the procedure reads line by line and executes the commands without having a compilation in exe

[cnavarro]

Dear Silvio
I have answered you by email
Regards

[Silvio.Falconi]

Dear Silvio
I have answered you by email
Regards

I tried this

Code: Select all  Expand view

#include "fivewin.ch"




Function Script()
local cText:= Memoread(".\scripts\"+"TEST01.prg")

SilvioScript( cText, "Script", 9, 9, 23, 68 )

return nil


function SilvioScript( cText, cTitle, nTop, nLeft, nBottom, nRight )

   local oFont, oDlg, oMemo, oBtnOk, oBtnCancel, oBtnHelp
   local uTemp := cText
   local lOk   := .f.
   local oMsgbar
   local oBar
   local cFolder:=".\scripts\"
   local  aDbf := DIRECTORY( cFolder+"*.prg" )
   local oBtn
   local oBrw


   DEFAULT nTop := 9, nLeft := 9, nBottom := 23, nRight := 68.5,;
           cTitle := "MemoEdit"




   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

   DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
      TITLE cTitle FONT oFont RESIZABLE

   oDlg:lTruePixel   := .F.
   oDlg:lHelpIcon    := .F.



     DEFINE BUTTONBAR oBar OF oDlg SIZE 26, 27 2010 NOBORDER
     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Create a new file" TOOLTIP "New" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "new16" )

     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Open a file" TOOLTIP "Open" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "open16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Save a file" TOOLTIP "Save" NOBORDER ;
          ACTION NIL
      oBtn:hBitmap1 = FWBitmap( "save16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Execute" TOOLTIP "Execute" NOBORDER ;
          RESOURCE "C:work\fwh\bitmaps\16x16\play2.bmp";
          ACTION NIL // FN_Execute(cFile)

      oBar:bLClicked := { || nil }
      oBar:bRClicked := { || nil }

  @ 4, 0 XBROWSE oBrw OF oDlg size 100,100 ;
      DATASOURCE aDbf ;
      COLUMNS 1,2 ;
      COLSIZES 500,150 ;
      CELL LINES NOBORDER FASTEDIT

    WITH OBJECT oBrw
      // :nMarqueeStyle = 4
      :bClrRowFocus  = { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle = MARQSTYLE_HIGHLROWMS
      :nStretchCol   = 2
      :nDataLines    = 2
      :CreateFromCode()
   END



 *  @ 4, 100 GET oMemo VAR uTemp MEMO OF oDlg PIXEL SIZE 100, 100
 *  oMemo:bGotFocus = { || oMemo:SetSel( 0, 0 ) }


      oMemo := SourceEdit( cText, , Rgb( 255, 255, 234 ), 10, 10, 100, 100, , , ;
                  , .F., oDlg, .F., , 519, , -10, .F., , .T., .F., ;
                  , nil, "FixedSys" )



       oDlg:bResized  := <||
       local oRect        := oDlg:GetCliRect()
         oMemo:nTop       := oRect:nTop+30
         oMemo:SetSize(  oRect:nWidth() - 200, oRect:nHeight() - 70 )
         oBrw:SetSize(   oRect:nLeft() + 200, oRect:nHeight() - 70 )
         oBrw:nTop       := oRect:nTop+30
        return nil
        >

    ACTIVATE DIALOG oDlg center ;
       ON INIT (   SetMsgbar(oDlg,oMsgBar),  EVAL( oDlg:bResized))
   oFont:End()
return lOk

Not happen nothing not load the test I allready insert the scintilla dlls on folder ( Scintilla.dll,SciLexer.dll,SciLex64.dll)


I make a test to insert test4 on Init

Code: Select all  Expand view

ACTIVATE DIALOG oDlg center ;
       ON INIT (   SetMsgbar(oDlg,oMsgBar),;
       oMemo := Test4( oDlg, 10, 10, 100, 200,cText ),;
       EVAL( oDlg:bResized))
 

and I have this error

Code: Select all  Expand view

Error description: Error FiveWin/6  Cannot create window or control:
Class: TSCINTILLA
Caption:
System Error: Impossibile trovare la classe della finestra.


Stack Calls
===========
   Called from: .\source\classes\window.prg => WNDCREATEERROR( 890 )
   Called from: .\source\classes\window.prg => TSCINTILLA:CREATE( 873 )
   Called from: .\source\classes\scintila.prg => TSCINTILLA:NEW( 783 )
   Called from: .\source\function\memoedit.prg => SOURCEEDIT( 722 )
   Called from: silvio.prg => TEST4( 125 )

[cnavarro]

Silvio
Test this code

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()

local cText:= Memoread( "testsciedit.prg")

   SilvioScript( cText, "Script", , , ,  )

return nil

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

function SilvioScript( cText, cTitle, nTop, nLeft, nBottom, nRight )

   local oFont, oDlg, oMemo, oBtnOk, oBtnCancel, oBtnHelp
   local uTemp := cText
   local lOk   := .f.
   local oMsgbar
   local oBar
   local cFolder  :=".\"
   local  aDbf    := DIRECTORY( cFolder+"*.prg" )
   local oBtn
   local oBrw


   DEFAULT nTop := 1, nLeft := 1, nBottom := 800, nRight := 600,;
           cTitle := "Source Edit"

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

   DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
      TITLE cTitle FONT oFont PIXEL TRUEPIXEL RESIZABLE

   oDlg:lHelpIcon    := .F.

     DEFINE BUTTONBAR oBar OF oDlg SIZE 26, 27 2010 NOBORDER
     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Create a new file" TOOLTIP "New" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "new16" )

     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Open a file" TOOLTIP "Open" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "open16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Save a file" TOOLTIP "Save" NOBORDER ;
          ACTION NIL
      oBtn:hBitmap1 = FWBitmap( "save16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Execute" TOOLTIP "Execute" NOBORDER ;
          RESOURCE "C:work\fwh\bitmaps\16x16\play2.bmp";
          ACTION NIL // FN_Execute(cFile)

      oBar:bLClicked := { || nil }
      oBar:bRClicked := { || nil }



       oDlg:bResized  := <||
       local oRect        := oDlg:GetCliRect()
         oMemo:nTop       := oBar:nBottom + 5
         oMemo:SetSize(  oRect:nWidth() - 24, oRect:nHeight() / 2 )
         oBrw:SetSize(  oRect:nWidth() - 15 , oRect:nHeight() - 10 )
         oBrw:nTop       := oMemo:nBottom + 5
        return nil
        >

    ACTIVATE DIALOG oDlg center ;
       ON INIT ( oMemo := CreaEditor( oDlg, cText, oBar:nBottom + 5, 10, oDlg:nHeight / 2, oDlg:nWidth - 24 ), ;
                 oMemo:GotoLine( 1 ), ;
                 oBrw  := CreaBrowse( oDlg, aDbf ), ;
                 oBrw:SetFocus() )

//ON INIT (   SetMsgbar(oDlg,oMsgBar),  EVAL( oDlg:bResized))
   oFont:End()
return lOk

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

Function CreaEditor( oP, cText, nT, nL, nH, nW )

 SourceEdit( cText, , Rgb( 255, 255, 234 ), nT, nL, nH, nW, , , 1 , .F., oP, .F., , 519, , -10, .F., , .T., .F., ;
                  , nil, "FixedSys" )

Return SourceEditor()

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

Function CreaBrowse( oDlg, aDbf )

local oBrw

  @ ( oDlg:nHeight / 2 ) + 40, 10 XBROWSE oBrw OF oDlg SIZE -15, -10 ;
      DATASOURCE aDbf ;
      HEADERS "File", "Size" ;
      COLUMNS 1,2 ;
      COLSIZES 100, 150 ;
      CELL LINES NOBORDER FASTEDIT PIXEL

    WITH OBJECT oBrw
      // :nMarqueeStyle = 4
      :bClrRowFocus  = { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle = MARQSTYLE_HIGHLROWMS
      :nStretchCol   = 1
      :nDataLines    = 2
      :CreateFromCode()
   END

Return oBrw

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

Pd:
The SourceEdit function does not return the editor object (this is a bug)
That is why I have to use the SourceEditor() function to get the Scintilla object
To fix this, edit memoedit.prg, and in the SourceEdit function, replace the line

Code: Select all  Expand view

Return if( lDlg, if( lByRef, cSource, lChanged ), cSource )
 

by

Code: Select all  Expand view

Return if( lDlg, if( lByRef, cSource, lChanged ), oEditor )
 

[Silvio.Falconi]

Silvio
Test this code

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()

local cText:= Memoread( "testsciedit.prg")

   SilvioScript( cText, "Script", , , ,  )

return nil

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

function SilvioScript( cText, cTitle, nTop, nLeft, nBottom, nRight )

   local oFont, oDlg, oMemo, oBtnOk, oBtnCancel, oBtnHelp
   local uTemp := cText
   local lOk   := .f.
   local oMsgbar
   local oBar
   local cFolder  :=".\"
   local  aDbf    := DIRECTORY( cFolder+"*.prg" )
   local oBtn
   local oBrw


   DEFAULT nTop := 1, nLeft := 1, nBottom := 800, nRight := 600,;
           cTitle := "Source Edit"

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -8

   DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
      TITLE cTitle FONT oFont PIXEL TRUEPIXEL RESIZABLE

   oDlg:lHelpIcon    := .F.

     DEFINE BUTTONBAR oBar OF oDlg SIZE 26, 27 2010 NOBORDER
     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Create a new file" TOOLTIP "New" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "new16" )

     DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Open a file" TOOLTIP "Open" NOBORDER ;
          ACTION NIL
     oBtn:hBitmap1 = FWBitmap( "open16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Save a file" TOOLTIP "Save" NOBORDER ;
          ACTION NIL
      oBtn:hBitmap1 = FWBitmap( "save16" )

      DEFINE BUTTON oBtn OF oBar ;
          MESSAGE "Execute" TOOLTIP "Execute" NOBORDER ;
          RESOURCE "C:work\fwh\bitmaps\16x16\play2.bmp";
          ACTION NIL // FN_Execute(cFile)

      oBar:bLClicked := { || nil }
      oBar:bRClicked := { || nil }



       oDlg:bResized  := <||
       local oRect        := oDlg:GetCliRect()
         oMemo:nTop       := oBar:nBottom + 5
         oMemo:SetSize(  oRect:nWidth() - 24, oRect:nHeight() / 2 )
         oBrw:SetSize(  oRect:nWidth() - 15 , oRect:nHeight() - 10 )
         oBrw:nTop       := oMemo:nBottom + 5
        return nil
        >

    ACTIVATE DIALOG oDlg center ;
       ON INIT ( oMemo := CreaEditor( oDlg, cText, oBar:nBottom + 5, 10, oDlg:nHeight / 2, oDlg:nWidth - 24 ), ;
                 oMemo:GotoLine( 1 ), ;
                 oBrw  := CreaBrowse( oDlg, aDbf ), ;
                 oBrw:SetFocus() )

//ON INIT (   SetMsgbar(oDlg,oMsgBar),  EVAL( oDlg:bResized))
   oFont:End()
return lOk

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

Function CreaEditor( oP, cText, nT, nL, nH, nW )

 SourceEdit( cText, , Rgb( 255, 255, 234 ), nT, nL, nH, nW, , , 1 , .F., oP, .F., , 519, , -10, .F., , .T., .F., ;
                  , nil, "FixedSys" )

Return SourceEditor()

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

Function CreaBrowse( oDlg, aDbf )

local oBrw

  @ ( oDlg:nHeight / 2 ) + 40, 10 XBROWSE oBrw OF oDlg SIZE -15, -10 ;
      DATASOURCE aDbf ;
      HEADERS "File", "Size" ;
      COLUMNS 1,2 ;
      COLSIZES 100, 150 ;
      CELL LINES NOBORDER FASTEDIT PIXEL

    WITH OBJECT oBrw
      // :nMarqueeStyle = 4
      :bClrRowFocus  = { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle = MARQSTYLE_HIGHLROWMS
      :nStretchCol   = 1
      :nDataLines    = 2
      :CreateFromCode()
   END

Return oBrw

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

Pd:
The SourceEdit function does not return the editor object (this is a bug)
That is why I have to use the SourceEditor() function to get the Scintilla object
To fix this, edit memoedit.prg, and in the SourceEdit function, replace the line

Code: Select all  Expand view

Return if( lDlg, if( lByRef, cSource, lChanged ), cSource )
 

by

Code: Select all  Expand view

Return if( lDlg, if( lByRef, cSource, lChanged ), oEditor )
 

same error
I allready insert on memoedit.prg

Code: Select all  Expand view

Return if( lDlg, if( lByRef, cSource, lChanged ), oEditor )

[cnavarro]

You need Scilexer.dll updated
But, Fivewin contributions repo not run and gmail not allow send this file
Wait please

[cnavarro]

I send you with WeeTransfer, look your mail, unzip and rename to .dll

[Silvio.Falconi]

I send you with WeeTransfer, look your mail, unzip and rename to .dll

same error
I use win 10 pro

Nome dispositivo Docente-0
Processore Intel(R) Xeon(R) CPU E3-1225 V2 @ 3.20GHz 3.20 GHz
RAM installata 4,00 GB (3,88 GB utilizzabile)
ID dispositivo C3A9D1F1-5C60-4489-B374-E1B787B5A6DF
ID prodotto 00330-50000-00000-AAOEM
Tipo sistema Sistema operativo a 64 bit, processore basato su x64
Penna e tocco Nessun input penna o tocco disponibile per questo schermo

Edizione Windows 10 Pro
Versione 22H2
Data installazione: ‎28/‎04/‎2022
Build sistema operativo 19045.5131
Esperienza Windows Feature Experience Pack 1000.19060.1000.0

error.log

Code: Select all  Expand view

Application
===========
   Path and name: C:\work\errori\Interprete\silvio2.Exe (32 bits)
   Size: 4,175,360 bytes
   Compiler version: Harbour 3.2.0dev (r2403071241)
   FiveWin  version: FWH 24.04
   C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)
   Windows 10 64 Bits, version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 11/22/24, 14:23:04
   Error description: Error FiveWin/6  Cannot create window or control:
Class: TSCINTILLA
Caption:
System Error: Impossibile trovare la classe della finestra.


Stack Calls
===========
   Called from: .\source\classes\window.prg => WNDCREATEERROR( 890 )
   Called from: .\source\classes\window.prg => TSCINTILLA:CREATE( 873 )
   Called from: .\source\classes\scintila.prg => TSCINTILLA:NEW( 783 )
   Called from: memoedit.prg => SOURCEEDIT( 722 )
   Called from: silvio2.prg => CREAEDITOR( 87 )
   Called from: silvio2.prg => (b)SILVIOSCRIPT( 76 )
   Called from: .\source\classes\dialog.prg => TDIALOG:INITIATE( 938 )
   Called from: .\source\classes\dialog.prg => TDIALOG:HANDLEEVENT( 1205 )
   Called from: .\source\classes\dialog.prg => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 309 )
   Called from: silvio2.prg => SILVIOSCRIPT( 76 )
   Called from: silvio2.prg => MAIN( 8 )

System
======
   CPU type: Intel(R) Xeon(R) CPU E3-1225 V2 @ 3.20GHz 3193 Mhz
   Hardware memory: 3970 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 1
      1 ,                                                                                                    

Variables in use
================
   Procedure     Type   Value
   ==========================
   WNDCREATEERROR
     Param   1:    O    Class: ERROR
   TSCINTILLA:CREATE
     Param   1:    O    Class: TSCINTILLA
     Local   1:    C    "
Class: TSCINTILLA
Caption:
System Error: Impossibile trovare la classe della finestra.
"
   TSCINTILLA:NEW
     Param   1:    C    "Scintilla"
   SOURCEEDIT
     Param   1:    N    34
     Param   2:    N    10
     Param   3:    N    594
     Param   4:    N    420.50
     Param   5:    O    Class: TDIALOG
     Param   6:    N    8388608
     Param   7:    N    15400959
     Param   8:    N    519
     Param   9:    C    "SciLexer.DLL"
     Param  10:    B    {|| ... }
     Param  11:    L    .T.
     Param  12:    C    ".\"
     Param  13:    U    
   CREAEDITOR
     Param   1:    C    ""
     Param   2:    C    "Control Source Edit"
     Param   3:    N    15400959
     Param   4:    N    34
     Param   5:    N    10
     Param   6:    N    420.50
     Param   7:    N    594
     Param   8:    N    8388608
     Param   9:    C    "Noname.prg"
     Param  10:    N    1
     Param  11:    L    .F.
     Param  12:    O    Class: TDIALOG
     Param  13:    L    .F.
     Param  14:    U    
     Param  15:    N    519
     Param  16:    U    
     Param  17:    N    -10
     Param  18:    L    .F.
     Param  19:    U    
     Param  20:    L    .T.
     Param  21:    L    .F.
     Param  22:    B    {|| ... }
     Param  23:    U    
     Param  24:    C    "FixedSys"
     Local   1:    L    .F.
     Local   2:    U    
     Local   3:    U    
     Local   4:    L    .F.
     Local   5:    L    .F.
     Local   6:    C    ""
     Local   7:    U    
     Local   8:    L    .F.
   (b)SILVIOSCRIPT
     Param   1:    O    Class: TDIALOG
     Param   2:    C    ""
     Param   3:    N    34
     Param   4:    N    10
     Param   5:    N    420.50
     Param   6:    N    594
   TDIALOG:INITIATE
     Param   1:    O    Class: TDIALOG
   TDIALOG:HANDLEEVENT
     Param   1:    N    2426424
     Param   2:    N    1705696
     Local   1:    L    .T.
     Local   2:    U    
     Local   3:    U    
     Local   4:    L    .F.
     Local   5:    U    
     Local   6:    U    
   DIALOGBOXINDIRECT
     Param   1:    N    272
     Param   2:    N    2426424
     Param   3:    N    1705696
   TDIALOG:ACTIVATE
     Param   1:    N    11599872
     Param   2:    C    "€ Ï€    
    -
‘
   S c r i p t      R        
 e T B A R       "
     Param   3:    N    0
     Param   4:    O    Class: TDIALOG
   SILVIOSCRIPT
     Param   1:    U    
     Param   2:    U    
     Param   3:    U    
     Param   4:    L    .T.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    N    0
     Local   2:    S    @_NRESULT()
     Local   3:    O    Class: TDIALOG
   MAIN
     Param   1:    C    ""
     Param   2:    C    "Script"
     Param   3:    N    1
     Param   4:    N    1
     Param   5:    N    800
     Param   6:    N    600
     Local   1:    O    Class: TFONT
     Local   2:    O    Class: TDIALOG
     Local   3:    U    
     Local   4:    C    ""
     Local   5:    L    .F.
     Local   6:    O    Class: TBAR
     Local   7:    C    ".\"
     Local   8:    A    Len:    4
     Local   9:    O    Class: TBTNBMP
     Local  10:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TFONT
     5 TWINDOW
     6 TDIALOG
     7 TBRUSH
     8 TCONTROL
     9 TBAR
    10 TRECT
    11 TBTNBMP
    12 TSCINTILLA
    13 TREG32
    14 TSTRUCT

Memory Analysis
===============
      634 Static variables

   Dynamic memory consume:
      Actual  Value:    1114112 bytes
      Highest Value:    1114112 bytes


[cnavarro]

My computer is xeon and use win 11, but the dll is very old