paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +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

9
components/synedit/syneditmiscclasses.pp
View File

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