MWE:

- Removed menucreation from loaded since streaming works

git-svn-id: trunk@1721 -

debugger/breakpointsdlg.pp

@@ -72,18 +72,10 @@ type
 
     procedure UpdateItem(const AItem: TListItem; const ABreakpoint: TDBGBreakPoint);
   protected
-    procedure Loaded; override;
     procedure SetDebugger(const ADebugger: TDebugger); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-  published
-    // publish some properties until fpcbug #1888 is fixed
-    property Top;
-    property Left;
-    property Width; 
-    property Height; 
-    property Caption;
   end;
 
 
@@ -143,23 +135,6 @@ begin
   inherited;
 end;
 
-procedure TBreakPointsDlg.Loaded;
-begin
-  inherited Loaded;
-  
-  // Not yet through resources
-  mnuPopUp.Items.Add(popAdd);
-  popAdd.Add(popAddSourceBP);
-  mnuPopUp.Items.Add(N1);
-  mnuPopUp.Items.Add(popProperties);
-  mnuPopUp.Items.Add(popEnabled);
-  mnuPopUp.Items.Add(popDelete);
-  mnuPopUp.Items.Add(N2);
-  mnuPopUp.Items.Add(popDisableAll);
-  mnuPopUp.Items.Add(popEnableAll);
-  mnuPopUp.Items.Add(popDeleteAll);
-end;
-
 procedure TBreakPointsDlg.lvBreakPointsClick(Sender: TObject);
 begin
 end;
@@ -285,6 +260,10 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.7  2002/05/30 22:45:57  lazarus
+  MWE:
+    - Removed menucreation from loaded since streaming works
+
   Revision 1.6  2002/05/10 06:57:47  lazarus
   MG: updated licenses
 

debugger/dbgoutputform.pp

@@ -51,13 +51,6 @@ type
   public
     procedure AddText(const AText: String);
     procedure Clear;
-  published
-    // publish some properties until fpcbug #1888 is fixed
-    property Top;
-    property Left;
-    property Width; 
-    property Height; 
-    property Caption;
   end;
 
 implementation
@@ -88,9 +81,6 @@ begin
   
   // Not yet through resources
   txtOutput.Scrollbars := ssBoth;  
-  
-  // Not yet through resources
-  mnuPopUp.Items.Add(popClear);
 end;
 
 procedure TDbgOutputForm.popClearClick(Sender: TObject);
@@ -104,6 +94,10 @@ initialization
 end.
 { =============================================================================
   $Log$
+  Revision 1.8  2002/05/30 22:45:57  lazarus
+  MWE:
+    - Removed menucreation from loaded since streaming works
+
   Revision 1.7  2002/05/10 07:00:08  lazarus
   MG: fixed typo
 

debugger/watchesdlg.pp

@@ -72,18 +72,10 @@ type
 
     procedure UpdateItem(const AItem: TListItem; const AWatch: TDBGWatch);
   protected
-    procedure Loaded; override;
     procedure SetDebugger(const ADebugger: TDebugger); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-  published         
-    // publish some properties until fpcbug #1888 is fixed
-    property Top;
-    property Left;
-    property Width; 
-    property Height; 
-    property Caption;
   end;
 
 
@@ -124,23 +116,6 @@ begin
   else Result := TDBGWatch(Item.Data);
 end;
 
-procedure TWatchesDlg.Loaded;
-begin
-  inherited Loaded;
-  
-  // Not yet through resources
-  mnuPopUp.Items.Add(popAdd);
-  mnuPopUp.Items.Add(N1);
-  mnuPopUp.Items.Add(popProperties);
-  mnuPopUp.Items.Add(popEnabled);
-  mnuPopUp.Items.Add(popDelete);
-  mnuPopUp.Items.Add(N2);
-  mnuPopUp.Items.Add(popDisableAll);
-  mnuPopUp.Items.Add(popEnableAll);
-  mnuPopUp.Items.Add(popDeleteAll);
-
-end;
-
 procedure TWatchesDlg.lvWatchesClick(Sender: TObject);
 begin
 end;
@@ -289,6 +264,10 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.4  2002/05/30 22:45:57  lazarus
+  MWE:
+    - Removed menucreation from loaded since streaming works
+
   Revision 1.3  2002/05/30 21:53:56  lazarus
   MG: fixed form streaming of not direct TForm descendents