paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 15:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* try to fix webbug 2931 completely

Browse Source
This commit is contained in:
pierre 2004-02-13 06:26:46 +00:00
parent be67726f8f
commit 38d932049c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/wviews.pas
View File

@ -443,6 +443,7 @@ begin
begin
WinClipEmpty:=GetTextWinClipboardSize=0;
SetCmdState(FromWinClipCmds,Not WinClipEmpty);
PPW^.disabled:=WinClipEmpty;
end;
{$endif WinClipSupported}
Current := Menu^.Default;
@ -461,12 +462,14 @@ begin
begin
WinClipEmpty:=false;
SetCmdState(FromWinClipCmds,true);
PPW^.disabled:=WinClipEmpty;
DrawView;
end
else if Not WinClipEmpty and (GetTextWinClipboardSize=0) then
begin
WinClipEmpty:=true;
SetCmdState(FromWinClipCmds,false);
PPW^.disabled:=WinClipEmpty;
DrawView;
end;
end;
@ -2532,7 +2535,10 @@ end;
END.
{
$Log$
Revision 1.7 2004-02-10 07:16:28 pierre
Revision 1.8 2004-02-13 06:26:46 pierre
* try to fix webbug 2931 completely
Revision 1.7 2004/02/10 07:16:28 pierre
* fix webbug 2932
Revision 1.6 2002/09/09 07:06:53 pierre