Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0002217 [JEDI VCL] 00 JVCL Components minor always 2004-10-12 13:41 2004-10-12 14:40
Reporter anonymous View Status public  
Assigned To user72
Priority normal Resolution fixed  
Status resolved   Product Version 3.00 BETA 2
Summary 0002217: JvFindReplace doesn't start ReplaceAll operation form caret position
Description It's usual to start a ReplaceAll option from the current caret position. JvFindReplace ignores the caret position.

In ReplaceAll, replace
  FoundPos := FindInText(Txt, SearchText, 0, TLen, True);
with
  FoundPos := FindInText(Txt, SearchText, EditControl.SelStart + EditControl.SelLength, TLen, True);

Additional Information procedure TForm1.Button1Click(Sender: TObject);
var
  JvFindReplace: TJvFindReplace;
begin
  Edit1.SetFocus;
  Edit1.Text := ' me abc me ';
  Edit1.SelStart := 5;
  Edit1.SelLength := 1;
  JvFindReplace := TJvFindReplace.Create(self);
  try
    JvFindReplace.EditControl := Edit1;
    JvFindReplace.ShowDialogs := false;
    JvFindReplace.ReplaceAll('me','z');
  finally
    JvFindReplace.Free;
  end;
end;
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0005366)
user72
2004-10-12 14:40

Fixed in CVS

- Issue History
Date Modified Username Field Change
2004-10-12 13:41 anonymous New Issue
2004-10-12 13:42 Simes Issue Monitored: Simes
2004-10-12 14:40 user72 Status new => resolved
2004-10-12 14:40 user72 Resolution open => fixed
2004-10-12 14:40 user72 Assigned To => user72
2004-10-12 14:40 user72 Note Added: 0005366
2004-10-12 23:28 Simes Issue End Monitor: Simes


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker