paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 15:39:24 +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 begin
WinClipEmpty:=GetTextWinClipboardSize=0; WinClipEmpty:=GetTextWinClipboardSize=0;
SetCmdState(FromWinClipCmds,Not WinClipEmpty); SetCmdState(FromWinClipCmds,Not WinClipEmpty);
PPW^.disabled:=WinClipEmpty;
end; end;
{$endif WinClipSupported} {$endif WinClipSupported}
Current := Menu^.Default; Current := Menu^.Default;
@ -461,12 +462,14 @@ begin
begin begin
WinClipEmpty:=false; WinClipEmpty:=false;
SetCmdState(FromWinClipCmds,true); SetCmdState(FromWinClipCmds,true);
PPW^.disabled:=WinClipEmpty;
DrawView; DrawView;
end end
else if Not WinClipEmpty and (GetTextWinClipboardSize=0) then else if Not WinClipEmpty and (GetTextWinClipboardSize=0) then
begin begin
WinClipEmpty:=true; WinClipEmpty:=true;
SetCmdState(FromWinClipCmds,false); SetCmdState(FromWinClipCmds,false);
PPW^.disabled:=WinClipEmpty;
DrawView; DrawView;
end; end;
end; end;
@ -2532,7 +2535,10 @@ end;
END. END.
{ {
$Log$ $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 * fix webbug 2932
Revision 1.6 2002/09/09 07:06:53 pierre Revision 1.6 2002/09/09 07:06:53 pierre