FiveTech Software tech support forums

Code: Select all

 ::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 ) 

 

Code: Select all

  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()    
            
 

Code: Select all

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

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

 

Code: Select all

   ::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()