FiveTech Support Forums

Application
===========
   Path and name: C:\dlymado.1\fivedit53\fivedit.exe (32 bits)
   Size: 6,522,368 bytes
   Compiler version: Harbour 3.2.0dev (r1603301435)
   FiveWin  version: FWH 17.04
   C compiler version: Microsoft Visual C++ 19.0.23506 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 8 secs 
   Error occurred at: 20/06/2017, 11:32:13
   Error description: Error BASE/1004  Message not found: TPANEL:NORDEN
   Args:
     [   1] = O   TPANEL

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TPANEL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TPANEL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TPANEL:NORDEN( 0 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:BUILDEDITOR( 1678 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:OPENFILE( 6791 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:OPENPROJECT( 7006 )
   Called from: .\source\classes\TFIVEDIT.PRG => (b)TFIVEDIT_MENUPROJECT( 4599 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1378 )
   Called from: .\source\classes\WINDOW.PRG => TFIVEDITWND:COMMAND( 1110 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: \FWH\FWHTEAM\SAMPLES\fivedit.prg => TFIVEDITWND:HANDLEEVENT( 3043 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3381 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TFIVEDITWND:ACTIVATE( 1066 )
   Called from: .\source\classes\TFIVEDIT.PRG => TFIVEDIT:ACTIVATE( 742 )
   Called from: \FWH\FWHTEAM\SAMPLES\fivedit.prg => MAIN( 144 )

 ::Send( SCI_SETMARGINMASKN, 2, SC_MASK_FOLDERS )
   
  ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDEROPEN, SC_MARK_CIRCLEMINUS)
  ::Send( SCI_MARKERDEFINE,SC_MARKNUM_FOLDER ,SC_MARK_CIRCLEPLUS )  
  ::Send( SCI_MARKERDEFINE,SC_MARKNUM_FOLDERSUB , SC_MARK_VLINE)  
  ::Send(SCI_MARKERDEFINE ,SC_MARKNUM_FOLDERTAIL ,SC_MARK_LCORNERCURVE )  
  ::Send(SCI_MARKERDEFINE ,SC_MARKNUM_FOLDEREND ,SC_MARK_CIRCLEPLUSCONNECTED )  
  ::Send( SCI_MARKERDEFINE,SC_MARKNUM_FOLDEROPENMID ,SC_MARK_CIRCLEMINUSCONNECTED )       
  ::Send(SCI_MARKERDEFINE ,SC_MARKNUM_FOLDERMIDTAIL ,SC_MARK_TCORNERCURVE )   
  ::Send(SCI_SETMARGINSENSITIVEN , 0 ,1 )  
  ::Send(SCI_SETMARGINSENSITIVEN , 2 ,1 )

  case nCode == SCN_MARGINCLICK
           nPos = GetPosHdr( nPtrNMHDR )
           nLine = ::Send( SCI_LINEFROMPOSITION, nPos, 0 )
           if GETMARGHDR(nPtrNMHDR) == 2
              ::Send(SCI_TOGGLEFOLD, nLine)             
           endif
           if GETMARGHDR(nPtrNMHDR) == 0
              ::SetToggle()   
            //  ::MarkerAdd( nLine, 1 )          
           endif
        //   ::MarkerAdd( nLine, 1 )    

      case nCode == SCN_DOUBLECLICK   
         
          // ::SetToggle()

static int GetMarHdr( LPARAM lParam )
{
   struct SCNotification * pMsg = ( struct SCNotification * )lParam;
       
   return ( pMsg->margin );
}

HB_FUNC( GETMARGHDR )
{
   hb_retni( GetMarHdr( hb_parnl( 1 ) ));
}

   ::SendEditor( SCI_SETLEXER , SCLEX_FLAGSHIP )
   ::SendEditor( SCI_SETSTYLEBITS, 8)   
   //? ::SendEditor( SCI_GETLEXER )

   //::Send( SCI_STYLESETBACK , STYLE_DEFAULT , CLR_GRAY )  //CLR_WHITE

   ::SendEditor( SCI_SETKEYWORDS, 0, cCad0+" "+cCad1 )

   //::SendEditor( SCI_SETKEYWORDS, 2, cCad1 )

   ::Send( SCI_STYLESETFONT, STYLE_DEFAULT, oFontEdt:cFaceName )
   ::Send( SCI_STYLESETSIZE, STYLE_DEFAULT, abs(oFontEdt:nHeight) )
    ::Send( SCI_STYLESETFORE, STYLE_DEFAULT, CLR_BLUE )
    ::Send( SCI_STYLESETBACK, STYLE_DEFAULT, CLR_WHITE ) //RGB( 240, 240, 240 ) )

   ::SendEditor( SCI_STYLECLEARALL, 0 , 0 )

   ::Send( SCI_SETMARGINWIDTHN, 0, 50 )
   ::Send( SCI_STYLESETBACK , STYLE_LINENUMBER , RGB( 118, 148, 168 ) )//RGB( 0, 128, 128 )   )  //nRgb( 051, 051, 051 )) //nRgb( 240, 240, 240 ))
   ::Send( SCI_STYLESETFORE , STYLE_LINENUMBER , CLR_WHITE            )
   ::Send( SCI_STYLESETFONT , STYLE_LINENUMBER , oFontEdt:cFaceName   )
   ::Send( SCI_STYLESETSIZE , STYLE_LINENUMBER , abs(oFontEdt:nHeight)) // - 2 )

   //::SendEditor( SCI_STYLECLEARALL, 0 , 0 )
   //::Send( SCI_SETMARGINWIDTHN, 1, 20 )

   ::SendEditor( SCI_SETMARGINTYPEN, 1, SC_MARGIN_SYMBOL )
   ::SendEditor( SCI_SETMARGINWIDTHN, 1, 30 )
   //::SendEditor( SCI_STYLESETBACK , 1 , RGB( 0, 128, 128 )   )
   //::SendEditor( SCI_SETMARGINMASKN , 1 , SC_MASK_FOLDERS )
   ::SendEditor( SCI_SETMARGINSENSITIVEN, 1, 1)

   //::SendEditor( SCI_SETFOLDMARGINCOLOUR ,
   //::Send( SCI_MARKERDEFINE, 1, SC_MARK_BOXPLUS )



   ::SendEditor( SCI_SETMARGINTYPEN, 2, SC_MASK_FOLDERS ) //SC_MARGIN_SYMBOL )
   ::SendEditor( SCI_SETMARGINWIDTHN, 2, 30 )
   ::SendEditor( SCI_SETMARGINMASKN , 2 , SC_MASK_FOLDERS )
 
  ::SendEditor( SCI_MARKERDEFINE, SC_MARKNUM_FOLDEROPEN, SC_MARK_CIRCLEMINUS)
  ::SendEditor( SCI_MARKERDEFINE,SC_MARKNUM_FOLDER ,SC_MARK_CIRCLEPLUS )
  ::SendEditor( SCI_MARKERDEFINE,SC_MARKNUM_FOLDERSUB , SC_MARK_VLINE)
  ::SendEditor( SCI_MARKERDEFINE ,SC_MARKNUM_FOLDERTAIL ,SC_MARK_LCORNERCURVE )
  ::SendEditor( SCI_MARKERDEFINE ,SC_MARKNUM_FOLDEREND ,SC_MARK_CIRCLEPLUSCONNECTED )
  ::SendEditor( SCI_MARKERDEFINE,SC_MARKNUM_FOLDEROPENMID ,SC_MARK_CIRCLEMINUSCONNECTED )
  ::SendEditor( SCI_MARKERDEFINE ,SC_MARKNUM_FOLDERMIDTAIL ,SC_MARK_TCORNERCURVE )
  ::SendEditor( SCI_SETMARGINSENSITIVEN, 2, 1)



  //::SendEditor(SCI_SETPROPERTY, "fold", "1")
  //::SendEditor(SCI_SETPROPERTY, "fold.compact", "0")

 //::Send(SCI_SETMARGINSENSITIVEN , 0 ,1 )
  //::Send(SCI_SETMARGINSENSITIVEN , 2 ,1 )




 /*
   ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDEROPEN, SC_MARK_BOXMINUS)
   ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDER, SC_MARK_BOXPLUS )
   ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDERSUB, SC_MARK_VLINE)
   ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDEREND, SC_MARK_BOXPLUSCONNECTED)
   ::Send( SCI_MARKERDEFINE, SC_MARKNUM_FOLDEROPENMID, SC_MARK_BOXMINUSCONNECTED)
 */

   ::SendEditor( SCI_SETINDENTATIONGUIDES, 1, 0)
   ::SendEditor( SCI_SETHIGHLIGHTGUIDE, 30, 0)

     ::SetAStyle( SCE_FS_COMMENTLINE, CLR_GRAY )
     ::SetAStyle( SCE_FS_OPERATOR, CLR_HRED )    //CLR_HRED
     ::SetAStyle( SCE_FS_STRING, CLR_RED )
     ::SetAStyle( SCE_FS_PREPROCESSOR, CLR_GREEN )
     ::SetAStyle( SCE_FS_NUMBER, CLR_RED )
     ::SetAStyle( SCE_FS_KEYWORD, CLR_BLUE )
     ::SetAStyle( SCE_FS_KEYWORD2, CLR_BLUE)  //CLR_HCYAN )
    ::SetAStyle( SCE_FS_IDENTIFIER , CLR_CYAN )


   //::SetFixedFont()
   ::SetSavePoint()