workaround for inherited bug in fpc 1.9

git-svn-id: trunk@4929 -

designer/columndlg.pp

@@ -77,7 +77,7 @@ implementation
 
 constructor TColumnDlg.Create(AOwner : TComponent);
 Begin
-  inherited;
+  inherited Create(AOwner);
 //  if LazarusResources.Find(Classname)=nil then
   begin
      Caption := 'Column Editor';

designer/controlselection.pp

@@ -706,7 +706,7 @@ end;
 constructor TControlSelection.Create;
 var g:TGrabIndex;
 begin
-  inherited;
+  inherited Create;
   FControls:=TList.Create;
   FGrabberSize:=5;
   FMarkerSize:=5;

designer/objectinspector.pp

@@ -579,7 +579,7 @@ end;
 
 procedure TOIPropertyGrid.WMSize(var Msg: TWMSize);
 begin
-  inherited;
+  inherited WMSize(Msg);
   UpdateScrollBar;
 end;
 

ide/customformeditor.pp

@@ -664,7 +664,7 @@ begin
   FComponentInterfaces.Free;
   FSelectedComponents.Free;
   FNonControlForms.Free;
-  inherited;
+  inherited Destroy;
 end;
 
 procedure TCustomFormEditor.SetSelectedComponents(

ide/formeditor.pp

@@ -61,12 +61,12 @@ end;
 
 constructor TFormEditor.Create;
 Begin
-  inherited;
+  inherited Create;
 end;
 
 destructor TFormEditor.destroy;
 Begin
-  inherited;
+  inherited Destroy;
 end;
 
 procedure TFormEditor.PaintAllDesignerItems;

ide/main.pp

@@ -1519,7 +1519,7 @@ end;
 
 procedure TMainIDE.SetupFileMenu;
 begin
-  inherited;
+  inherited SetupFileMenu;
   itmFileNewUnit.OnClick := @mnuNewUnitClicked;
   itmFileNewForm.OnClick := @mnuNewFormClicked;
   itmFileNewOther.OnClick := @mnuNewOtherClicked;
@@ -1539,7 +1539,7 @@ end;
 
 procedure TMainIDE.SetupEditMenu;
 begin
-  inherited;
+  inherited SetupEditMenu;
   itmEditUndo.OnClick:=@mnuEditUndoClicked;
   itmEditRedo.OnClick:=@mnuEditRedoClicked;
   itmEditCut.OnClick:=@mnuEditCutClicked;
@@ -1584,13 +1584,13 @@ end;
 
 procedure TMainIDE.SetupSearchMenu;
 begin
-  inherited;
+  inherited SetupSearchMenu;
   itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
 end;
 
 procedure TMainIDE.SetupViewMenu;
 begin
-  inherited;
+  inherited SetupViewMenu;
   itmViewInspector.OnClick := @mnuViewInspectorClicked;
   itmViewSourceEditor.OnClick := @mnuViewSourceEditorClicked;
   itmViewCodeExplorer.OnClick := @mnuViewCodeExplorerClick;
@@ -1604,7 +1604,7 @@ end;
 
 procedure TMainIDE.SetupProjectMenu;
 begin
-  inherited;
+  inherited SetupProjectMenu;
   itmProjectNew.OnClick := @mnuNewProjectClicked;
   itmProjectNewFromFile.OnClick := @mnuNewProjectFromFileClicked;
   itmProjectOpen.OnClick := @mnuOpenProjectClicked;
@@ -1622,7 +1622,7 @@ end;
 
 procedure TMainIDE.SetupRunMenu;
 begin
-  inherited;
+  inherited SetupRunMenu;
   itmRunMenuBuild.OnClick := @mnuBuildProjectClicked;
   itmRunMenuBuildAll.OnClick := @mnuBuildAllProjectClicked;
   itmRunMenuAbortBuild.OnClick := @mnuAbortBuildProjectClicked;
@@ -1647,7 +1647,7 @@ end;
 
 procedure TMainIDE.SetupToolsMenu;
 begin
-  inherited;
+  inherited SetupToolsMenu;
   itmToolConfigure.OnClick := @mnuToolConfigureClicked;
   itmToolSyntaxCheck.OnClick := @mnuToolSyntaxCheckClicked;
   itmToolGuessUnclosedBlock.OnClick := @mnuToolGuessUnclosedBlockClicked;
@@ -1664,7 +1664,7 @@ end;
 
 procedure TMainIDE.SetupEnvironmentMenu;
 begin
-  inherited;
+  inherited SetupEnvironmentMenu;
   itmEnvGeneralOptions.OnClick := @mnuEnvGeneralOptionsClicked;
   itmEnvEditorOptions.OnClick := @mnuEnvEditorOptionsClicked;
   itmEnvCodeToolsOptions.OnClick := @mnuEnvCodeToolsOptionsClicked;
@@ -1679,7 +1679,7 @@ end;
 
 procedure TMainIDE.SetupHelpMenu;
 begin
-  inherited;
+  inherited SetupHelpMenu;
   itmHelpAboutLazarus.OnClick := @mnuHelpAboutLazarusClicked;
 end;
 
@@ -10247,6 +10247,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.683  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.682  2003/12/21 13:58:05  mattias
   renamed DirectoryExists to DirPathExists to reduce ambigiousity
 

ide/uniteditor.pp

@@ -4505,7 +4505,7 @@ end;
 
 constructor TSynEditPlugin1.Create(AOwner: TCustomSynEdit);
 Begin
-  inherited;
+  inherited Create(AOwner);
 end;
 
 procedure TSynEditPlugin1.AfterPaint(ACanvas: TCanvas; AClip: TRect; FirstLine,

lcl/comctrls.pp

@@ -552,7 +552,7 @@ type
     property OnColumnClick;
     property OnDblClick;
     property OnMouseDown;
-    property OnMOuseUp;
+    property OnMouseUp;
     property OnKeyPress;
     property OnKeyUp;
     property OnKeyDown;
@@ -1595,11 +1595,6 @@ type
     procedure UpdateMaxRight;
     procedure UpdateTopItem;
     procedure UpdateScrollbars;
-    procedure WMHScroll(var Msg: TLMScroll); message LM_HSCROLL;
-    procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
-    procedure WMLButtonDown(var AMessage: TLMLButtonDown); message LM_LBUTTONDOWN;
-    procedure WMNotify(var AMessage: TLMNotify); message LM_NOTIFY;
-    procedure WMSize(var Msg: TLMSize); message LM_SIZE;
     procedure InternalSelectionChanged;
   protected
     FChangeTimer: TTimer;
@@ -1657,6 +1652,11 @@ type
     procedure WndProc(var Message: TLMessage); override;
     procedure UpdateInsertMark(X,Y: integer); virtual;
     procedure DoSelectionChanged; virtual;
+    procedure WMHScroll(var Msg: TLMScroll); message LM_HSCROLL;
+    procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
+    procedure WMLButtonDown(var AMessage: TLMLButtonDown); message LM_LBUTTONDOWN;
+    procedure WMNotify(var AMessage: TLMNotify); message LM_NOTIFY;
+    procedure WMSize(var Msg: TLMSize); message LM_SIZE;
   protected
     property AutoExpand: Boolean read GetAutoExpand write SetAutoExpand default False;
     property BorderStyle: TBorderStyle
@@ -1936,6 +1936,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.93  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.92  2003/11/30 18:35:19  mattias
   fixed fpc 1.9.1 warns
 

lcl/include/bitmap.inc

@@ -83,7 +83,7 @@ begin
     end;
   {$ENDIF}
   end else
-    inherited;
+    inherited Assign(Source);
 end;
 
 procedure TBitmap.Draw(ACanvas: TCanvas; const ARect: TRect);
@@ -1013,6 +1013,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.54  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.53  2003/11/26 22:05:57  mattias
   fixed TIcon
 

lcl/include/customcheckgroup.inc

@@ -161,7 +161,7 @@ end;
 procedure TCustomCheckGroup.WMSize(var Message: TLMSize);
 begin
   DoPositionButtons;
-  inherited;
+  inherited WMSize(Message);
 end;
 
 procedure TCustomCheckGroup.DefineProperties(Filer: TFiler);
@@ -256,6 +256,9 @@ end;
 
 {
   $Log$
+  Revision 1.3  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.2  2003/03/18 00:00:05  mattias
   added TCheckGroup.CheckEnabled
 

lcl/include/customimage.inc

@@ -35,7 +35,7 @@ begin
   FPicture.OnChange := nil;
   FPicture.Graphic := nil;
   FPicture.Free;
-  inherited;
+  inherited Destroy;
 end;
 
 procedure TCustomImage.SetPicture(const AValue: TPicture);

lcl/include/custompage.inc

@@ -127,7 +127,7 @@ begin
   and (TCustomNotebook(Parent).ActivePageComponent<>Self) then
     Message.Result:=0 // no hit
   else
-    inherited;
+    inherited CMHitTest(Message);
   {writeln('TCustomPage.CMHitTest A ',Name,' ',(Parent<>nil),' ',
     (Parent is TCustomNotebook),' ',
     (TCustomNotebook(Parent).ActivePageComponent<>Self),

lcl/include/customradiogroup.inc

@@ -279,7 +279,7 @@ end;
 procedure TCustomRadioGroup.WMSize(var Message: TLMSize);
 begin
   if HandleAllocated then DoPositionButtons;
-  inherited;
+  inherited WMSize(Message);
 end;
 
 {------------------------------------------------------------------------------
@@ -395,6 +395,9 @@ end;
 
 {
   $Log$
+  Revision 1.25  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.24  2003/11/15 13:38:21  mattias
   fixed using protected member
 

lcl/include/filedialog.inc

@@ -36,7 +36,7 @@ destructor TFileDialog.Destroy;
 begin
   FHistoryList.Free;
   FFiles.Free;
-  inherited;
+  inherited Destroy;
 end;
 
 {------------------------------------------------------------------------------}
@@ -265,6 +265,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.13  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.12  2003/09/08 12:21:48  mattias
   added fpImage reader/writer hooks to TBitmap
 

lcl/include/hintwindow.inc

@@ -46,7 +46,7 @@ destructor THintWindow.Destroy;
 begin
   fAutoHideTimer.Free;
   fAutoHideTimer:=nil;
-  inherited;
+  inherited Destroy;
 end;
 
 Procedure THintWindow.SetHideInterval(Value : Integer);

lcl/include/listcolumn.inc

@@ -39,7 +39,7 @@ end;
 
 constructor TListColumn.Create(ACollection: TCollection);
 begin
-  inherited;
+  inherited Create(ACollection);
   FAlignment := taLeftJustify;
   FCaption := '';
   FWidth := 50;
@@ -53,7 +53,7 @@ end;
 
 destructor TListColumn.Destroy;
 begin
-  inherited;
+  inherited Destroy;
   Changed(False);  
 end;
 
@@ -121,6 +121,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.5  2003/12/21 16:01:58  mattias
+  workaround for inherited bug in fpc 1.9
+
   Revision 1.4  2002/10/09 11:46:04  lazarus
   MG: fixed loading TListView from stream
 

lcl/include/scrollingwincontrol.inc

@@ -94,7 +94,7 @@ end;
 
 procedure TScrollingWinControl.WMSize(var Message: TLMSize);
 begin
-  inherited;
+  inherited WMSize(Message);
   if AutoScroll or HorzScrollBar.Visible or VertScrollBar.Visible
   then
     UpdateScrollBars;

lcl/include/statusbar.inc

@@ -189,7 +189,7 @@ var
   R : TRect;
   PW : Longint;
 Begin
-  inherited;
+  inherited WMPaint(Msg);
   FillChar(Style, SizeOf(Style),0);
   With Style do begin
     Layout := tlCenter;

lcl/include/treeview.inc

@@ -2756,34 +2756,6 @@ begin
   end;
 end;
 
-{procedure TCustomTreeView.CMColorChanged(var Message: TLMessage);
-begin
-  inherited;
-  RecreateWnd;
-end;}
-
-{procedure TCustomTreeView.CMCtl3DChanged(var Message: TLMessage);
-begin
-  inherited;
-  if FBorderStyle = bsSingle then RecreateWnd;
-end;}
-
-{procedure TCustomTreeView.CMFontChanged(var Message: TLMessage);
-begin
-  inherited;
-  TreeView_SetTextColor(Handle, ColorToRGB(Font.Color));
-end;}
-
-{procedure TCustomTreeView.CMSysColorChange(var Message: TLMessage);
-begin
-  inherited;
-  if not (csLoading in ComponentState) then
-  begin
-    Message.Msg := WM_SYSCOLORCHANGE;
-    DefaultHandler(Message);
-  end;
-end;}
-
 procedure TCustomTreeView.BeginUpdate;
 begin
   inc(FUpdateCount);
@@ -2969,7 +2941,7 @@ begin
   // ToDo: implement Drag&Drop
   //if Value <> DragMode then
   //  SetComCtlStyle(Self, TVS_DISABLEDRAGDROP, Value = dmManual);
-  inherited;
+  inherited SetDragMode(Value);
 end;
 
 procedure TCustomTreeView.SetOptions(NewOptions: TTreeViewOptions);
@@ -4955,14 +4927,14 @@ begin
       Result := 1;
     end
     else}
-  inherited;
+  inherited WMNotify(AMessage);
 end;
 
 procedure TCustomTreeView.WMSize(var Msg: TLMSize);
 begin
   FStates:=FStates+[tvsScrollbarChanged,
                     tvsBottomItemNeedsUpdate];
-  inherited;
+  inherited WMSize(Msg);
 end;
 
 procedure TCustomTreeView.InternalSelectionChanged;