|
@@ -849,7 +849,7 @@ implementation
|
|
|
uses
|
|
uses
|
|
|
Strings,Video,MsgBox,App,Validate,
|
|
Strings,Video,MsgBox,App,Validate,
|
|
|
{$ifdef WinClipSupported}
|
|
{$ifdef WinClipSupported}
|
|
|
- WinClip,
|
|
|
|
|
|
|
+ FvClip,
|
|
|
{$endif WinClipSupported}
|
|
{$endif WinClipSupported}
|
|
|
{$ifdef TEST_REGEXP}
|
|
{$ifdef TEST_REGEXP}
|
|
|
{$ifdef USE_OLD_REGEXP}
|
|
{$ifdef USE_OLD_REGEXP}
|
|
@@ -6509,7 +6509,7 @@ begin
|
|
|
OK:=false
|
|
OK:=false
|
|
|
else
|
|
else
|
|
|
OK:=GetTextWinClipBoardData(p,l);
|
|
OK:=GetTextWinClipBoardData(p,l);
|
|
|
- if OK then
|
|
|
|
|
|
|
+ if OK and assigned(p) then
|
|
|
begin
|
|
begin
|
|
|
PasteText(p,l);
|
|
PasteText(p,l);
|
|
|
{ we must free the allocated memory }
|
|
{ we must free the allocated memory }
|