paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 06:38:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: SynPopupMenu, better check for text empty. Issue #38792

Browse Source
This commit is contained in:
Martin 2023-07-06 10:59:17 +02:00
parent 60417279f4
commit dc5cf0ed15
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synpopupmenu.pas
View File

@ -121,7 +121,7 @@ begin
meCopy: Items[i].Enabled := SelAvail;
mePaste: Items[i].Enabled := CanPaste;
meDelete: Items[i].Enabled := SelAvail and not ReadOnly;
meSelectAll: Items[i].Enabled := Trim(Lines.Text) <> '';
meSelectAll: Items[i].Enabled := (Lines.Count > 1) or (Lines.Text <> '');
end;
end;
inherited;