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

LCL, don't paste to or cut from grid if it's not editable, issue #12163

Browse Source 
git-svn-id: trunk@16625 -
This commit is contained in:
jesus 2008-09-17 14:30:27 +00:00
parent ca8df86d4b
commit ed57405eeb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/grids.pas
View File

@ -8135,14 +8135,15 @@ end;
procedure TCustomStringGrid.DoCutToClipboard;
begin
doCopyToClipboard;
//if not GridReadOnly then
Clean(Selection, []);
if goEditing in Options then begin
doCopyToClipboard;
Clean(Selection, []);
end;
end;
procedure TCustomStringGrid.DoPasteFromClipboard;
begin
if Clipboard.HasFormat(CF_TEXT) then begin
if (goEditing in Options) and Clipboard.HasFormat(CF_TEXT) then begin
SelectionSetText(Clipboard.AsText);
end;
end;