... that "commdlg_FindReplace" also work with RTF Problem : Fivewin have "only" CLASS TDlgFind ( c:\fwh\source\classes\dlgfind.prg ) --- have "begin" to re-write HMG for FiveWin to REDIFEINE "commdlg_FindReplace" FUNCTION DlgFindReplace( cFind, ...
// C:\FWH...\SAMPLES\DLGFIND2.PRG Para FWH22.06 o Superior. By Jimmy.// Class TDlgFind test#Include "FiveWin.ch"FUNCTION Main() LOCAL oWnd, oGet, cMemo := "This is a test in GET" LOCAL bSearch, cFind := "test" ...
hi, here working CODE // Class TDlgFind test#include "FiveWin.ch"function Main() local oWnd, oGet, cMemo := "This is a test in GET" local bSearch, cFind := "test" // add this DEFINE WINDOW oWnd @ 2, 2 GET oGet VAR cMemo SIZE 200, 25 ...
... change ID while it is from Windows ;) i use that "search/replace" Dialog which e.g. Notepad.EXE have based on c:\fwh\source\classes\dlgfind.prg i found out that i can REDEFINE "Windows standard Common Dialog" it have to do with (undocumented) Function RegDialog() as i want ...
hi, have look into c:\fwh\source\classes\dlgfind.prg and found REDEFINE / ACTION ... hm ... :idea: have made a copy and change into // RegDialog( ::hWnd := FindText( cText, oWnd:hWnd, @nFindMsgString ) ) RegDialog( ::hWnd := FindReplaceDlg( ...