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

* fix problem with Paste from Menu web bug #2173

Browse Source
This commit is contained in:
pierre 2003-01-21 11:03:56 +00:00
parent dc14489292
commit 30d8d499de
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/weditor.pas
View File

@ -6647,6 +6647,9 @@ begin
SelEnd.X:=length(GetDisplayText(SelEnd.Y)); SelEnd.X:=length(GetDisplayText(SelEnd.Y));
end; end;
{ we change the CurCommandSet, but only if we are top view }
if ((State and sfFocused)<>0) then
begin
Enable:=((SelStart.X<>SelEnd.X) or (SelStart.Y<>SelEnd.Y)) and (Clipboard<>nil); Enable:=((SelStart.X<>SelEnd.X) or (SelStart.Y<>SelEnd.Y)) and (Clipboard<>nil);
SetCmdState(ToClipCmds,Enable and (Clipboard<>@Self)); SetCmdState(ToClipCmds,Enable and (Clipboard<>@Self));
SetCmdState(NulClipCmds,Enable); SetCmdState(NulClipCmds,Enable);
@ -6659,6 +6662,7 @@ begin
SetCmdState(UndoCmd,(GetUndoActionCount>0)); SetCmdState(UndoCmd,(GetUndoActionCount>0));
SetCmdState(RedoCmd,(GetRedoActionCount>0)); SetCmdState(RedoCmd,(GetRedoActionCount>0));
Message(Application,evBroadcast,cmCommandSetChanged,nil); Message(Application,evBroadcast,cmCommandSetChanged,nil);
end;
DrawView; DrawView;
end; end;
@ -7250,7 +7254,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.39 2002-12-18 01:18:10 pierre Revision 1.40 2003-01-21 11:03:56 pierre
* fix problem with Paste from Menu web bug 2173
Revision 1.39 2002/12/18 01:18:10 pierre
+ Cut/Copy/Paste added to TEditorInputLine + Cut/Copy/Paste added to TEditorInputLine
Revision 1.38 2002/12/17 13:48:28 pierre Revision 1.38 2002/12/17 13:48:28 pierre