diff --git a/debugger/breakpointsdlg.pp b/debugger/breakpointsdlg.pp index 54fbf5cb47..d0c82ac5be 100644 --- a/debugger/breakpointsdlg.pp +++ b/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 diff --git a/debugger/dbgoutputform.pp b/debugger/dbgoutputform.pp index 7461801854..5d17d050e1 100644 --- a/debugger/dbgoutputform.pp +++ b/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 diff --git a/debugger/watchesdlg.pp b/debugger/watchesdlg.pp index 23403aae84..a1833da973 100644 --- a/debugger/watchesdlg.pp +++ b/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