FiveTech Software tech support forums

Antonio Linares wrote:Cristobal,

Pero no podriamos activar el modo columna y que solo tenga que usarse las flechas ?

me suena haber visto algo de este modo en la documentación de Scintilla

Code: Select all  Expand view

METHOD nModColumn() CLASS TEdtScint
Local nSw := ::SendEditor( SCI_GETMOUSESELECTIONRECTANGULARSWITCH, 0, 0 )
if Empty( nSw )
   ::SendEditor( SCI_SETMOUSESELECTIONRECTANGULARSWITCH, 1 , 0 )
   ::SendEditor( SCI_SETSELECTIONMODE, SC_SEL_RECTANGLE , 0 )
else
   ::SendEditor( SCI_SETMOUSESELECTIONRECTANGULARSWITCH, 0 , 0 )
   ::SendEditor( SCI_SETSELECTIONMODE, SC_SEL_STREAM , 0 )
endif
Return nil
 

Marc Vanzegbroeck wrote:Antonio,

This is what I get in MultiEdit if I press ALT-C, and then moving to the opposite corner with the arrow-keys
The blue background is the selected area, this I can copy, or delete...

Rick Lipkin wrote:Antonio

Just a quick thought .. I do not see a reason to show the entire path of the file you have open .. just the file (.prg ) name should be enough. That would shorten the tab size and be easier to read if you have several files open.

Thanks
Rick Lipkin

ps .. ctrl-y to delete a line would be also nice

Antonio Linares wrote:Cristobal,

What about Colin's smart indenting request ?

Have you reviewed it already ? many thanks

Code: Select all  Expand view

METHOD AutoIndent() CLASS TScintilla

   local nCurLine     := ::GetCurrentLineNumber()
   local nIndentation := ::GetLineIndentation( nCurLine )
   local nPos         := ::GetCurrentPos()

   ::PostMsg( SCI_SETLINEINDENTATION, nCurLine + 1, nIndentation )
   ::PostMsg( SCI_GOTOPOS, nPos + nIndentation )

return nil

Code: Select all  Expand view

  ::oEditor:bKeyDown = { | nKey | If( nKey == VK_RETURN .or. ;
                                       nKey == VK_UP .or. nKey == VK_DOWN,;
                                       ::FillFuncList(),),;
                                   If( nKey == VK_RETURN,;
                                       ::oEditor:AutoIndent(),) }

Code: Select all  Expand view

METHOD AutoIndent() CLASS TEdtScint
Local nCurLine     := ::GetCurrentLine()
Local nIndentation := ::SendEditor( SCI_GETLINEINDENTATION, nCurLine-1 , 0 )
   if ::GetLineCount() > nCurLine
      ::GoToLine( nCurLine+1 )
   endif
   ::SendEditor( SCI_SETLINEINDENTATION, nCurLine, nIndentation )
   ::GotoPos( ::GetCurrentPos() + nIndentation )
return nil

 

Code: Select all  Expand view

      case nCode == SCN_CHARADDED           // 2001
           cLine     := ::GetLine( nLine - 1 )
           Do Case
              Case cChar = 13            
                     .../...
                     ::AutoIndent( cLine )

 

Code: Select all  Expand view

METHOD AutoIndent( cLine ) CLASS TEdtScint
Local nCurLine     := ::GetCurrentLine()
Local nIndentation := ::SendEditor( SCI_GETLINEINDENTATION, nCurLine-1 , 0 )
Local x
Local nPos         := 0
Local nInd         := ::SendEditor( SCI_GETINDENT, 0, 0 )
Local aCad1        := {"for ", "while ", "if ", "with ", "case " }
Local aCad2        := {"next ", "enddo ", "endif ", "end ", "endcase ", ;
                       "endwhile ", "endwith ", "else ", "otherwise " }//loop switch "
Local nPosInd      := ::SendEditor( SCI_GETLINEINDENTPOSITION, nCurLine, )
DEFAULT cLine      := ""     //::GetLine( nCurLine - 1 )  // OJO con el nCurLine - 1
   For x = 1 to Len( aCad1 )
       nPos := At( aCad1[ x ], Lower( cLine ) )
       if !Empty( nPos )
          x := Len( aCad1 ) + 1
       endif
   Next x
   if Empty( nPos )
      For x = 1 to Len( aCad2 )
          nPos := At( aCad2[ x ], Lower( cLine ) )
          if !Empty( nPos )
             x := Len( aCad2 ) + 1
          endif
      Next x
      if !Empty( nPos )
         nIndentation  := nIndentation - nInd
      endif
   else
      nIndentation  := nIndentation + nInd
   endif
   
   if ::GetLineCount() > nCurLine
      ::GoLine( nCurLine+1 )
   endif
   
   ::SendEditor( SCI_SETLINEINDENTATION, nCurLine, nIndentation )
   //::GotoPos( ::GetCurrentPos() + nIndentation )
   ::GotoPos( nPosInd + nIndentation )
return nil
 

Antonio Linares wrote:Rick,

Both requests implemented

Mark,

Alt-C is working now

Colin,

We are working to properly implement Method AutoIndent(), thanks

new version:
https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

• Bookmark lines by pressing CTRL+SHIFT+1(or 2,3,...,9,0 ) and go to the bookmark via CTRL+1 ( or 2,3,...,9,0 )
• Create/edit code templates with parameters and system info.
• Block tabulation, select x Lines, each line advance the to the next seted tabulation multiple ( I use 3 spaces ) with TAB or to the previous with SHIFT+TAB

Code: Select all  Expand view

   //-- Browse created \%D \%T by \%W
   \%1 := TXBrowse():New( \%3 )  
   \%1:CreateFromResource( \%2 )  
 
   //-- Definir matriz de itens  
   \%1:SetArray( \%4,.T. )  
 
   //-- Definir estilo  
   xBrowseStyle(\%1)  
 
   \%1:lHScroll := .F.  
 
   \%1:nDataType := DATATYPE_ARRAY //2 se não estiver com o xBrowse.CH  
 
   //-- Definir cabeçalhos  
   \%1:aCols[1]:cHeader := ""
   \< 
 
   //-- Definir tamanho das colunas  
   \%1:aCols[1]:nWidth := 0  
 
   //-- Definir alinhamento dos itens  
   \%1:aCols[1]:nDataStrAlign := AL_LEFT  
 

Code: Select all  Expand view

METHOD SysCommand( nType, nLoWord, nHiWord ) CLASS TScintilla

   local oWnd

   do case
      case nType == SC_KEYMENU
           do case
              case nLoWord == Asc( "i" )
                   oWnd = WndMain()
                   if oWnd:oMsgBar != nil .and. ;
                      oWnd:oMsgBar:oKeyIns != nil
                      oWnd:oMsgBar:oKeyIns:lActive = ;
                         ( ::Send( SCI_GETOVERTYPE ) == 1 )
                      oWnd:oMsgBar:oKeyIns:bMsg = nil
                      oWnd:oMsgBar:Refresh()
                   endif    
                   ::Send( SCI_EDITTOGGLEOVERTYPE )

              case nLoWord == Asc( "l" )
                   if ::GetSelectionEnd() - ::GetSelectionStart() > 0
                      ::SetSel( ::nCurrentPos, ::nCurrentPos )
                   else
                      ::nCurrentPos = ::GetCurrentPos()  
                      ::SetSel( ::PositionFromLine( ::nLine() - 1 ),;
                                ::PositionFromLine( ::nLine() + 1 ) - 1 )
                   endif            
                   
              case nLoWord == Asc( "c" )
                   if Empty( ::Send( SCI_GETMOUSESELECTIONRECTANGULARSWITCH ) )
                      ::Send( SCI_SETMOUSESELECTIONRECTANGULARSWITCH, 1, 0 )
                      ::Send( SCI_SETSELECTIONMODE, SC_SEL_RECTANGLE, 0 )
                   else
                      ::Send( SCI_SETMOUSESELECTIONRECTANGULARSWITCH )
                      ::Send( SCI_SETSELECTIONMODE, SC_SEL_STREAM, 0 )
                   endif
                   
              otherwise
                   // MsgInfo( nLoWord )    
           endcase        
   endcase        

return nil
 

Code: Select all  Expand view

     case nCode == SCN_CHARADDED           // 2001
           cLine     := ::GetLine( nLine - 1 )
           Do Case
              Case cChar = 13            
                     .../...
                     ::AutoIndent( cLine )