+ cmCopyWin,cmPasteWin

ide/text/fpconst.pas

@@ -126,6 +126,9 @@ const
      cmBreakpointList    = 237;
      cmWatches           = 238;
      cmUntilReturn       = 239;
+     { WARNING these two are also defined in weditor.pas PM } 
+     cmCopyWin           = 240;
+     cmPasteWin          = 241;
 
      cmNotImplemented    = 1000;
      cmNewFromTemplate   = 1001;
@@ -253,6 +256,8 @@ const
      hcLastCommand       = 65535;
 
      hcShowClipboard     = hcShift+cmShowClipboard;
+     hcCopyWin           = hcShift+cmCopyWin;
+     hcPasteWin          = hcShift+cmPasteWin;                                                                                                                                                                                                                 
      hcFindProcedure     = hcShift+cmFindProcedure;
      hcObjects           = hcShift+cmObjects;
      hcModules           = hcShift+cmModules;
@@ -343,7 +348,10 @@ implementation
 END.
 {
   $Log$
-  Revision 1.24  1999-08-16 18:25:14  peter
+  Revision 1.25  1999-09-09 14:15:27  pierre
+   + cmCopyWin,cmPasteWin
+
+  Revision 1.24  1999/08/16 18:25:14  peter
     * Adjusting the selection when the editor didn't contain any line.
     * Reserved word recognition redesigned, but this didn't affect the overall
       syntax highlight speed remarkably (at least not on my Amd-K6/350).

ide/text/fphelp.pas

@@ -119,6 +119,8 @@ begin
     hcCut           : S:='Remove the selected text and put it in the clipboard';
     hcCopy          : S:='Copy the selected text in the clipboard';
     hcPaste         : S:='Insert selected text from the clipboard at the cursor position';
+    hcCopyWin       : S:='Copy the selected text in windows clipboard';
+    hcPasteWin      : S:='Insert selected text from windows clipboard at the cursor position';
     hcClear         : S:='Delete the selected text';
     hcShowClipboard : S:='Open then clipboard window';
 
@@ -154,7 +156,7 @@ begin
     hcOpenGDBWindow : S:='Open direct window to GDB';
     hcAddWatch      : S:='Add a new expression to watch';
     hcWatches       : S:='Open the Watches Window';
-    hcStack         : S:='Show calling stack';
+    hcStack         : S:='Show call stack';
     hcBreakpointList : S:='Edit breakpoints';
     hcToolsMenu     : S:='User installed tools';
     hcCalculator    : S:='Show calculator';
@@ -403,7 +405,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.21  1999-08-16 18:25:17  peter
+  Revision 1.22  1999-09-09 14:15:27  pierre
+   + cmCopyWin,cmPasteWin
+
+  Revision 1.21  1999/08/16 18:25:17  peter
     * Adjusting the selection when the editor didn't contain any line.
     * Reserved word recognition redesigned, but this didn't affect the overall
       syntax highlight speed remarkably (at least not on my Amd-K6/350).

ide/text/fpide.pas

@@ -133,6 +133,9 @@ uses
 {$ifdef linux}
   linux,
 {$endif}
+{$ifdef go32v2}
+  WinClip,
+{$endif go32v2}
   Video,Mouse,Keyboard,
   Dos,Memory,Menus,Dialogs,StdDlg,ColorSel,Commands,HelpCtx,
   AsciiTab,
@@ -199,8 +202,17 @@ end;
 
 procedure TIDEApp.InitMenuBar;
 var R: TRect;
+    WinPMI : PMenuItem;
 begin
   GetExtent(R); R.B.Y:=R.A.Y+1;
+  WinPMI:=nil;
+{$ifdef go32v2}
+  if WinClipboardSupported then
+    WinPMI:=NewLine(
+      NewItem('Cop~y~ to Windows','', kbNoKey, cmCopyWin, hcCopyWin,
+      NewItem('Paste from ~W~indows','', kbNoKey, cmPasteWin, hcPasteWin,
+      nil)));
+{$endif go32v2}
   MenuBar:=New(PAdvancedMenuBar, Init(R, NewMenu(
     NewSubMenu('~F~ile',hcFileMenu, NewMenu(
       NewItem('~N~ew','',kbNoKey,cmNew,hcNew,
@@ -224,7 +236,7 @@ begin
       NewItem('C~l~ear','Ctrl+Del', kbCtrlDel, cmClear, hcClear,
       NewLine(
       NewItem('~S~how clipboard','', kbNoKey, cmShowClipboard, hcShowClipboard,
-      nil)))))))))),
+      WinPMI)))))))))),
     NewSubMenu('~S~earch',hcSearchMenu, NewMenu(
       NewItem('~F~ind...','', kbNoKey, cmFind, hcFind,
       NewItem('~R~eplace...','', kbNoKey, cmReplace, hcReplace,
@@ -815,7 +827,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.35  1999-08-16 18:25:19  peter
+  Revision 1.36  1999-09-09 14:15:27  pierre
+   + cmCopyWin,cmPasteWin
+
+  Revision 1.35  1999/08/16 18:25:19  peter
     * Adjusting the selection when the editor didn't contain any line.
     * Reserved word recognition redesigned, but this didn't affect the overall
       syntax highlight speed remarkably (at least not on my Amd-K6/350).