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

synedit: Paste: first check for synedit format then request it

Browse Source 
git-svn-id: trunk@23795 -
This commit is contained in:
mattias 2010-02-26 09:12:54 +00:00
parent 0c7ac3484f
commit 048dcb82c4
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/syneditmiscclasses.pp
View File

@ -852,20 +852,25 @@ var
ip: PInteger;
len: LongInt;
begin
Result := false;
Clear;
Result := AClipboard.GetFormat(ClipboardFormatId, FMemStream);
FTextP := nil;
// Check for embedded text
FTextP := GetTagPointer(synClipTagText);
if FTextP <> nil then begin
len := GetTagLen(synClipTagText);
if len > 0 then
(FTextP + len - 1)^ := #0
else
FTextP := nil;
if AClipboard.HasFormat(ClipboardFormatId) then begin
Result := AClipboard.GetFormat(ClipboardFormatId, FMemStream);
FTextP := GetTagPointer(synClipTagText);
if FTextP <> nil then begin
len := GetTagLen(synClipTagText);
if len > 0 then
(FTextP + len - 1)^ := #0
else
FTextP := nil;
end;
end;
// Normal text
if (FTextP = nil) and AClipboard.HasFormat(CF_TEXT) then begin
FText:= AClipboard.AsText;
Result := true;
FText := AClipboard.AsText;
if FText <> '' then begin
FTextP := @FText[1];
ip := GetTagPointer(synClipTagExtText);