paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 03:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: find prompt: shorten texts, bug #23493

Browse Source 
git-svn-id: trunk@39575 -
This commit is contained in:
mattias 2012-12-18 11:51:46 +00:00
parent e64277d061
commit 39dde6cf13
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourceeditor.pp
View File

@ -2886,6 +2886,16 @@ end;
procedure TSourceEditor.OnReplace(Sender: TObject; const ASearch, AReplace:
string; Line, Column: integer; var Action: TSynReplaceAction);
function Shorten(const s: string): string;
const
MAX_LEN=300;
begin
Result:=s;
if Length(Result)>MAX_LEN then
Result:=LeftStr(Result, MAX_LEN)+'...';
end;
var a,x,y:integer;
AText:AnsiString;
begin
@ -2896,7 +2906,7 @@ begin
CenterCursorHoriz(hcmSoftKeepEOL);
AText:=Format(lisUEReplaceThisOccurrenceOfWith,
['"', ASearch, '"', LineEnding, '"', AReplace, '"']);
['"', Shorten(ASearch), '"', LineEnding, '"', Shorten(AReplace), '"']);
GetDialogPosition(300,150,X,Y);
a:=MessageDlgPos(AText,mtconfirmation,