Hi,
Search in RichEdit5. I need to find in it all the positions of underlined characters on a white background.
Is it possible to do this ?
FUNCTION DlgFindReplace( cFind, oWnd, bSearch, lReplace, cReplace, cTitle, lNoUpDown, lNoMatchCase, lNoWholeWord, lCheckDown, lCheckMatchCase, lCheckWholeWord, nClrText, nClrBack, oMGet, cMemo, oBrush )
LOCAL oDlg
IF FINDREPLACEDLGISRELEASE() == .F.
FINDREPLACEDLGRELEASE( .T. )
ENDIF
oDlg := TDlgReplace() :New( cFind, oWnd, bSearch, lReplace, cReplace, cTitle, lNoUpDown, lNoMatchCase, lNoWholeWord, lCheckDown, lCheckMatchCase, lCheckWholeWord, nClrText, nClrBack, oMGet, cMemo, oBrush )
RETURN oDlg
CLASS TDlgReplace FROM TDialog
CLASSDATA nFindMsgString
DATA l410 INIT .F.
DATA l411 INIT .F.
DATA nStartReplace INIT 1
DATA cFind INIT ""
DATA bSearch INIT { || NIL }
DATA lReplace INIT .T.
DATA cReplace INIT ""
DATA cTitle INIT "Search / Replace"
DATA lNoUpDown INIT .F.
DATA lNoMatchCase INIT .F.
DATA lNoWholeWord INIT .F.
DATA lCheckDown INIT .F.
DATA lCheckMatchCase INIT .F.
DATA lCheckWholeWord INIT .F.
DATA nClrText INIT GetSysColor( COLOR_BTNTEXT )
DATA nClrBack INIT GetSysColor( COLOR_BTNFACE )
DATA oMGet
DATA cMemo INIT ""
DATA BackColor INIT CreateSolidBrush( BGcolor )
METHOD New( cText, oWnd, bSearch, lReplace, cReplace, cTitle, lNoUpDown, lNoMatchCase, lNoWholeWord, lCheckDown, lCheckMatchCase, lCheckWholeWord, nClrText, nClrBack, oMGet, cMemo ) CONSTRUCTOR
METHOD DoRunOnce()
METHOD FindReplTXTProc( oMGet, cFind, cMemo )
ENDCLASS
METHOD New( cFind, oWnd, bSearch, lReplace, cReplace, cTitle, lNoUpDown, lNoMatchCase, lNoWholeWord, lCheckDown, lCheckMatchCase, lCheckWholeWord, nClrText, nClrBack, oMGet, cMemo, oBrush ) CLASS TDlgReplace
LOCAL nFindMsgString, lForward := .T.
LOCAL bMethod
LOCAL hThread
LOCAL ox1, ox2, hWnd, hDC
LOCAL oGrp, oRadio
LOCAL nRadio := 2
DEFAULT oWnd := GetWndDefault()
DEFAULT bSearch := { || NIL }
DEFAULT lReplace := .T.
DEFAULT cReplace := ""
DEFAULT cTitle := "Find and Replace"
DEFAULT lNoUpDown := .F.
DEFAULT lNoMatchCase := .F.
DEFAULT lNoWholeWord := .F.
DEFAULT lCheckDown := .F.
DEFAULT lCheckMatchCase := .F.
DEFAULT lCheckWholeWord := .F.
DEFAULT nClrText := GetSysColor( COLOR_BTNTEXT )
DEFAULT nClrBack := GetSysColor( COLOR_BTNFACE )
::oWnd := oWnd
::cFind := cFind
::bSearch := bSearch
::lReplace := lReplace
::cReplace := cReplace
::cTitle := cTitle
::nClrText := nClrText
::nClrBack := nClrBack
::oMGet := oMGet
::cMemo := cMemo
::lNoUpDown := lNoUpDown
::lNoMatchCase := lNoMatchCase
::lNoWholeWord := lNoWholeWord
::lCheckDown := lCheckDown
::lCheckMatchCase := lCheckMatchCase
::lCheckWholeWord := lCheckWholeWord
::lModal := .F.
::lCentered := .T.
::lHelpIcon := .F.
::lTransparent := .F.
::lResize16 := .F.
::lCenterInWnd := .T.
::aControls := {}
// RegDialog( ::hWnd := FindText( cFind, oWnd:hWnd, @nFindMsgString ) )
RegDialog( ::hWnd := FindReplaceDlg( NIL, ;
lNoUpDown, ;
lNoMatchCase, ;
lNoWholeWord, ;
lCheckDown, ;
lCheckMatchCase, ;
lCheckWholeWord, ;
cFind, ;
cReplace, ;
lReplace, ;
cTitle ) )
REDEFINE BUTTON ID IDOK OF Self ;
ACTION EVAL( ::bSearch, ;
GetWindowText( GetWindow( GetWindow( ::hWnd, GW_CHILD ), GW_HWNDNEXT ) ), ;
lForward, Self )
IF lReplace = .T.
REDEFINE BUTTON ID 0x400 OF Self ;
ACTION GetWindowText( GetWindow( GetWindow( ::hWnd, GW_CHILD ), GW_HWNDNEXT ) )
REDEFINE BUTTON ID 0x401 OF Self ;
ACTION GetWindowText( GetWindow( GetWindow( ::hWnd, GW_CHILD ), GW_HWNDNEXT ) )
ELSE
REDEFINE GROUP oGrp ID 0x430 OF Self
REDEFINE RADIO oRadio VAR nRadio ID 0x420, 0x421 OF Self
ENDIF
REDEFINE BUTTON ID IDCANCEL OF Self
// REDEFINE BTNBMP ID IDCANCEL OF Self ACTION MsgInfo( "IDCANCEL" )
// REDEFINE BTNBMP ID IDCANCEL OF Self ACTION ::SendMsg( oWnd:hWnd, _HMG_MsgIDFindDlg )
REDEFINE CHECKBOX ::l410 ID 0x410 OF Self ;
ON CHANGE MsgInfo( "410" )
REDEFINE CHECKBOX ::l411 ID 0x411 OF Self ;
ON CHANGE MsgInfo( "411" )
SetWindowTheme( ::hWnd, "", "" )
IF ::Initiate()
::SetColor( nClrText, nClrBack )
::SetFocus()
ENDIF
IF ::nFindMsgString == nil
::nFindMsgString = nFindMsgString
ENDIF
INVALIDATERECT( ::hWnd )
bMethod := { || ::DoRunOnce( ::hWnd, nClrText, nClrBack, oBrush ) }
hThread := hb_threadDetach( hb_threadStart( HB_BITOR( HB_THREAD_INHERIT_PUBLIC, HB_THREAD_MEMVARS_COPY ), @bMethod ) )
::Link( .F. )
::bKeyDown := { | nKey, nFlag | IF( nKey = VK_ESCAPE, ::End(), nil ) }
RETURN Self
METHOD FindReplTXTProc( oMGet, cFind, cMemo, cReplace, lReplace ) CLASS TDlgReplace
LOCAL nPosi, nLine
LOCAL nCtrl := 0
LOCAL lRet := .T.
LOCAL nRow, nRowStart
LOCAL nCol
// FWLOG "FindReplTXTProc(", _HMG_FindReplaceOptions
IF NIL <> FindReplaceDlg.RetValue
nCtrl := FindReplaceDlg.RetValue
ENDIF
IF NIL <> FindReplaceDlg.Find
cFind := FindReplaceDlg.Find
ENDIF
IF NIL <> FindReplaceDlg.Replace
cReplace := FindReplaceDlg.Replace
ENDIF
nPosi := hb_at( UPPER( cFind ), UPPER( cMemo ), ::nStartReplace )
// FWLOG "suche ... ", cFind, ::nStartReplace, nPosi, nCtrl
IF nPosi > 0
nRowStart := oMGet:GetRow()
oMGet:nPos := nPosi
// must setfocus else NO Color
oMGet:Setfocus()
oMGet:SetSel( nPosi - 1, nPosi + LEN( cFind ) - 1 )
nRow := oMGet:GetRow()
oMGet:SendMsg( EM_LINESCROLL, 0, nRow - nRowStart - 1 )
oMGet:SetSel( nPosi - 1, nPosi + LEN( cFind ) - 1 )
DO CASE
CASE nCtrl = 1
CASE nCtrl = 2
IF lReplace
oMGet:Replace( cReplace )
ELSE
DeleteObject( ::BackColor )
ENDIF
CASE nCtrl = 3
oMGet:Replace( cReplace )
::nStartReplace := nPosi + 1
::FindReplTXTProc( oMGet, cFind, cMemo )
CASE nCtrl = 4 .OR. nCtrl = 0
DeleteObject( ::BackColor )
ENDCASE
// ::nStartReplace := nPosi + 1
::nStartReplace := nPosi
ELSE
msginfo( "no more found" )
lRet := .F.
ENDIF
RETURN lRet
static TCHAR cFindWhat[ 1024 ];
static TCHAR cReplaceWith[ 1024 ];
static FINDREPLACE FindReplace;
static HWND hDlgFindReplace = NULL;
HB_FUNC( REGISTERFINDMSGSTRING )
{
UINT MessageID = RegisterWindowMessage( FINDMSGSTRING );
hb_retnl( ( LONG ) MessageID );
}
HB_FUNC( FINDREPLACEDLG )
{
// HWND hWnd = HB_ISNIL( 1 ) ? GetActiveWindow() : ( HWND ) hb_parnl( 1 );
HWND hWnd = GetActiveWindow() ;
BOOL NoUpDown = ( BOOL ) ( HB_ISNIL( 2 ) ? FALSE : hb_parl( 2 ) );
BOOL NoMatchCase = ( BOOL ) ( HB_ISNIL( 3 ) ? FALSE : hb_parl( 3 ) );
BOOL NoWholeWord = ( BOOL ) ( HB_ISNIL( 4 ) ? FALSE : hb_parl( 4 ) );
BOOL CheckDown = ( BOOL ) ( HB_ISNIL( 5 ) ? TRUE : hb_parl( 5 ) );
BOOL CheckMatchCase = ( BOOL ) ( HB_ISNIL( 6 ) ? FALSE : hb_parl( 6 ) );
BOOL CheckWholeWord = ( BOOL ) ( HB_ISNIL( 7 ) ? FALSE : hb_parl( 7 ) );
BOOL lReplace = ( BOOL ) hb_parl( 10 );
#ifndef UNICODE
LPSTR FindWhat = ( LPSTR ) hb_parc( 8 );
LPSTR ReplaceWith = ( LPSTR ) hb_parc( 9 );
LPSTR cTitle = ( LPSTR ) hb_parc( 11 );
#else
LPWSTR FindWhat = AnsiToWide( ( TCHAR * ) hb_parc( 8 ) );
LPWSTR ReplaceWith = AnsiToWide( ( TCHAR * ) hb_parc( 9 ) );
LPWSTR cTitle = AnsiToWide( ( TCHAR * ) hb_parc( 11 ) );
#endif
if( hDlgFindReplace == NULL )
{
ZeroMemory( &FindReplace, sizeof( FindReplace ) );
lstrcpy( cFindWhat , TEXT(FindWhat ) );
lstrcpy( cReplaceWith, TEXT(ReplaceWith) );
FindReplace.lStructSize = sizeof( FindReplace );
FindReplace.Flags = ( NoUpDown ? FR_HIDEUPDOWN : 0 ) | ( NoMatchCase ? FR_HIDEMATCHCASE : 0 ) | ( NoWholeWord ? FR_HIDEWHOLEWORD : 0 )
| ( CheckDown ? FR_DOWN : 0 ) | ( CheckMatchCase ? FR_MATCHCASE : 0 ) | ( CheckWholeWord ? FR_WHOLEWORD : 0 );
FindReplace.hwndOwner = hWnd;
FindReplace.lpstrFindWhat = cFindWhat;
FindReplace.wFindWhatLen = sizeof( cFindWhat ) / sizeof( TCHAR );
FindReplace.lpstrReplaceWith = cReplaceWith;
FindReplace.wReplaceWithLen = sizeof( cReplaceWith ) / sizeof( TCHAR );
if( lReplace )
hDlgFindReplace = ReplaceText( &FindReplace );
else
hDlgFindReplace = FindText( &FindReplace );
if( HB_ISCHAR( 11 ) )
SetWindowText( hDlgFindReplace, cTitle );
ShowWindow( hDlgFindReplace, SW_SHOW );
}
#ifdef UNICODE
hb_xfree( ( TCHAR * ) FindWhat );
hb_xfree( ( TCHAR * ) ReplaceWith );
hb_xfree( ( TCHAR * ) cTitle );
#endif
#ifndef _WIN64
hb_retnl( ( LONG ) hDlgFindReplace );
#else
hb_retnll( ( LONGLONG ) hDlgFindReplace );
#endif
}
HB_FUNC( FINDREPLACEDLGGETOPTIONS )
{
#ifndef _WIN64
LPARAM lParam = (LPARAM) hb_parnl (1);
#else
LPARAM lParam = (LPARAM) hb_parnll (1);
#endif
FINDREPLACE *FR = (FINDREPLACE *) lParam;
LONG nRet = -1;
LPSTR pStr;
if ( FR->Flags & FR_DIALOGTERM )
nRet = 0;
if ( FR->Flags & FR_FINDNEXT )
nRet = 1;
if ( FR->Flags & FR_REPLACE )
nRet = 2;
if ( FR->Flags & FR_REPLACEALL )
nRet = 3;
hb_reta (6);
hb_storvnl ( (LONG) nRet, -1, 1 );
#ifndef UNICODE
hb_storvc ( FR->lpstrFindWhat, -1, 2 );
hb_storvc ( FR->lpstrReplaceWith, -1, 3 );
#else
pStr = WideToAnsi( ( WCHAR *) FR->lpstrFindWhat );
hb_storvc ( pStr, -1, 2 );
pStr = WideToAnsi( ( WCHAR *) FR->lpstrReplaceWith );
hb_storvc ( pStr, -1, 3 );
#endif
hb_storvl ( (BOOL) (FR->Flags & FR_DOWN), -1, 4 );
hb_storvl ( (BOOL) (FR->Flags & FR_MATCHCASE), -1, 5 );
hb_storvl ( (BOOL) (FR->Flags & FR_WHOLEWORD), -1, 6 );
}
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 38 guests