paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 02:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

workaround for inherited bug in fpc 1.9

Browse Source 
git-svn-id: trunk@4929 -
This commit is contained in:
mattias 2003-12-21 16:01:58 +00:00
parent 86308bf245
commit db42e6ca3e
19 changed files with 57 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/columndlg.pp
View File

@ -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';

2
designer/controlselection.pp
View File

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

2
designer/objectinspector.pp
View File

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

2
ide/customformeditor.pp
View File

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

4
ide/formeditor.pp
View File

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

21
ide/main.pp
View File

@ -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

2
ide/uniteditor.pp
View File

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

15
lcl/comctrls.pp
View File

@ -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

5
lcl/include/bitmap.inc
View File

@ -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

5
lcl/include/customcheckgroup.inc
View File

@ -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

2
lcl/include/customimage.inc
View File

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

2
lcl/include/custompage.inc
View File

@ -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),

5
lcl/include/customradiogroup.inc
View File

@ -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

5
lcl/include/filedialog.inc
View File

@ -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

2
lcl/include/hintwindow.inc
View File

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

7
lcl/include/listcolumn.inc
View File

@ -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

2
lcl/include/scrollingwincontrol.inc
View File

@ -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;

2
lcl/include/statusbar.inc
View File

@ -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;

34
lcl/include/treeview.inc
View File

@ -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;