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

always request ownership when about to modify buffer

Browse Source 
git-svn-id: trunk@6473 -
This commit is contained in:
micha 2005-01-03 16:32:13 +00:00
parent b632390f1e
commit 3ddfc40ef5
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/clipbrd.inc
View File

@ -66,20 +66,21 @@ begin
Result:=FCount-1;
while (Result>=0) and (FData[Result].FormatID<>FormatID) do dec(Result);
if (Result<0) and CreateIfNotExists then begin
inc(FCount);
NewSize:=SizeOf(TClipboardData)*FCount;
if FData<>nil then
ReallocMem(FData,NewSize)
else
GetMem(FData,NewSize);
Result:=FCount-1;
FData[Result].FormatID:=FormatID;
FData[Result].Stream:=TMemoryStream.Create;
FSupportedFormatsChanged:=true;
if (not GetOwnerShip) then begin
if not GetOwnerShip then begin
Result:=-1;
raise Exception.Create('Unable to get clipboard ownership for '+
ClipboardTypeName[ClipboardType]);
end else begin
inc(FCount);
NewSize:=SizeOf(TClipboardData)*FCount;
if FData<>nil then
ReallocMem(FData,NewSize)
else
GetMem(FData,NewSize);
Result:=FCount-1;
FData[Result].FormatID:=FormatID;
FData[Result].Stream:=TMemoryStream.Create;
FSupportedFormatsChanged:=true;
end;
end;
//DebugLn('[TClipboard.IndexOfCachedFormatID] END ',ClipboardTypeName[ClipboardType]
@ -691,6 +692,9 @@ end;
{
$Log$
Revision 1.19 2005/01/03 16:32:13 micha
always request ownership when about to modify buffer
Revision 1.18 2004/08/15 14:39:36 mattias
implemented platform independent binary object streamer