pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix visual controls notification for "replace all".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4320 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-09-09 15:49:33 +00:00
parent 1641355a19
commit 51ae4d34e1
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpspreadsheet/fpssearch.pas
View File

@ -113,6 +113,8 @@ begin
// to do: RegEx to be added
end;
end;
Result := true;
end;
function TsSearchEngine.ExecSearch(var AWorksheet: TsWorksheet;
@ -492,6 +494,7 @@ var
begin
FStopping := false;
// Lock the visual components in case of "replace all" and "no confirmation"
if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
FWorkbook.DisableNotifications;
@ -516,6 +519,8 @@ begin
end;
end;
// Unlock the visual components in case of "replace all" and "no confirmation"
// and select the last replaced cell
if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
begin
FWorkbook.EnableNotifications;
@ -536,6 +541,7 @@ var
begin
FStopping := false;
// Lock the visual components in case of "replace all" and "no confirmation"
if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
FWorkbook.DisableNotifications;
@ -550,7 +556,6 @@ begin
Result := ExecReplace(AWorksheet, ARow, ACol);
if roReplaceAll in FReplaceParams.Options then
begin
FWorkbook.DisableNotifications;
while (not FStopping) and FindNext(FSearchParams, AWorksheet, ARow, ACol) do
begin
r := ARow;
@ -561,6 +566,8 @@ begin
end;
end;
// Unlock the visual components in case of "replace all" and "no confirmation"
// and select the last replaced cell
if AReplaceParams.Options * [roReplaceAll, roConfirm] = [roReplaceAll] then
begin
FWorkbook.EnableNotifications;