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

Sparta docked form designer: fix few warnings. Issue #31130, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@53709 -
This commit is contained in:
juha 2016-12-17 22:57:58 +00:00
parent 46ff8dcc47
commit 8c4a0ba005
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -70,7 +70,7 @@ type
property LastScreenshot: TBitmap read FLastScreenshot;
property PopupParent: TSourceEditorWindowInterface read FPopupParent write SetPopupParent;
constructor Create(AForm: TCustomForm);
constructor Create(AForm: TCustomForm); reintroduce;
destructor Destroy; override;
end;
@ -113,12 +113,12 @@ type
procedure SetActiveDesignFormData(const AValue: TDesignFormData);
protected
procedure WndMethod(var TheMessage: TLMessage);
constructor Create(AForm: TSourceEditorWindowInterface);
destructor Destroy; override;
procedure OnChangeBounds(Sender: TObject);
procedure AddPageCtrl(ASrcEditor: TSourceEditorInterface; APage: TModulePageControl);
procedure RemovePageCtrl(ASrcEditor: TSourceEditorInterface);
public
constructor Create(AForm: TSourceEditorWindowInterface);
destructor Destroy; override;
property ActiveDesignFormData: TDesignFormData read FActiveDesignFormData write SetActiveDesignFormData;
end;