paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: update InitClipboard to initialize the internal structure for monitoring pasteboards

Browse Source 
git-svn-id: trunk@58689 -
This commit is contained in:
dmitry 2018-08-11 17:19:45 +00:00
parent 8727f02d27
commit c9171d1916
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoalclintf.inc
View File

@ -150,10 +150,20 @@ begin
end;
procedure TCocoaWidgetSet.InitClipboard;
var
t : TClipboardType;
begin
PrimarySelection := NSPasteboard.pasteboardWithUniqueName();
SecondarySelection := NSPasteboard.pasteboardWithUniqueName();
ClipboardFormats := TFPObjectList.Create(True);
Pasteboards[ctPrimarySelection].pasteboard := PrimarySelection;
Pasteboards[ctSecondarySelection].pasteboard := SecondarySelection;
Pasteboards[ctClipboard].pasteboard := NSPasteboard.generalPasteboard;
for t := Low(TClipboardType) to High(TClipboardType) do
if Assigned(Pasteboards[t].pasteboard) then
Pasteboards[t].changeCount := Pasteboards[t].pasteboard.changeCount;
end;
procedure TCocoaWidgetSet.FreeClipboard;