PageRenderTime 73ms CodeModel.GetById 26ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/harbour-3.0.0/contrib/hbide/idefindreplace.prg

#
Unknown | 1458 lines | 1144 code | 314 blank | 0 comment | 0 complexity | cc9fb31eb4cb42ed59ff1d586ce531aa MD5 | raw file
Possible License(s): AGPL-1.0, BSD-3-Clause, CC-BY-SA-3.0, LGPL-3.0, GPL-2.0, LGPL-2.0, LGPL-2.1 
    

  1. /*
    2. 

  2.  * $Id: idefindreplace.prg 16884 2011-06-18 01:36:48Z vouchcac $
    3. 

  3.  */
    4. 

  4. 

  5. /*
    6. 

  6.  * Harbour Project source code:
    7. 

  7.  *
    8. 

  8.  * Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
    9. 

  9.  * www - http://harbour-project.org
    10. 

  10.  *
    11. 

  11.  * This program is free software; you can redistribute it and/or modify
    12. 

  12.  * it under the terms of the GNU General Public License as published by
    13. 

  13.  * the Free Software Foundation; either version 2, or (at your option)
    14. 

  14.  * any later version.
    15. 

  15.  *
    16. 

  16.  * This program is distributed in the hope that it will be useful,
    17. 

  17.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    18. 

  18.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    19. 

  19.  * GNU General Public License for more details.
    20. 

  20.  *
    21. 

  21.  * You should have received a copy of the GNU General Public License
    22. 

  22.  * along with this software; see the file COPYING.  If not, write to
    23. 

  23.  * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
    24. 

  24.  * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
    25. 

  25.  *
    26. 

  26.  * As a special exception, the Harbour Project gives permission for
    27. 

  27.  * additional uses of the text contained in its release of Harbour.
    28. 

  28.  *
    29. 

  29.  * The exception is that, if you link the Harbour libraries with other
    30. 

  30.  * files to produce an executable, this does not by itself cause the
    31. 

  31.  * resulting executable to be covered by the GNU General Public License.
    32. 

  32.  * Your use of that executable is in no way restricted on account of
    33. 

  33.  * linking the Harbour library code into it.
    34. 

  34.  *
    35. 

  35.  * This exception does not however invalidate any other reasons why
    36. 

  36.  * the executable file might be covered by the GNU General Public License.
    37. 

  37.  *
    38. 

  38.  * This exception applies only to the code released by the Harbour
    39. 

  39.  * Project under the name Harbour.  If you copy code from other
    40. 

  40.  * Harbour Project or Free Software Foundation releases into a copy of
    41. 

  41.  * Harbour, as the General Public License permits, the exception does
    42. 

  42.  * not apply to the code that you add in this way.  To avoid misleading
    43. 

  43.  * anyone as to the status of such modified files, you must delete
    44. 

  44.  * this exception notice from them.
    45. 

  45.  *
    46. 

  46.  * If you write modifications of your own for Harbour, it is your choice
    47. 

  47.  * whether to permit this exception to apply to your modifications.
    48. 

  48.  * If you do not wish that, delete this exception notice.
    49. 

  49.  *
    50. 

  50.  */
    51. 

  51. /*----------------------------------------------------------------------*/
    52. 

  52. /*----------------------------------------------------------------------*/
    53. 

  53. /*----------------------------------------------------------------------*/
    54. 

  54. /*
    55. 

  55.  *                                EkOnkar
    56. 

  56.  *                          ( The LORD is ONE )
    57. 

  57.  *
    58. 

  58.  *                            Harbour-Qt IDE
    59. 

  59.  *
    60. 

  60.  *                  Pritpal Bedi <pritpal@vouchcac.com>
    61. 

  61.  *                               28Dec2009
    62. 

  62.  */
    63. 

  63. /*----------------------------------------------------------------------*/
    64. 

  64. /*----------------------------------------------------------------------*/
    65. 

  65. /*----------------------------------------------------------------------*/
    66. 

  66. 

  67. #include "hbide.ch"
    68. 

  68. #include "common.ch"
    69. 

  69. #include "hbclass.ch"
    70. 

  70. #include "hbqtgui.ch"
    71. 

  71. 

  72. /*----------------------------------------------------------------------*/
    73. 

  73. 

  74. CLASS IdeUpDown INHERIT IdeObject
    75. 

  75. 

  76.    METHOD new( oIde )
    77. 

  77.    METHOD create( oIde )
    78. 

  78.    METHOD destroy()
    79. 

  79.    METHOD show()
    80. 

  80.    METHOD position()
    81. 

  81.    METHOD execEvent( cEvent, p )
    82. 

  82. 

  83.    ENDCLASS
    84. 

  84. 

  85. /*----------------------------------------------------------------------*/
    86. 

  86. 

  87. METHOD IdeUpDown:new( oIde )
    88. 

  88. 

  89.    ::oIde := oIde
    90. 

  90. 

  91.    RETURN Self
    92. 

  92. 

  93. /*----------------------------------------------------------------------*/
    94. 

  94. 

  95. METHOD IdeUpDown:position()
    96. 

  96.    LOCAL qRect, qHSBar, qVSBar, qEdit
    97. 

  97. 

  98.    IF !empty( qEdit := ::oEM:getEditCurrent() )
    99. 

  99.       ::oUI:setParent( qEdit )
    100. 

  100. 

  101.       qHSBar := qEdit:horizontalScrollBar()
    102. 

  102.       qVSBar := qEdit:verticalScrollBar()
    103. 

  103. 

  104.       qRect  := qEdit:geometry()
    105. 

  105. 

  106.       ::oUI:move( qRect:width()  - ::oUI:width()  - iif( qVSBar:isVisible(), qVSBar:width() , 0 ), ;
    107. 

  107.                   qRect:height() - ::oUI:height() - iif( qHSBar:isVisible(), qHSBar:height(), 0 ) )
    108. 

  108.    ENDIF
    109. 

  109. 

  110.    RETURN Self
    111. 

  111. 

  112. /*----------------------------------------------------------------------*/
    113. 

  113. 

  114. METHOD IdeUpDown:show()
    115. 

  115.    LOCAL oEdit
    116. 

  116. 

  117.    IF !empty( oEdit := ::oEM:getEditObjectCurrent() )
    118. 

  118.       oEdit:qEdit:hbGetSelectionInfo()
    119. 

  119.       IF oEdit:aSelectionInfo[ 1 ] > -1
    120. 

  120.          ::oUI:setEnabled( .t. )
    121. 

  121.       ELSE
    122. 

  122.          ::oUI:setEnabled( .f. )
    123. 

  123.       ENDIF
    124. 

  124.    ENDIF
    125. 

  125. 

  126.    RETURN Self
    127. 

  127. 

  128. /*----------------------------------------------------------------------*/
    129. 

  129. 

  130. METHOD IdeUpDown:create( oIde )
    131. 

  131. 

  132.    DEFAULT oIde TO ::oIde
    133. 

  133. 

  134.    ::oIde := oIde
    135. 

  135. 

  136.    ::oUI := hbide_getUI( "updown_v" )
    137. 

  137. 

  138.    ::oUI:setWindowFlags( hb_bitOr( Qt_Tool, Qt_FramelessWindowHint ) )
    139. 

  139.    ::oUI:setFocusPolicy( Qt_NoFocus )
    140. 

  140. 

  141.    ::oUI:q_buttonPrev:setIcon( hbide_image( "go-prev" ) )
    142. 

  142.    ::oUI:q_buttonPrev:setToolTip( "Find Previous" )
    143. 

  143.    ::oUI:q_buttonPrev:connect( "clicked()", {|| ::execEvent( "buttonPrev_clicked" ) } )
    144. 

  144.    //
    145. 

  145.    ::oUI:q_buttonNext:setIcon( hbide_image( "go-next" ) )
    146. 

  146.    ::oUI:q_buttonNext:setToolTip( "Find Next" )
    147. 

  147.    ::oUI:q_buttonNext:connect( "clicked()", {|| ::execEvent( "buttonNext_clicked" ) } )
    148. 

  148.    //
    149. 

  149.    ::oUI:q_buttonFirst:setIcon( hbide_image( "go-first" ) )
    150. 

  150.    ::oUI:q_buttonFirst:setToolTip( "Find First" )
    151. 

  151.    ::oUI:q_buttonFirst:connect( "clicked()", {|| ::execEvent( "buttonFirst_clicked" ) } )
    152. 

  152.    //
    153. 

  153.    ::oUI:q_buttonLast:setIcon( hbide_image( "go-last" ) )
    154. 

  154.    ::oUI:q_buttonLast:setToolTip( "Find Last" )
    155. 

  155.    ::oUI:q_buttonLast:connect( "clicked()", {|| ::execEvent( "buttonLast_clicked" ) } )
    156. 

  156.    //
    157. 

  157.    ::oUI:q_buttonAll:setIcon( hbide_image( "hilight-all" ) )
    158. 

  158.    ::oUI:q_buttonAll:setToolTip( "Highlight All" )
    159. 

  159.    ::oUI:q_buttonAll:connect( "clicked()", {|| ::execEvent( "buttonAll_clicked" ) } )
    160. 

  160. 

  161.    RETURN Self
    162. 

  162. 

  163. /*----------------------------------------------------------------------*/
    164. 

  164. 

  165. METHOD IdeUpDown:execEvent( cEvent, p )
    166. 

  166.    LOCAL cText, oEdit
    167. 

  167. 

  168.    HB_SYMBOL_UNUSED( p )
    169. 

  169. 

  170.    IF !empty( oEdit := ::oEM:getEditObjectCurrent() )
    171. 

  171.       cText := oEdit:getSelectedText()
    172. 

  172.    ENDIF
    173. 

  173. 

  174.    IF !empty( cText )
    175. 

  175.       SWITCH cEvent
    176. 

  176.       CASE "buttonPrev_clicked"
    177. 

  177.          oEdit:findEx( cText, QTextDocument_FindBackward, 0 )
    178. 

  178.          EXIT
    179. 

  179.       CASE "buttonNext_clicked"
    180. 

  180.          oEdit:findEx( cText, 0, 0 )
    181. 

  181.          EXIT
    182. 

  182.       CASE "buttonFirst_clicked"
    183. 

  183.          oEdit:findEx( cText, 0, 1 )
    184. 

  184.          EXIT
    185. 

  185.       CASE "buttonLast_clicked"
    186. 

  186.          oEdit:findEx( cText, QTextDocument_FindBackward, 2 )
    187. 

  187.          EXIT
    188. 

  188.       CASE "buttonAll_clicked"
    189. 

  189.          oEdit:highlightAll( cText )
    190. 

  190.          EXIT
    191. 

  191.       ENDSWITCH
    192. 

  192.    ENDIF
    193. 

  193.    RETURN Self
    194. 

  194. 

  195. /*----------------------------------------------------------------------*/
    196. 

  196. 

  197. METHOD IdeUpDown:destroy()
    198. 

  198. 

  199.    IF hb_isObject( ::oUI )
    200. 

  200.       ::oUI:destroy()
    201. 

  201.    ENDIF
    202. 

  202. 

  203.    RETURN Self
    204. 

  204. 

  205. /*----------------------------------------------------------------------*/
    206. 

  206. //
    207. 

  207. /*----------------------------------------------------------------------*/
    208. 

  208. 

  209. CLASS IdeSearchReplace INHERIT IdeObject
    210. 

  210. 

  211.    DATA   oXbp
    212. 

  212.    DATA   qFindLineEdit
    213. 

  213.    DATA   qReplLineEdit
    214. 

  214.    DATA   nCurDirection                           INIT 0
    215. 

  215.    DATA   cFind                                   INIT ""
    216. 

  216. 

  217.    METHOD new( oIde )
    218. 

  218.    METHOD create( oIde )
    219. 

  219.    METHOD destroy()
    220. 

  220.    METHOD beginFind()
    221. 

  221.    METHOD setFindString( cText )
    222. 

  222.    METHOD find( cText, lBackward )
    223. 

  223.    METHOD startFromTop()
    224. 

  224. 

  225.    ENDCLASS
    226. 

  226. 

  227. /*----------------------------------------------------------------------*/
    228. 

  228. 

  229. METHOD IdeSearchReplace:new( oIde )
    230. 

  230. 

  231.    ::oIde := oIde
    232. 

  232. 

  233.    RETURN Self
    234. 

  234. 

  235. /*----------------------------------------------------------------------*/
    236. 

  236. 

  237. METHOD IdeSearchReplace:create( oIde )
    238. 

  238. 

  239.    DEFAULT oIde TO ::oIde
    240. 

  240. 

  241.    ::oIde := oIde
    242. 

  242. 

  243.    ::oUI := hbide_getUI( "searchreplace" )
    244. 

  244. 

  245.    ::oUI:setFocusPolicy( Qt_StrongFocus )
    246. 

  246. 

  247.    ::oUI:q_frameFind:setStyleSheet( "" )
    248. 

  248.    ::oUI:q_frameReplace:setStyleSheet( "" )
    249. 

  249. 

  250.    ::oUI:q_buttonClose:setIcon( hbide_image( "closetab" ) )
    251. 

  251.    ::oUI:q_buttonClose:setToolTip( "Close" )
    252. 

  252.    ::oUI:q_buttonClose:connect( "clicked()", {|| ::oUI:hide() } )
    253. 

  253. 

  254.    ::oUI:q_buttonNext:setIcon( hbide_image( "next" ) )
    255. 

  255.    ::oUI:q_buttonNext:setToolTip( "Find Next" )
    256. 

  256.    ::oUI:q_buttonNext:connect( "clicked()", {|| ::find( ::cFind ), ::oIde:manageFocusInEditor() } )
    257. 

  257. 

  258.    ::oUI:q_buttonPrev:setIcon( hbide_image( "previous" ) )
    259. 

  259.    ::oUI:q_buttonPrev:setToolTip( "Find Previous" )
    260. 

  260.    ::oUI:q_buttonPrev:connect( "clicked()", {|| ::find( ::cFind, .t. ), ::oIde:manageFocusInEditor() } )
    261. 

  261. 

  262.    ::oUI:q_checkReplace:setChecked( .f. )
    263. 

  263.    ::oUI:q_checkReplace:connect( "stateChanged(int)", {|i| ;
    264. 

  264.                                ::oUI:q_comboReplace:setEnabled( i == 2 ), ;
    265. 

  265.                                ::oUI:q_buttonReplace:setEnabled( i == 2 ), ;
    266. 

  266.                                iif( i == 2, ::oUI:q_frameReplace:show(), ::oUI:q_frameReplace:hide() ) } )
    267. 

  267. 

  268.    ::qFindLineEdit := ::oUI:q_comboFind:lineEdit()
    269. 

  269.    ::qFindLineEdit:setFocusPolicy( Qt_StrongFocus )
    270. 

  270.    ::qFindLineEdit:setStyleSheet( "background-color: white;" )
    271. 

  271.    ::qFindLineEdit:connect( "textChanged(QString)", {|cText| ::setFindString( cText ) } )
    272. 

  272.    ::qFindLineEdit:connect( "returnPressed()"     , {|| ::find( ::cFind ) } )
    273. 

  273. 

  274.    ::qReplLineEdit := ::oUI:q_comboReplace:lineEdit()
    275. 

  275.    ::qReplLineEdit:setFocusPolicy( Qt_StrongFocus )
    276. 

  276.    ::qReplLineEdit:setStyleSheet( "background-color: white;" )
    277. 

  277. 

  278.    ::oUI:q_checkReplace:setEnabled( .f. )
    279. 

  279.    ::oUI:q_frameReplace:hide()
    280. 

  280. 

  281.    RETURN Self
    282. 

  282. 

  283. /*----------------------------------------------------------------------*/
    284. 

  284. 

  285. METHOD IdeSearchReplace:destroy()
    286. 

  286. 

  287.    IF hb_isObject( ::oUI )
    288. 

  288. 

  289.       ::qFindLineEdit:disconnect( "textChanged(QString)" )
    290. 

  290.       ::qFindLineEdit:disconnect( "returnPressed()"      )
    291. 

  291. 

  292.       ::oUI:destroy()
    293. 

  293.    ENDIF
    294. 

  294. 

  295.    RETURN Self
    296. 

  296. 

  297. /*----------------------------------------------------------------------*/
    298. 

  298. 

  299. METHOD IdeSearchReplace:find( cText, lBackward )
    300. 

  300.    LOCAL qCursor, qDoc, qCur, qReg
    301. 

  301.    LOCAL lFound := .f.
    302. 

  302.    LOCAL nFlags := 0
    303. 

  303. 

  304.    DEFAULT lBackward TO .f.
    305. 

  305. 

  306.    ::nCurDirection := iif( lBackward, QTextDocument_FindBackward, 0 )
    307. 

  307. 

  308.    IF len( cText ) > 0
    309. 

  309.       qCursor := ::qCurEdit:textCursor()
    310. 

  310. 

  311.       IF ::oUI:q_checkRegEx:isChecked()
    312. 

  312.          qDoc := ::qCurEdit:document()
    313. 

  313.          qReg := QRegExp()
    314. 

  314.          qReg:setPattern( cText )
    315. 

  315.          qReg:setCaseSensitivity( iif( ::oUI:q_checkMatchCase:isChecked(), Qt_CaseSensitive, Qt_CaseInsensitive ) )
    316. 

  316. 

  317.          nFlags += ::nCurDirection
    318. 

  318.          nFlags += iif( ::oUI:q_checkWhole:isChecked(), QTextDocument_FindWholeWords, 0 )
    319. 

  319. 

  320.          qCur := qDoc:find( qReg, qCursor, nFlags )
    321. 

  321.          lFound := ! qCur:isNull()
    322. 

  322.          IF lFound
    323. 

  323.             ::qCurEdit:setTextCursor( qCur )
    324. 

  324.          ENDIF
    325. 

  325.       ELSE
    326. 

  326.          nFlags += iif( ::oUI:q_checkMatchCase:isChecked(), QTextDocument_FindCaseSensitively, 0 )
    327. 

  327.          nFlags += iif( ::oUI:q_checkWhole:isChecked(), QTextDocument_FindWholeWords, 0 )
    328. 

  328.          nFlags += ::nCurDirection
    329. 

  329. 

  330.          lFound := ::oEM:getEditCurrent():find( cText, nFlags )
    331. 

  331.       ENDIF
    332. 

  332. 

  333.       IF ! lFound
    334. 

  334.          ::qCurEdit:setTextCursor( qCursor )
    335. 

  335.          ::oUI:q_checkReplace:setChecked( .f. )
    336. 

  336.          ::oUI:q_checkReplace:setEnabled( .f. )
    337. 

  337.       ELSE
    338. 

  338.          ::oUI:q_checkReplace:setEnabled( .t. )
    339. 

  339.          ::qCurEdit:centerCursor()
    340. 

  340.       ENDIF
    341. 

  341.    ENDIF
    342. 

  342.    RETURN lFound
    343. 

  343. 

  344. /*----------------------------------------------------------------------*/
    345. 

  345. 

  346. METHOD IdeSearchReplace:beginFind()
    347. 

  347. 

  348.    ::oUI:q_checkReplace:setChecked( .f. )
    349. 

  349.    ::oUI:q_checkReplace:setEnabled( .f. )
    350. 

  350. 

  351.    ::oUI:q_radioTop:setChecked( .t. )
    352. 

  352. 

  353.    ::oUI:show()
    354. 

  354.    ::cFind := ""
    355. 

  355. 

  356.    ::qFindLineEdit:activateWindow()
    357. 

  357.    ::qFindLineEdit:setFocus()
    358. 

  358.    ::qFindLineEdit:selectAll()
    359. 

  359. 

  360.    RETURN Self
    361. 

  361. 

  362. /*----------------------------------------------------------------------*/
    363. 

  363. 

  364. METHOD IdeSearchReplace:setFindString( cText )
    365. 

  365.    LOCAL qCursor, nPos
    366. 

  366. 

  367.    IF empty( cText )
    368. 

  368.       RETURN .f.
    369. 

  369.    ENDIF
    370. 

  370. 

  371.    qCursor := ::qCurEdit:textCursor()
    372. 

  372.    IF ::oUI:q_radioTop:isChecked()
    373. 

  373.       nPos := qCursor:position()
    374. 

  374.       qCursor:setPosition( 0 )
    375. 

  375.       ::qCurEdit:setTextCursor( qCursor )
    376. 

  376.    ENDIF
    377. 

  377. 

  378.    IF ! ::find( cText )
    379. 

  379.       IF !empty( nPos )
    380. 

  380.          qCursor:setPosition( nPos )
    381. 

  381.          ::qCurEdit:setTextCursor( qCursor )
    382. 

  382.       ENDIF
    383. 

  383.       ::cFind := ""
    384. 

  384.       ::qFindLineEdit:setStyleSheet( getStyleSheet( "PathIsWrong", ::nAnimantionMode ) )
    385. 

  385.    ELSE
    386. 

  386.       ::cFind := cText
    387. 

  387.       ::qFindLineEdit:setStyleSheet( "background-color: white;" )
    388. 

  388.    ENDIF
    389. 

  389. 

  390.    RETURN Self
    391. 

  391. 

  392. /*----------------------------------------------------------------------*/
    393. 

  393. 

  394. METHOD IdeSearchReplace:startFromTop()
    395. 

  395.    LOCAL qCursor
    396. 

  396. 

  397.    qCursor := ::qCurEdit:textCursor()
    398. 

  398.    qCursor:setPosition( 0 )
    399. 

  399.    ::qCurEdit:setTextCursor( qCursor )
    400. 

  400. 

  401.    ::find( ::cFind )
    402. 

  402. 

  403.    RETURN Self
    404. 

  404. 

  405. /*----------------------------------------------------------------------*/
    406. 

  406. /*----------------------------------------------------------------------*/
    407. 

  407. /*----------------------------------------------------------------------*/
    408. 

  408. //                           IdeFindReplace
    409. 

  409. /*----------------------------------------------------------------------*/
    410. 

  410. /*----------------------------------------------------------------------*/
    411. 

  411. /*----------------------------------------------------------------------*/
    412. 

  412. 

  413. CLASS IdeFindReplace INHERIT IdeObject
    414. 

  414. 

  415.    DATA   qLineEdit
    416. 

  416. 

  417.    METHOD new( oIde )
    418. 

  418.    METHOD create( oIde )
    419. 

  419.    METHOD destroy()
    420. 

  420.    METHOD show()
    421. 

  421.    METHOD onClickReplace()
    422. 

  422.    METHOD replaceSelection( cReplWith )
    423. 

  423.    METHOD replace()
    424. 

  424.    METHOD onClickFind()
    425. 

  425.    METHOD find( lWarn )
    426. 

  426.    METHOD updateFindReplaceData( cMode )
    427. 

  427. 

  428.    ENDCLASS
    429. 

  429. 

  430. /*----------------------------------------------------------------------*/
    431. 

  431. 

  432. METHOD IdeFindReplace:new( oIde )
    433. 

  433. 

  434.    ::oIde := oIde
    435. 

  435. 

  436.    RETURN Self
    437. 

  437. 

  438. /*----------------------------------------------------------------------*/
    439. 

  439. 

  440. METHOD IdeFindReplace:destroy()
    441. 

  441. 

  442.    IF !empty( ::oUI )
    443. 

  443.       ::qLineEdit:disConnect( "returnPressed()" )
    444. 

  444.       ::oUI:destroy()
    445. 

  445.    ENDIF
    446. 

  446. 

  447.    RETURN Self
    448. 

  448. 

  449. /*----------------------------------------------------------------------*/
    450. 

  450. 

  451. METHOD IdeFindReplace:create( oIde )
    452. 

  452. 

  453.    DEFAULT oIde TO ::oIde
    454. 

  454. 

  455.    ::oIde := oIde
    456. 

  456. 

  457.    ::oUI := hbide_getUI( "finddialog", ::oIde:oDlg:oWidget )
    458. 

  458. 

  459.    ::oUI:setWindowFlags( Qt_Sheet )
    460. 

  460. 

  461.    aeval( ::oINI:aFind   , {|e| ::oUI:q_comboFindWhat:addItem( e ) } )
    462. 

  462.    aeval( ::oINI:aReplace, {|e| ::oUI:q_comboReplaceWith:addItem( e ) } )
    463. 

  463. 

  464.    ::oUI:q_radioFromCursor:setChecked( .t. )
    465. 

  465.    ::oUI:q_radioDown:setChecked( .t. )
    466. 

  466. 

  467.    ::oUI:q_buttonFind   :connect( "clicked()", {|| ::onClickFind()    } )
    468. 

  468.    ::oUI:q_buttonReplace:connect( "clicked()", {|| ::onClickReplace() } )
    469. 

  469.    ::oUI:q_buttonClose  :connect( "clicked()", {|| ::oIde:oINI:cFindDialogGeometry := hbide_posAndSize( ::oUI:oWidget ), ::oUI:hide() } )
    470. 

  470.    ::oUI:q_comboFindWhat:connect( "editTextChanged(QString)", {|| ::oUI:q_radioEntire:setChecked( .t. ) } )
    471. 

  471.    ::oUI:q_comboFindWhat:connect( "currentIndexChanged(QString)", {|p| ::oIde:oSBar:getItem( SB_PNL_SEARCH ):caption := "FIND: " + p } )
    472. 

  472.    ::oUI:q_checkListOnly:connect( "stateChanged(int)", {|p| ;
    473. 

  473.                                         ::oUI:q_comboReplaceWith:setEnabled( p == 0 ), ;
    474. 

  474.                                    iif( p == 1, ::oUI:q_buttonReplace:setEnabled( .f. ), NIL ) } )
    475. 

  475. 

  476.    ::qLineEdit := ::oUI:q_comboFindWhat:lineEdit()
    477. 

  477. 

  478.    RETURN Self
    479. 

  479. 

  480. /*----------------------------------------------------------------------*/
    481. 

  481. 

  482. METHOD IdeFindReplace:show()
    483. 

  483.    LOCAL cText
    484. 

  484. 

  485.    ::oUI:q_buttonReplace:setEnabled( .f. )
    486. 

  486.    ::oUI:q_checkGlobal:setEnabled( .f. )
    487. 

  487.    ::oUI:q_checkNoPrompting:setEnabled( .f. )
    488. 

  488.    ::oUI:q_checkListOnly:setChecked( .f. )
    489. 

  489.    ::oIde:setPosByIniEx( ::oUI:oWidget, ::oINI:cFindDialogGeometry )
    490. 

  490.    ::oUI:q_comboFindWhat:setFocus()
    491. 

  491. 

  492.    IF !empty( cText := ::oEM:getSelectedText() )
    493. 

  493.       ::qLineEdit:setText( cText )
    494. 

  494.    ENDIF
    495. 

  495.    ::qLineEdit:selectAll()
    496. 

  496. 

  497.    ::oUI:show()
    498. 

  498. 

  499.    RETURN Self
    500. 

  500. 

  501. /*----------------------------------------------------------------------*/
    502. 

  502. 

  503. METHOD IdeFindReplace:onClickReplace()
    504. 

  504. 

  505.    ::updateFindReplaceData( "replace" )
    506. 

  506. 

  507.    IF ::oUI:q_comboReplaceWith:isEnabled()
    508. 

  508.       ::replace()
    509. 

  509.    ENDIF
    510. 

  510. 

  511.    RETURN Self
    512. 

  512. 

  513. /*----------------------------------------------------------------------*/
    514. 

  514. 

  515. METHOD IdeFindReplace:replaceSelection( cReplWith )
    516. 

  516.    LOCAL nB, nL, cBuffer, qCursor
    517. 

  517. 

  518.    DEFAULT cReplWith TO ""
    519. 

  519. 

  520.    qCursor := ::qCurEdit:textCursor()
    521. 

  521.    IF qCursor:hasSelection() .and. !empty( cBuffer := qCursor:selectedText() )
    522. 

  522.       nL := len( cBuffer )
    523. 

  523.       nB := qCursor:position() - nL
    524. 

  524. 

  525.       qCursor:beginEditBlock()
    526. 

  526.       qCursor:removeSelectedText()
    527. 

  527.       qCursor:insertText( cReplWith )
    528. 

  528.       qCursor:setPosition( nB )
    529. 

  529.       qCursor:movePosition( QTextCursor_NextCharacter, QTextCursor_KeepAnchor, len( cReplWith ) )
    530. 

  530.       ::qCurEdit:setTextCursor( qCursor )
    531. 

  531.       qCursor:endEditBlock()
    532. 

  532.    ENDIF
    533. 

  533. 

  534.    RETURN Self
    535. 

  535. 

  536. /*----------------------------------------------------------------------*/
    537. 

  537. 

  538. METHOD IdeFindReplace:replace()
    539. 

  539.    LOCAL cReplWith
    540. 

  540.    LOCAL nFound
    541. 

  541. 

  542.    IF !empty( ::qCurEdit )
    543. 

  543.       cReplWith := ::oUI:q_comboReplaceWith:lineEdit():text()
    544. 

  544.       ::replaceSelection( cReplWith )
    545. 

  545. 

  546.       IF ::oUI:q_checkGlobal:isChecked()
    547. 

  547.          IF ::oUI:q_checkNoPrompting:isChecked()
    548. 

  548.             nFound := 1
    549. 

  549.             DO WHILE ::find( .f. )
    550. 

  550.                nFound++
    551. 

  551.                ::replaceSelection( cReplWith )
    552. 

  552.             ENDDO
    553. 

  553.             ::oDK:setStatusText( SB_PNL_MAIN, "Replaced [" + hb_ntos( nFound ) + "] : " + cReplWith )
    554. 

  554.             ::oUI:q_buttonReplace:setEnabled( .f. )
    555. 

  555.             ::oUI:q_checkGlobal:setChecked( .f. )
    556. 

  556.             ::oUI:q_checkNoPrompting:setChecked( .f. )
    557. 

  557.          ELSE
    558. 

  558.             ::find()
    559. 

  559.          ENDIF
    560. 

  560.       ENDIF
    561. 

  561.    ENDIF
    562. 

  562. 

  563.    RETURN Self
    564. 

  564. 

  565. /*----------------------------------------------------------------------*/
    566. 

  566. 

  567. METHOD IdeFindReplace:onClickFind()
    568. 

  568.    LOCAL lFound, nPos, qCursor
    569. 

  569. 

  570.    ::updateFindReplaceData( "find" )
    571. 

  571. 

  572.    IF ::oUI:q_radioEntire:isChecked()
    573. 

  573.       ::oUI:q_radioFromCursor:setChecked( .t. )
    574. 

  574.       qCursor := ::qCurEdit:textCursor()
    575. 

  575.       nPos := qCursor:position()
    576. 

  576. 

  577.       qCursor:setPosition( 0 )
    578. 

  578.       ::qCurEdit:setTextCursor( qCursor )
    579. 

  579.       IF !( lFound := ::find() )
    580. 

  580.          qCursor:setPosition( nPos )
    581. 

  581.          ::qCurEdit:setTextCursor( qCursor )
    582. 

  582.       ENDIF
    583. 

  583.    ELSE
    584. 

  584.       lFound := ::find()
    585. 

  585.    ENDIF
    586. 

  586. 

  587.    IF lFound
    588. 

  588.       ::oUI:q_buttonReplace:setEnabled( .t. )
    589. 

  589.       ::oUI:q_checkGlobal:setEnabled( .t. )
    590. 

  590.       ::oUI:q_checkNoPrompting:setEnabled( .t. )
    591. 

  591.    ELSE
    592. 

  592.       ::oUI:q_buttonReplace:setEnabled( .f. )
    593. 

  593.       ::oUI:q_checkGlobal:setEnabled( .f. )
    594. 

  594.       ::oUI:q_checkNoPrompting:setEnabled( .f. )
    595. 

  595.       ::oUI:q_buttonFind:activateWindow()
    596. 

  596.       ::oUI:q_buttonFind:setFocus()
    597. 

  597.    ENDIF
    598. 

  598. 

  599.    RETURN Self
    600. 

  600. 

  601. /*----------------------------------------------------------------------*/
    602. 

  602. 

  603. METHOD IdeFindReplace:find( lWarn )
    604. 

  604.    LOCAL nFlags
    605. 

  605.    LOCAL cText := ::oUI:q_comboFindWhat:lineEdit():text()
    606. 

  606.    LOCAL lFound := .f.
    607. 

  607. 

  608.    DEFAULT lWarn TO .t.
    609. 

  609. 

  610.    IF !empty( cText )
    611. 

  611.       nFlags := 0
    612. 

  612.       nFlags += iif( ::oUI:q_checkMatchCase:isChecked(), QTextDocument_FindCaseSensitively, 0 )
    613. 

  613.       nFlags += iif( ::oUI:q_radioUp:isChecked(), QTextDocument_FindBackward, 0 )
    614. 

  614. 

  615.       IF !( lFound := ::oEM:getEditObjectCurrent():findEx( cText, nFlags ) ) .AND. lWarn
    616. 

  616.          hbide_showWarning( "Cannot find : " + cText )
    617. 

  617.       ENDIF
    618. 

  618.    ENDIF
    619. 

  619. 

  620.    RETURN lFound
    621. 

  621. 

  622. /*----------------------------------------------------------------------*/
    623. 

  623. 

  624. METHOD IdeFindReplace:updateFindReplaceData( cMode )
    625. 

  625.    LOCAL cData
    626. 

  626. 

  627.    IF cMode == "find"
    628. 

  628.       cData := ::oUI:q_comboFindWhat:lineEdit():text()
    629. 

  629.       IF !empty( cData )
    630. 

  630.          IF ascan( ::oINI:aFind, {|e| e == cData } ) == 0
    631. 

  631.             hb_ains( ::oINI:aFind, 1, cData, .t. )
    632. 

  632.             ::oUI:q_comboFindWhat:insertItem( 0, cData )
    633. 

  633.          ENDIF
    634. 

  634.       ENDIF
    635. 

  635.       //
    636. 

  636.       ::oDK:setStatusText( SB_PNL_SEARCH, cData )
    637. 

  637.    ELSE
    638. 

  638.       cData := ::oUI:q_comboReplaceWith:lineEdit():text()
    639. 

  639.       IF !empty( cData )
    640. 

  640.          IF ascan( ::oINI:aReplace, cData ) == 0
    641. 

  641.             hb_ains( ::oINI:aReplace, 1, cData, .t. )
    642. 

  642.             ::oUI:q_comboReplaceWith:insertItem( 0, cData )
    643. 

  643.          ENDIF
    644. 

  644.       ENDIF
    645. 

  645.    ENDIF
    646. 

  646. 

  647.    RETURN Self
    648. 

  648. 

  649. /*----------------------------------------------------------------------*/
    650. 

  650. //
    651. 

  651. //                         Class IdeFindInFiles
    652. 

  652. //
    653. 

  653. /*----------------------------------------------------------------------*/
    654. 

  654. 

  655. #define L2S( l )                                  iif( l, "Yes", "No" )
    656. 

  656. 

  657. #define F_BLACK                                   '<font color = black>'
    658. 

  658. #define F_GREEN                                   '<font color = green>'
    659. 

  659. #define F_RED                                     '<font color = red>'
    660. 

  660. #define F_CYAN                                    '<font color = cyan>'
    661. 

  661. #define F_BLUE                                    '<font color = blue>'
    662. 

  662. #define F_YELLOW                                  '<font color = yellow>'
    663. 

  663. 

  664. #define F_SECTION                                 '<font color=GoldenRod size="6">'
    665. 

  665. #define F_SECTION_ITEM                            '<font color=blue size="5">'
    666. 

  666. #define F_INFO                                    '<font color=LightBlue>'
    667. 

  667. #define F_FILE                                    '<font color=green>'
    668. 

  668. #define F_SEARCH                                  '<font color=IndianRed>'
    669. 

  669. 

  670. #define F_END                                     '</font>'
    671. 

  671. 

  672. #define LOG_MISSING                               1
    673. 

  673. #define LOG_FINDS                                 2
    674. 

  674. #define LOG_SEPARATOR                             3
    675. 

  675. #define LOG_FLAGS                                 4
    676. 

  676. #define LOG_TERMINATED                            5
    677. 

  677. #define LOG_SECTION                               6
    678. 

  678. #define LOG_SECTION_ITEM                          7
    679. 

  679. #define LOG_EMPTY                                 8
    680. 

  680. #define LOG_INFO                                  9
    681. 

  681. 

  682. /*----------------------------------------------------------------------*/
    683. 

  683. 

  684. CLASS IdeFindInFiles INHERIT IdeObject
    685. 

  685. 

  686.    DATA   aItems                                  INIT {}
    687. 

  687.    DATA   lStop                                   INIT .f.
    688. 

  688.    DATA   aInfo                                   INIT {}
    689. 

  689. 

  690.    DATA   nSearched                               INIT 0
    691. 

  691.    DATA   nFounds                                 INIT 0
    692. 

  692.    DATA   nMisses                                 INIT 0
    693. 

  693. 

  694.    DATA   cOrigExpr
    695. 

  695.    DATA   compRegEx
    696. 

  696.    DATA   cReplWith
    697. 

  697.    DATA   lRegEx                                  INIT .F.
    698. 

  698.    DATA   lListOnly                               INIT .T.
    699. 

  699.    DATA   lMatchCase                              INIT .F.
    700. 

  700.    DATA   lNotDblClick                            INIT .F.
    701. 

  701.    DATA   lShowOnCreate                           INIT .T.
    702. 

  702.    DATA   lInDockWindow                           INIT .F.
    703. 

  703. 

  704.    DATA   qEditFind
    705. 

  705. 

  706.    METHOD new( oIde, lShowOnCreate )
    707. 

  707.    METHOD create( oIde, lShowOnCreate )
    708. 

  708.    METHOD destroy()
    709. 

  709.    METHOD show()
    710. 

  710.    METHOD print()
    711. 

  711.    METHOD paintRequested( qPrinter )
    712. 

  712.    METHOD find()
    713. 

  713.    METHOD findInABunch( aFiles )
    714. 

  714.    METHOD showLog( nType, cMsg, aLines )
    715. 

  715. 

  716.    METHOD execEvent( cEvent, p )
    717. 

  717.    METHOD execContextMenu( p )
    718. 

  718.    METHOD buildUI()
    719. 

  719. 

  720.    ENDCLASS
    721. 

  721. 

  722. /*----------------------------------------------------------------------*/
    723. 

  723. 

  724. METHOD IdeFindInFiles:new( oIde, lShowOnCreate )
    725. 

  725. 

  726.    ::oIde          := oIde
    727. 

  727.    ::lShowOnCreate := lShowOnCreate
    728. 

  728. 

  729.    RETURN Self
    730. 

  730. 

  731. /*----------------------------------------------------------------------*/
    732. 

  732. 

  733. METHOD IdeFindInFiles:create( oIde, lShowOnCreate )
    734. 

  734. 

  735.    DEFAULT oIde          TO ::oIde
    736. 

  736.    DEFAULT lShowOnCreate TO ::lShowOnCreate
    737. 

  737. 

  738.    ::oIde          := oIde
    739. 

  739.    ::lShowOnCreate := lShowOnCreate
    740. 

  740. 

  741.    RETURN Self
    742. 

  742. 

  743. /*----------------------------------------------------------------------*/
    744. 

  744. 

  745. METHOD IdeFindInFiles:destroy()
    746. 

  746.    LOCAL qItem
    747. 

  747. 

  748.    IF !empty( ::oUI )
    749. 

  749.       ::qEditFind:disConnect( "returnPressed()" )
    750. 

  750. 

  751.       FOR EACH qItem IN ::aItems
    752. 

  752.          qItem := NIL
    753. 

  753.       NEXT
    754. 

  754. 

  755.       ::oUI:destroy()
    756. 

  756.    ENDIF
    757. 

  757. 

  758.    RETURN Self
    759. 

  759. 

  760. /*----------------------------------------------------------------------*/
    761. 

  761. 

  762. METHOD IdeFindInFiles:buildUI()
    763. 

  763.    LOCAL cText, qLineEdit, aProjList, cProj, qItem, n
    764. 

  764. 

  765.    ::oUI := hbide_getUI( "findinfilesex" )
    766. 

  766. 

  767.    ::oFindDock:oWidget:setWidget( ::oUI )
    768. 

  768. 

  769.    ::oUI:q_buttonFolder:setIcon( ::resPath + "folder.png" )
    770. 

  770. 

  771.    aeval( ::oINI:aFind   , {|e| ::oUI:q_comboExpr:addItem( e ) } )
    772. 

  772.    aeval( ::oINI:aReplace, {|e| ::oUI:q_comboRepl:addItem( e ) } )
    773. 

  773.    aeval( ::oINI:aFolders, {|e| ::oUI:q_comboFolder:addItem( e ) } )
    774. 

  774. 

  775.    n := ascan( ::oINI:aFind, {|e| e == ::cWrkFind } )
    776. 

  776.    ::oUI:q_comboExpr:setCurrentIndex( n-1 )
    777. 

  777. 

  778.    n := ascan( ::oINI:aReplace, {|e| e == ::cWrkReplace } )
    779. 

  779.    ::oUI:q_comboRepl:setCurrentIndex( n - 1 )
    780. 

  780. 

  781.    n := ascan( ::oIni:aFolders, {|e| e == ::cWrkFolderFind } )
    782. 

  782.    ::oUI:q_comboFolder:setCurrentIndex( n - 1 )
    783. 

  783.    ::oUI:q_comboFolder:setEnabled( .f. )
    784. 

  784.    ::oUI:q_checkFolders:setChecked( .f. )
    785. 

  785.    ::oUI:q_checkSubFolders:setChecked( .f. )
    786. 

  786.    ::oUI:q_checkSubFolders:setEnabled( .f. )
    787. 

  787. 

  788.    ::oUI:q_buttonRepl:setEnabled( .f. )
    789. 

  789.    ::oUI:q_buttonStop:setEnabled( .f. )
    790. 

  790.    ::oUI:q_comboRepl:setEnabled( .f. )
    791. 

  791. 

  792.    ::oUI:q_checkListOnly:setChecked( .t. )
    793. 

  793.    ::oUI:q_checkPrg:setChecked( .t. )
    794. 

  794. 

  795.    qLineEdit := ::oUI:q_comboExpr:lineEdit()
    796. 

  796.    IF !empty( ::oEM )
    797. 

  797.       IF !empty( cText := ::oEM:getSelectedText() )
    798. 

  798.          qLineEdit:setText( cText )
    799. 

  799.       ENDIF
    800. 

  800.    ENDIF
    801. 

  801.    qLineEdit:selectAll()
    802. 

  802. 

  803.    /* Populate Projects Name */
    804. 

  804.    IF !empty( ::oPM )
    805. 

  805.       aProjList := ::oPM:getProjectsTitleList()
    806. 

  806.       FOR EACH cProj IN aProjList
    807. 

  807.          IF !empty( cProj )
    808. 

  808.             qItem := QListWidgetItem()
    809. 

  809.             qItem:setFlags( Qt_ItemIsUserCheckable + Qt_ItemIsEnabled + Qt_ItemIsSelectable )
    810. 

  810.             qItem:setText( cProj )
    811. 

  811.             qItem:setCheckState( 0 )
    812. 

  812.             //::oUI:q_listProjects:addItem_1( qItem )
    813. 

  813.             ::oUI:q_listProjects:addItem( qItem )
    814. 

  814.             aadd( ::aItems, qItem )
    815. 

  815.          ENDIF
    816. 

  816.       NEXT
    817. 

  817.    ENDIF
    818. 

  818. 

  819.    ::oUI:q_editResults:setReadOnly( .t. )
    820. 

  820.    //::oUI:q_editResults:setFontFamily( "Courier New" )
    821. 

  821.    //::oUI:q_editResults:setFontPointSize( 10 )
    822. 

  822.    ::oUI:q_editResults:setFont( ::oIde:oFont:oWidget )
    823. 

  823.    ::oUI:q_editResults:setContextMenuPolicy( Qt_CustomContextMenu )
    824. 

  824. 

  825.    ::oUI:q_labelStatus:setText( "Ready" )
    826. 

  826.    ::oUI:q_comboExpr:setFocus()
    827. 

  827. 

  828.    /* Attach all signals */
    829. 

  829.    //
    830. 

  830.    ::oUI:q_buttonClose  :connect( "clicked()"                   , {| | ::execEvent( "buttonClose"      ) } )
    831. 

  831.    ::oUI:q_buttonFolder :connect( "clicked()"                   , {| | ::execEvent( "buttonFolder"     ) } )
    832. 

  832.    ::oUI:q_buttonFind   :connect( "clicked()"                   , {| | ::execEvent( "buttonFind"       ) } )
    833. 

  833.    ::oUI:q_buttonRepl   :connect( "clicked()"                   , {| | ::execEvent( "buttonRepl"       ) } )
    834. 

  834.    ::oUI:q_buttonStop   :connect( "clicked()"                   , {| | ::execEvent( "buttonStop"       ) } )
    835. 

  835.    ::oUI:q_checkAll     :connect( "stateChanged(int)"           , {|p| ::execEvent( "checkAll", p      ) } )
    836. 

  836.    ::oUI:q_comboExpr    :connect( "currentIndexChanged(QString)", {|p| ::execEvent( "comboFind", p     ) } )
    837. 

  837.    ::oUI:q_checkListOnly:connect( "stateChanged(int)"           , {|p| ::execEvent( "checkListOnly", p ) } )
    838. 

  838.    ::oUI:q_checkFolders :connect( "stateChanged(int)"           , {|p| ::execEvent( "checkFolders", p  ) } )
    839. 

  839.    ::oUI:q_editResults  :connect( "copyAvailable(bool)"         , {|l| ::execEvent( "editResults", l   ) } )
    840. 

  840.    ::oUI:q_editResults  :connect( "customContextMenuRequested(QPoint)", {|p| ::execEvent( "editResults-contextMenu", p ) } )
    841. 

  841. 

  842.    ::qEditFind := ::oUI:q_comboExpr:lineEdit()
    843. 

  843.    ::qEditFind:connect( "returnPressed()", {|| ::execEvent( "buttonFind" ) } )
    844. 

  844. 

  845.    RETURN Self
    846. 

  846. 

  847. /*----------------------------------------------------------------------*/
    848. 

  848. 

  849. METHOD IdeFindInFiles:execEvent( cEvent, p )
    850. 

  850.    LOCAL cPath, qLineEdit, qCursor, cSource, v, nInfo
    851. 

  851. 

  852.    SWITCH cEvent
    853. 

  853. 

  854.    CASE "buttonClose"
    855. 

  855.       ::oFindDock:hide()
    856. 

  856.       EXIT
    857. 

  857. 

  858.    CASE "comboFind"
    859. 

  859.       ::oIde:oSBar:getItem( SB_PNL_SEARCH ):caption := "FIND: " + p
    860. 

  860.       EXIT
    861. 

  861. 

  862.    CASE "checkListOnly"
    863. 

  863.       ::oUI:q_comboRepl:setEnabled( p == 0 )
    864. 

  864.       ::oUI:q_buttonRepl:setEnabled( !( p == 1 ) )
    865. 

  865.       EXIT
    866. 

  866. 

  867.    CASE "checkFolders"
    868. 

  868.       ::oUI:q_comboFolder:setEnabled( p == 2 )
    869. 

  869.       ::oUI:q_checkSubFolders:setEnabled( p == 2 )
    870. 

  870.       EXIT
    871. 

  871. 

  872.    CASE "buttonFind"
    873. 

  873.       ::find()
    874. 

  874.       EXIT
    875. 

  875. 

  876.    CASE "buttonRepl"
    877. 

  877.       EXIT
    878. 

  878. 

  879.    CASE "buttonStop"
    880. 

  880.       ::lStop := .t.
    881. 

  881.       EXIT
    882. 

  882. 

  883.    CASE "buttonFolder"
    884. 

  884.       cPath := hbide_fetchADir( ::oDlg, "Select a folder for search operation", ::cLastFileOpenPath )
    885. 

  885.       IF !empty( cPath )
    886. 

  886.          ::oIde:cLastFileOpenPath := cPath
    887. 

  887. 

  888.          qLineEdit := ::oUI:q_comboFolder:lineEdit()
    889. 

  889.          qLineEdit:setText( cPath )
    890. 

  890.          IF ascan( ::oINI:aFolders, {|e| e == cPath } ) == 0
    891. 

  891.             hb_ains( ::oINI:aFolders, 1, cPath, .t. )
    892. 

  892.          ENDIF
    893. 

  893.          ::oUI:q_comboFolder:insertItem( 0, cPath )
    894. 

  894.       ENDIF
    895. 

  895.       EXIT
    896. 

  896. 

  897.    CASE "checkAll"
    898. 

  898.       v := !( p == 0 )
    899. 

  899.       ::oUI:q_checkPrg:setChecked( v )
    900. 

  900.       ::oUI:q_checkC:setChecked( v )
    901. 

  901.       ::oUI:q_checkCpp:setChecked( v )
    902. 

  902.       ::oUI:q_checkCh:setChecked( v )
    903. 

  903.       ::oUI:q_checkH:setChecked( v )
    904. 

  904.       ::oUI:q_checkRc:setChecked( v )
    905. 

  905.       EXIT
    906. 

  906. 

  907.    CASE "editResults-contextMenu"
    908. 

  908.       ::execContextMenu( p )
    909. 

  909.       EXIT
    910. 

  910. 

  911.    CASE "editResults"
    912. 

  912.       IF p .AND. ! ::lNotDblClick
    913. 

  913.          qCursor := ::oUI:q_editResults:textCursor()
    914. 

  914.          nInfo := qCursor:blockNumber() + 1
    915. 

  915. 

  916.          IF nInfo <= len( ::aInfo ) .AND. ::aInfo[ nInfo, 1 ] == -2
    917. 

  917.             cSource := ::aInfo[ nInfo, 2 ]
    918. 

  918. 

  919.             ::oSM:editSource( cSource, 0, 0, 0, NIL, NIL, .f., .t. )
    920. 

  920.             qCursor := ::oIde:qCurEdit:textCursor()
    921. 

  921.             qCursor:setPosition( 0 )
    922. 

  922.             qCursor:movePosition( QTextCursor_Down, QTextCursor_MoveAnchor, ::aInfo[ nInfo, 3 ] - 1 )
    923. 

  923.             qCursor:movePosition( QTextCursor_Right, QTextCursor_MoveAnchor, ::aInfo[ nInfo, 4 ] - 1 )
    924. 

  924.             qCursor:movePosition( QTextCursor_Right, QTextCursor_KeepAnchor, len( ::aInfo[ nInfo, 5 ] ) )
    925. 

  925.             ::oIde:qCurEdit:setTextCursor( qCursor )
    926. 

  926.             ::oIde:manageFocusInEditor()
    927. 

  927.          ENDIF
    928. 

  928.       ELSE
    929. 

  929.          ::lNotDblClick := .F.
    930. 

  930.       ENDIF
    931. 

  931.       EXIT
    932. 

  932.    ENDSWITCH
    933. 

  933. 

  934.    RETURN Self
    935. 

  935. 

  936. /*----------------------------------------------------------------------*/
    937. 

  937. 

  938. METHOD IdeFindInFiles:execContextMenu( p )
    939. 

  939.    LOCAL nLine, qCursor, qMenu, qAct, cAct, cFind
    940. 

  940. 

  941.    qCursor := ::oUI:q_editResults:textCursor()
    942. 

  942.    nLine := qCursor:blockNumber() + 1
    943. 

  943. 

  944.    IF nLine <= len( ::aInfo )
    945. 

  945.       qMenu := QMenu( ::oUI:q_editResults )
    946. 

  946.       qMenu:addAction( "Copy"       )
    947. 

  947.       qMenu:addAction( "Select All" )
    948. 

  948.       qMenu:addAction( "Clear"      )
    949. 

  949.       qMenu:addAction( "Print"      )
    950. 

  950.       qMenu:addAction( "Save as..." )
    951. 

  951.       qMenu:addSeparator()
    952. 

  952.       qMenu:addAction( "Find"       )
    953. 

  953.       qMenu:addSeparator()
    954. 

  954.       IF ::aInfo[ nLine, 1 ] == -2     /* Found Line */
    955. 

  955.          qMenu:addAction( "Replace Line" )
    956. 

  956.       ELSEIF ::aInfo[ nLine, 1 ] == -1 /* Source File */
    957. 

  957.          qMenu:addAction( "Open"        )
    958. 

  958.          qMenu:addAction( "Replace All" )
    959. 

  959.       ENDIF
    960. 

  960.       qMenu:addSeparator()
    961. 

  961.       qMenu:addAction( "Zoom In"  )
    962. 

  962.       qMenu:addAction( "Zoom Out" )
    963. 

  963. 

  964.       IF ( qAct := qMenu:exec( ::oUI:q_editResults:mapToGlobal( QPoint( p ) ) ) ):hasValidPointer()
    965. 

  965.          cAct := qAct:text()
    966. 

  966. 

  967.          SWITCH cAct
    968. 

  968.          CASE "Save as..."
    969. 

  969.             EXIT
    970. 

  970.          CASE "Find"
    971. 

  971.             IF !empty( cFind := hbide_fetchAString( ::oUI:q_editResults, , "Find what?", "Find" ) )
    972. 

  972.                ::lNotDblClick := .T.
    973. 

  973.                IF !( ::oUI:q_editResults:find( cFind, 0 ) )
    974. 

  974.                   MsgBox( "Not Found" )
    975. 

  975.                ENDIF
    976. 

  976.             ENDIF
    977. 

  977.             EXIT
    978. 

  978.          CASE "Print"
    979. 

  979.             ::print()
    980. 

  980.             EXIT
    981. 

  981.          CASE "Clear"
    982. 

  982.             ::oUI:q_editResults:clear()
    983. 

  983.             ::aInfo := {}
    984. 

  984.             EXIT
    985. 

  985.          CASE "Copy"
    986. 

  986.             ::lNotDblClick := .T.
    987. 

  987.             ::oUI:q_editResults:copy()
    988. 

  988.             EXIT
    989. 

  989.          CASE "Select All"
    990. 

  990.             ::oUI:q_editResults:selectAll()
    991. 

  991.             EXIT
    992. 

  992.          CASE "Replace Line"
    993. 

  993.             EXIT
    994. 

  994.          CASE "Replace Source"
    995. 

  995.             EXIT
    996. 

  996.          CASE "Zoom In"
    997. 

  997.             ::oUI:q_editResults:zoomIn()
    998. 

  998.             EXIT
    999. 

  999.          CASE "Zoom Out"
    1000. 

  1000.             ::oUI:q_editResults:zoomOut()
    1001. 

  1001.             EXIT
    1002. 

  1002.          ENDSWITCH
    1003. 

  1003.       ENDIF
    1004. 

  1004.    ENDIF
    1005. 

  1005. 

  1006.    RETURN Self
    1007. 

  1007. 

  1008. /*----------------------------------------------------------------------*/
    1009. 

  1009. 

  1010. METHOD IdeFindInFiles:show()
    1011. 

  1011. 

  1012.    IF empty( ::oUI )
    1013. 

  1013.       ::buildUI()
    1014. 

  1014.    ENDIF
    1015. 

  1015. 

  1016.    RETURN Self
    1017. 

  1017. 

  1018. /*----------------------------------------------------------------------*/
    1019. 

  1019. 

  1020. METHOD IdeFindInFiles:find()
    1021. 

  1021.    LOCAL lPrg, lC, lCpp, lH, lCh, lRc, a_
    1022. 

  1022.    LOCAL lTabs, lSubF, lSubP, cFolder, qItem, aFilter, cExt, cMask, cWrkFolder, cProjPath
    1023. 

  1023.    LOCAL nStart, nEnd, cSource, aDir, cProjTitle, aProjFiles
    1024. 

  1024.    LOCAL aOpenSrc   := {}
    1025. 

  1025.    LOCAL aFolderSrc := {}
    1026. 

  1026.    LOCAL aProjSrc   := {}
    1027. 

  1027.    LOCAL aProjs     := {}
    1028. 

  1028.    LOCAL aPaths     := {}
    1029. 

  1029. 

  1030.    IF empty( ::cOrigExpr := ::oUI:q_comboExpr:currentText() )
    1031. 

  1031.       RETURN Self
    1032. 

  1032.    ENDIF
    1033. 

  1033. 

  1034.    ::lListOnly  := ::oUI:q_checkListOnly:isChecked()
    1035. 

  1035.    ::lMatchCase := ::oUI:q_checkMatchCase:isChecked()
    1036. 

  1036.    ::cReplWith  := ::oUI:q_comboRepl:currentText()
    1037. 

  1037. 

  1038.    ::lRegEx := ::oUI:q_checkRegEx:isChecked()
    1039. 

  1039.    IF ::lRegEx
    1040. 

  1040.       ::compRegEx := hb_regExComp( ::cOrigExpr, ::lMatchCase )
    1041. 

  1041.       IF ! hb_isRegEx( ::compRegEx )
    1042. 

  1042.          MsgBox( "Error in Regular Expression" )
    1043. 

  1043.          RETURN Self
    1044. 

  1044.       ENDIF
    1045. 

  1045.    ENDIF
    1046. 

  1046. 

  1047.    cFolder      := ::oUI:q_comboFolder:currentText()
    1048. 

  1048.    cWrkFolder   := cFolder
    1049. 

  1049.    lTabs        := ::oUI:q_checkOpenTabs:isChecked()
    1050. 

  1050.    lSubF        := ::oUI:q_checkSubFolders:isChecked()
    1051. 

  1051.    lSubP        := ::oUI:q_checkSubProjects:isChecked()
    1052. 

  1052.    /* Type of files */
    1053. 

  1053.    lPrg         := ::oUi:q_checkPrg:isChecked()
    1054. 

  1054.    lC           := ::oUI:q_checkC:isChecked()
    1055. 

  1055.    lCpp         := ::oUI:q_checkCpp:isChecked()
    1056. 

  1056.    lH           := ::oUI:q_checkH:isChecked()
    1057. 

  1057.    lCh          := ::oUI:q_checkCh:isChecked()
    1058. 

  1058.    lRc          := ::oUI:q_checkRc:isChecked()       /* Conceptually it is now lText */
    1059. 

  1059. 

  1060.    aFilter := hbide_buildFilter( lPrg, lC, lCpp, lH, lCh, lRc )
    1061. 

  1061. 

  1062.    /* Process Open Tabs */
    1063. 

  1063.    IF lTabs
    1064. 

  1064.       FOR EACH a_ IN ::aTabs
    1065. 

  1065.          cSource := a_[ 2 ]:sourceFile
    1066. 

  1066.          IF hbide_isSourceOfType( cSource, aFilter )
    1067. 

  1067.             aadd( aOpenSrc, cSource )
    1068. 

  1068.          ENDIF
    1069. 

  1069.       NEXT
    1070. 

  1070.    ENDIF
    1071. 

  1071. 

  1072.    /* Process Folder */
    1073. 

  1073.    IF ::oUI:q_checkFolders:isChecked() .AND. ! empty( cFolder )
    1074. 

  1074.       hbide_fetchSubPaths( @aPaths, cFolder, ::oUI:q_checkSubFolders:isChecked() )
    1075. 

  1075. 

  1076.       FOR EACH cFolder IN aPaths
    1077. 

  1077.          FOR EACH cExt IN aFilter
    1078. 

  1078.             cMask := hbide_pathToOsPath( cFolder + cExt )
    1079. 

  1079.             aDir  := directory( cMask )
    1080. 

  1080.             FOR EACH a_ IN aDir
    1081. 

  1081.                aadd( aFolderSrc, cFolder + a_[ 1 ] )
    1082. 

  1082.             NEXT
    1083. 

  1083.          NEXT
    1084. 

  1084.       NEXT
    1085. 

  1085.    ENDIF
    1086. 

  1086. 

  1087.    /* Process Projects */
    1088. 

  1088.    IF !empty( ::aItems )
    1089. 

  1089.       FOR EACH qItem IN ::aItems
    1090. 

  1090.          IF qItem:checkState() == 2
    1091. 

  1091.             aadd( aProjs, qItem:text() )
    1092. 

  1092.          ENDIF
    1093. 

  1093.       NEXT
    1094. 

  1094.    ENDIF
    1095. 

  1095.    IF !empty( aProjs )
    1096. 

  1096.       FOR EACH cProjTitle IN aProjs
    1097. 

  1097.          a_:= {}
    1098. 

  1098.          IF !empty( aProjFiles := ::oPM:getSourcesByProjectTitle( cProjTitle ) )
    1099. 

  1099.             cProjPath := ::oPM:getProjectPathFromTitle( cProjTitle )
    1100. 

  1100.             FOR EACH cSource IN aProjFiles
    1101. 

  1101.                IF hbide_isSourceOfType( cSource, aFilter )
    1102. 

  1102.                   aadd( a_, hbide_syncProjPath( cProjPath, hbide_stripFilter( cSource ) ) )
    1103. 

  1103.                ENDIF
    1104. 

  1104.             NEXT
    1105. 

  1105.          ENDIF
    1106. 

  1106.          IF !empty( a_ )
    1107. 

  1107.             aadd( aProjSrc, { cProjTitle, a_ } )
    1108. 

  1108.          ENDIF
    1109. 

  1109.       NEXT
    1110. 

  1110.    ENDIF
    1111. 

  1111. 

  1112.    /* Supress Find button - user must not click it again */
    1113. 

  1113.    ::oUI:q_buttonFind:setEnabled( .f. )
    1114. 

  1114.    ::oUI:q_buttonStop:setEnabled( .t. )
    1115. 

  1115. 

  1116.    ::nSearched := 0
    1117. 

  1117.    ::nFounds   := 0
    1118. 

  1118.    ::nMisses   := 0
    1119. 

  1119. 

  1120.    ::oUI:q_labelStatus:setText( "Ready" )
    1121. 

  1121. 

  1122.    /* Fun Begins */
    1123. 

  1123.    ::showLog( LOG_SEPARATOR )
    1124. 

  1124.    ::showLog( LOG_FLAGS, "[Begins: " + dtoc( date() ) + "-" + time() + "][" + "Find Expression: " + ::cOrigExpr + "]" )
    1125. 

  1125.    ::showLog( LOG_FLAGS, hbide_getFlags( lPrg, lC, lCpp, lH, lCh, lRc, lTabs, lSubF, lSubP, ::lRegEx, ::lListOnly, ::lMatchCase ) )
    1126. 

  1126.    ::showLog( LOG_EMPTY )
    1127. 

  1127. 

  1128.    nStart := seconds()
    1129. 

  1129. 

  1130.    IF lTabs
    1131. 

  1131.       ::showLog( LOG_SECTION, "OpenTabs" )
    1132. 

  1132.       IF !empty( aOpenSrc )
    1133. 

  1133.          ::findInABunch( aOpenSrc )
    1134. 

  1134.       ELSE
    1135. 

  1135.          ::showLog( LOG_INFO, "No matching files found" )
    1136. 

  1136.       ENDIF
    1137. 

  1137.    ENDIF
    1138. 

  1138. 

  1139.    IF ::oUI:q_checkFolders:isChecked() .AND. ! empty( cFolder )
    1140. 

  1140.       ::showLog( LOG_SECTION, "Folders" )
    1141. 

  1141.       IF !empty( aFolderSrc )
    1142. 

  1142.          ::showLog( LOG_SECTION_ITEM, "Folder: " + cFolder )
    1143. 

  1143.          ::findInABunch( aFolderSrc )
    1144. 

  1144.       ELSE
    1145. 

  1145.          ::showLog( LOG_INFO, "No matching files found" )
    1146. 

  1146.       ENDIF
    1147. 

  1147.    ENDIF
    1148. 

  1148. 

  1149.    IF !empty( aProjs )
    1150. 

  1150.       ::showLog( LOG_SECTION, "Projects" )
    1151. 

  1151.       IF !empty( aProjSrc )
    1152. 

  1152.          FOR EACH a_ IN aProjSrc
    1153. 

  1153.             ::showLog( LOG_SECTION_ITEM, "Project: " + a_[ 1 ] )
    1154. 

  1154.             ::findInABunch( a_[ 2 ] )
    1155. 

  1155.          NEXT
    1156. 

  1156.       ELSE
    1157. 

  1157.          ::showLog( LOG_INFO, "No matching files found" )
    1158. 

  1158.       ENDIF
    1159. 

  1159.    ENDIF
    1160. 

  1160. 

  1161.    nEnd := seconds()
    1162. 

  1162. 

  1163.    ::showLog( LOG_EMPTY )
    1164. 

  1164.    ::showLog( LOG_FLAGS, "[Ends:" + dtoc( date() ) + "-" + time() + "-" + hb_ntos( nEnd - nStart ) + " Secs]" + ;
    1165. 

  1165.                          "[Searched: " + hb_ntos( ::nSearched ) + "][Finds: " + hb_ntos( ::nFounds ) + "]" + ;
    1166. 

  1166.                          "[Files not found: " + hb_ntos( ::nMisses ) + "]" )
    1167. 

  1167.    ::showLog( LOG_SEPARATOR )
    1168. 

  1168.    ::showLog( LOG_EMPTY )
    1169. 

  1169. 

  1170.    ::oUI:q_labelStatus:setText( "[ Time: " + hb_ntos( nEnd - nStart ) + " ] " + ;
    1171. 

  1171.                          "[ Searched: " + hb_ntos( ::nSearched ) + " ] [ Finds: " + hb_ntos( ::nFounds ) + " ] " + ;
    1172. 

  1172.                          "[ Files not found: " + hb_ntos( ::nMisses ) + " ]" )
    1173. 

  1173.    ::lStop := .f.
    1174. 

  1174.    ::oUI:q_buttonStop:setEnabled( .f. )
    1175. 

  1175.    ::oUI:q_buttonFind:setEnabled( .t. )
    1176. 

  1176. 

  1177.    IF ::nFounds > 0
    1178. 

  1178.       IF ascan( ::oINI:aFind, {|e| e == ::cOrigExpr } ) == 0
    1179. 

  1179.          hb_ains( ::oINI:aFind, 1, ::cOrigExpr, .t. )
    1180. 

  1180.          ::oUI:q_comboFolder:insertItem( 0, ::cOrigExpr )
    1181. 

  1181.       ENDIF
    1182. 

  1182.       ::oIde:cWrkFind := ::cOrigExpr
    1183. 

  1183.       ::oIde:cWrkFolderFind := cWrkFolder
    1184. 

  1184.    ENDIF
    1185. 

  1185. 

  1186.    RETURN Self
    1187. 

  1187. 

  1188. /*----------------------------------------------------------------------*/
    1189. 

  1189. 

  1190. METHOD IdeFindInFiles:findInABunch( aFiles )
    1191. 

  1191.    LOCAL s, cExpr, nLine, aLines, aBuffer, cLine, nNoMatch, aMatch, regEx
    1192. 

  1192. 

  1193.    nNoMatch := 0
    1194. 

  1194.    FOR EACH s IN aFiles
    1195. 

  1195.       IF ::lStop                                 /* Stop button is pressed */
    1196. 

  1196.          ::showLog( LOG_EMPTY )
    1197. 

  1197.          ::showLog( LOG_TERMINATED )
    1198. 

  1198.          EXIT
    1199. 

  1199.       ENDIF
    1200. 

  1200.       aLines := {}
    1201. 

  1201.       s := hbide_pathToOSPath( s )
    1202. 

  1202.       IF hb_fileExists( s )
    1203. 

  1203.          ::nSearched++
    1204. 

  1204.          aBuffer := hb_ATokens( StrTran( hb_MemoRead( s ), Chr( 13 ) ), Chr( 10 ) )
    1205. 

  1205.          nLine := 0
    1206. 

  1206. 

  1207.          IF ::lRegEx
    1208. 

  1208.             regEx := ::compRegEx
    1209. 

  1209.             FOR EACH cLine IN aBuffer
    1210. 

  1210.                nLine++
    1211. 

  1211.                //       exp, string, lMatchCase, lNewLine, nMaxMatch, nMatchWhich, lMatchOnly
    1212. 

  1212.                IF !empty( aMatch := hb_regExAll( regEx, cLine, ::lMatchCase, .F., 0, 1, .F.  ) )
    1213. 

  1213.                   aadd( aLines, { nLine, cLine, aMatch } )
    1214. 

  1214.                ENDIF
    1215. 

  1215.             NEXT
    1216. 

  1216.          ELSE
    1217. 

  1217.             IF ::lMatchCase
    1218. 

  1218.                cExpr := ::cOrigExpr
    1219. 

  1219.                FOR EACH cLine IN aBuffer
    1220. 

  1220.                   nLine++
    1221. 

  1221.                   IF cExpr $ cLine
    1222. 

  1222.                      aadd( aLines, { nLine, cLine, NIL } )
    1223. 

  1223.                   ENDIF
    1224. 

  1224.                NEXT
    1225. 

  1225.             ELSE
    1226. 

  1226.                cExpr := lower( ::cOrigExpr )
    1227. 

  1227.                FOR EACH cLine IN aBuffer
    1228. 

  1228.                   nLine++
    1229. 

  1229.                   IF cExpr $ lower( cLine )
    1230. 

  1230.                      aadd( aLines, { nLine, cLine, NIL } )
    1231. 

  1231.                   ENDIF
    1232. 

  1232.                NEXT
    1233. 

  1233.             ENDIF
    1234. 

  1234.          ENDIF
    1235. 

  1235. 

  1236.          IF len( aLines ) > 0
    1237. 

  1237.             ::showLog( LOG_FINDS, s, aLines )
    1238. 

  1238.             ::nFounds++
    1239. 

  1239.          ELSE
    1240. 

  1240.             nNoMatch++
    1241. 

  1241.          ENDIF
    1242. 

  1242.       ELSE
    1243. 

  1243.          ::showLog( LOG_MISSING, s )
    1244. 

  1244.          ::nMisses++
    1245. 

  1245.       ENDIF
    1246. 

  1246.    NEXT
    1247. 

  1247.    IF nNoMatch == len( aFiles )
    1248. 

  1248.       ::showLog( LOG_INFO, "Searched (" + hb_ntos( len( aFiles ) ) + ") files, no matches found" )
    1249. 

  1249.    ENDIF
    1250. 

  1250. 

  1251.    RETURN Self
    1252. 

  1252. 

  1253. /*----------------------------------------------------------------------*/
    1254. 

  1254. 

  1255. METHOD IdeFindInFiles:showLog( nType, cMsg, aLines )
    1256. 

  1256.    LOCAL a_, n, cPre, cPost, nWidth, cText, nB, cL, nL, cT, cExp, aM
    1257. 

  1257.    LOCAL qCursor, qResult
    1258. 

  1258. 

  1259.    qResult := ::oUI:q_editResults
    1260. 

  1260. 

  1261.    DEFAULT cMsg TO ""
    1262. 

  1262.    cMsg := hbide_convertHtmlDelimiters( cMsg )
    1263. 

  1263. 

  1264.    qCursor := ::oUI:q_editResults:textCursor()
    1265. 

  1265. 

  1266.    SWITCH nType
    1267. 

  1267. 

  1268.    CASE LOG_SEPARATOR
    1269. 

  1269.       qResult:append( F_BLACK + hbide_outputLine( "=", 68 ) + F_END )
    1270. 

  1270.       aadd( ::aInfo, { 0, NIL, NIL } )
    1271. 

  1271.       EXIT
    1272. 

  1272. 

  1273.    CASE LOG_FLAGS
    1274. 

  1274.       qResult:append( F_BLACK + cMsg + F_END )
    1275. 

  1275.       aadd( ::aInfo, { 0, NIL, NIL } )
    1276. 

  1276.       EXIT
    1277. 

  1277. 

  1278.    CASE LOG_INFO
    1279. 

  1279.       qResult:append( F_INFO + "<i>" + cMsg + "</i>" + F_END )
    1280. 

  1280.       aadd( ::aInfo, { 0, NIL, NIL } )
    1281. 

  1281.       EXIT
    1282. 

  1282. 

  1283.    CASE LOG_SECTION
    1284. 

  1284.       qResult:append( F_SECTION + "<u>" + cMsg + "</u>" + F_END )
    1285. 

  1285.       aadd( ::aInfo, { 0, NIL, NIL } )
    1286. 

  1286.       EXIT
    1287. 

  1287. 

  1288.    CASE LOG_SECTION_ITEM
    1289. 

  1289.       qResult:append( F_SECTION_ITEM + cMsg + F_END )
    1290. 

  1290.       aadd( ::aInfo, { 0, NIL, NIL } )
    1291. 

  1291.       EXIT
    1292. 

  1292. 

  1293.    CASE LOG_FINDS
    1294. 

  1294.       cText := F_FILE + "<b>" + cMsg + "   ( "+ hb_ntos( len( aLines ) ) + " )" + "</b>" + F_END
    1295. 

  1295.       ::oUI:q_editResults:append( cText )
    1296. 

  1296.       ::oUI:q_labelStatus:setText( cText )
    1297. 

  1297.       aadd( ::aInfo, { -1, cMsg, NIL } )
    1298. 

  1298. 

  1299.       n := 0
    1300. 

  1300.       aeval( aLines, {|a_| n := max( n, a_[ 1 ] ) } )
    1301. 

  1301.       nWidth := iif( n < 10, 1, iif( n < 100, 2, iif( n < 1000, 3, iif( n < 10000, 4, iif( n < 100000, 5, 7 ) ) ) ) )
    1302. 

  1302. 

  1303.       IF ::lRegEx
    1304. 

  1304.          FOR EACH a_ IN aLines
    1305. 

  1305.             nL := a_[ 1 ]
    1306. 

  1306.             aM := a_[ 3 ]
    1307. 

  1307.             nB := aM[ 1, 2 ]
    1308. 

  1308.             cL := hbide_buildResultLine( a_[ 2 ], aM )
    1309. 

  1309.             cT := aM[ 1, 1 ]
    1310. 

  1310. 

  1311.             qResult:append( F_BLACK + "&nbsp;&nbsp;&nbsp;(" + strzero( nL, nWidth ) + ")&nbsp;&nbsp;" + cL + F_END )
    1312. 

  1312. 

  1313.             aadd( ::aInfo, { -2, cMsg, nL, nB, cT  } )
    1314. 

  1314.             qCursor:movePosition( QTextCursor_Down )
    1315. 

  1315.          NEXT
    1316. 

  1316.       ELSE
    1317. 

  1317.          cExp := iif( ::lMatchCase, ::cOrigExpr, lower( ::cOrigExpr ) )
    1318. 

  1318.          FOR EACH a_ IN aLines
    1319. 

  1319.             nL    := a_[ 1 ]
    1320. 

  1320.             cL    := a_[ 2 ]
    1321. 

  1321.             //nB    := at( cExp, cL )
    1322. 

  1322.             nB    := at( cExp, iif( ::lMatchCase, cL, lower( cL ) ) )
    1323. 

  1323.             cPre  := substr( cL, 1, nB - 1 )
    1324. 

  1324.             cPost := substr( cL, nB + len( cExp ) )
    1325. 

  1325.             cT    := substr( cL, nB, len( cExp ) )
    1326. 

  1326.             cL    := hbide_convertHtmlDelimiters( cPre ) + F_SEARCH + "<b>" + hbide_convertHtmlDelimiters( cT ) + ;
    1327. 

  1327.                                                              "</b>" + F_END + hbide_convertHtmlDelimiters( cPost )
    1328. 

  1328. 

  1329.             qResult:append( F_BLACK + "&nbsp;&nbsp;&nbsp;(" + strzero( nL, nWidth ) + ")&nbsp;&nbsp;" + cL + F_END )
    1330. 

  1330. 

  1331.             //            mode, source, line#, pos, slctn
    1332. 

  1332.             aadd( ::aInfo, { -2, cMsg, nL, nB, cT  } )
    1333. 

  1333.             qCursor:movePosition( QTextCursor_Down )
    1334. 

  1334.          NEXT
    1335. 

  1335.       ENDIF
    1336. 

  1336.       EXIT
    1337. 

  1337. 

  1338.    CASE LOG_TERMINATED
    1339. 

  1339.       qResult:append( F_RED + "---------------- Terminated ---------------" + F_END )
    1340. 

  1340.       aadd( ::aInfo, { 0, NIL, NIL } )
    1341. 

  1341.       EXIT
    1342. 

  1342. 

  1343.    CASE LOG_MISSING
    1344. 

  1344.       qResult:append( F_RED + cMsg + F_END )
    1345. 

  1345.       aadd( ::aInfo, { 0, NIL, NIL } )
    1346. 

  1346.       EXIT
    1347. 

  1347. 

  1348.    CASE LOG_EMPTY
    1349. 

  1349.       qResult:append( F_BLACK + " " + F_END )
    1350. 

  1350.       aadd( ::aInfo, { 0, NIL, NIL } )
    1351. 

  1351.       EXIT
    1352. 

  1352. 

  1353.    ENDSWITCH
    1354. 

  1354. 

  1355.    qCursor:movePosition( QTextCursor_Down )
    1356. 

  1356.    ::oUI:q_editResults:setTextCursor( qCursor )
    1357. 

  1357. 

  1358.    QApplication():processEvents()
    1359. 

  1359.    RETURN Self
    1360. 

  1360. 

  1361. /*----------------------------------------------------------------------*/
    1362. 

  1362. 

  1363. STATIC FUNCTION hbide_buildResultLine( cLine, aM )
    1364. 

  1364.    LOCAL cT, cR, i
    1365. 

  1365. 

  1366.    FOR i := 1 TO len( aM )
    1367. 

  1367.       cR    := aM[ i, 1 ]
    1368. 

  1368.       cT    := replicate( chr( 255 ), len( aM[ i, 1 ] ) )
    1369. 

  1369.       cLine := strtran( cLine, cR, cT, 1, 1 )
    1370. 

  1370.    NEXT
    1371. 

  1371.    FOR i := 1 TO len( aM )
    1372. 

  1372.       cR    := replicate( chr( 255 ), len( aM[ i, 1 ] ) )
    1373. 

  1373.       cT    := F_SEARCH + "<b>" + hbide_convertHtmlDelimiters( aM[ i, 1 ] ) + "</b>" + F_END
    1374. 

  1374.       cLine := strtran( cLine, cR, cT, 1, 1 )
    1375. 

  1375.    NEXT
    1376. 

  1376. 

  1377.    RETURN cLine
    1378. 

  1378. 

  1379. /*----------------------------------------------------------------------*/
    1380. 

  1380. 

  1381. METHOD IdeFindInFiles:print()
    1382. 

  1382.    LOCAL qDlg
    1383. 

  1383. 

  1384.    qDlg := QPrintPreviewDialog( ::oUI )
    1385. 

  1385.    qDlg:setWindowTitle( "Harbour-QT Preview Dialog" )
    1386. 

  1386.    qDlg:connect( "paintRequested(QPrinter*)", {|p| ::paintRequested( p ) } )
    1387. 

  1387.    qDlg:exec()
    1388. 

  1388.    qDlg:disconnect( "paintRequested(QPrinter*)" )
    1389. 

  1389. 

  1390.    RETURN self
    1391. 

  1391. 

  1392. /*----------------------------------------------------------------------*/
    1393. 

  1393. 

  1394. METHOD IdeFindInFiles:paintRequested( qPrinter )
    1395. 

  1395.    ::oUI:q_editResults:print( qPrinter )
    1396. 

  1396.    RETURN Self
    1397. 

  1397. 

  1398. /*----------------------------------------------------------------------*/
    1399. 

  1399. 

  1400. STATIC FUNCTION hbide_buildFilter( lPrg, lC, lCpp, lH, lCh, lTxt )
    1401. 

  1401.    LOCAL aFilter := {}
    1402. 

  1402.    LOCAL aExt
    1403. 

  1403. 

  1404.    IF lPrg
    1405. 

  1405.       aadd( aFilter, "*.prg" )
    1406. 

  1406.    ENDIF
    1407. 

  1407.    IF lC
    1408. 

  1408.       aadd( aFilter, "*.c" )
    1409. 

  1409.    ENDIF
    1410. 

  1410.    IF lCpp
    1411. 

  1411.       aadd( aFilter, "*.cpp" )
    1412. 

  1412.    ENDIF
    1413. 

  1413.    IF lh
    1414. 

  1414.       aadd( aFilter, "*.h" )
    1415. 

  1415.    ENDIF
    1416. 

  1416.    IF lCh
    1417. 

  1417.       aadd( aFilter, "*.ch" )
    1418. 

  1418.       aadd( aFilter, "*.h" )
    1419. 

  1419.    ENDIF
    1420. 

  1420.    IF lTxt
    1421. 

  1421.       aExt := hb_atokens( hbide_setIde():oINI:cTextFileExtensions, "," )
    1422. 

  1422.       aeval( aExt, {|e| iif( empty( e ), NIL, aadd( aFilter, e ) ) } )
    1423. 

  1423.    ENDIF
    1424. 

  1424. 

  1425.    RETURN aFilter
    1426. 

  1426. 

  1427. /*----------------------------------------------------------------------*/
    1428. 

  1428. 

  1429. STATIC FUNCTION hbide_getFlags( lPrg, lC, lCpp, lH, lCh, lRc, lTabs, lSubF, lSubP, lRegEx, lListOnly, lMatchCase )
    1430. 

  1430.    LOCAL s := ""
    1431. 

  1431. 

  1432.    HB_SYMBOL_UNUSED( lTabs )
    1433. 

  1433.    HB_SYMBOL_UNUSED( lSubF )
    1434. 

  1434.    HB_SYMBOL_UNUSED( lSubP )
    1435. 

  1435.    HB_SYMBOL_UNUSED( lListOnly )
    1436. 

  1436. 

  1437.    s += "[.prg="  + L2S( lPrg        ) + "]"
    1438. 

  1438.    s += "[.c="    + L2S( lC          ) + "]"
    1439. 

  1439.    s += "[.cpp="  + L2S( lCpp        ) + "]"
    1440. 

  1440.    s += "[.h="    + L2S( lH          ) + "]"
    1441. 

  1441.    s += "[.ch="   + L2S( lCh         ) + "]"
    1442. 

  1442.    s += "[.rc="   + L2S( lRc         ) + "]"
    1443. 

  1443.    s += "[RegEx=" + L2S( lRegEx      ) + "]"
    1444. 

  1444.    s += "[Case="  + L2S( lMatchCase  ) + "]"
    1445. 

  1445. 

  1446.    RETURN s
    1447. 

  1447. 

  1448. /*----------------------------------------------------------------------*/
    1449. 

  1449. 

  1450. STATIC FUNCTION hbide_isSourceOfType( cSource, aFilter )
    1451. 

  1451.    LOCAL cExt
    1452. 

  1452. 

  1453.    hb_fNameSplit( cSource, , , @cExt )
    1454. 

  1454.    cExt := lower( cExt )
    1455. 

  1455. 

  1456.    RETURN  ascan( aFilter, {|e| cExt $ e } ) > 0
    1457. 

  1457. 

  1458. /*----------------------------------------------------------------------*/
    1459. 

  1459.