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

Fix compilation in Sparta docked form designer. Broken by r52209 #bb389f40bf.

Browse Source 
git-svn-id: trunk@52287 -
This commit is contained in:
juha 2016-05-07 22:57:54 +00:00
parent 29ff4dafee
commit 1a2f15c5a4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,7 +175,7 @@ type
class procedure OnShowMethod(const Name: String);
class procedure OnDesignRefreshPropertyValues;
class procedure OnModifiedPersistentAdded(APersistent: TPersistent; Select: Boolean);
class procedure OnModifiedSender(Sender: TObject);
class procedure OnModifiedSender(Sender: TObject; PropName: ShortString);
class procedure OnModified;
class procedure DesignerSetFocus;
class procedure OnDesignMouseDown(Sender: TObject; Button: TMouseButton;
@ -1494,7 +1494,7 @@ begin
DesignerSetFocus;
end;
class procedure TSpartaMainIDE.OnModifiedSender(Sender: TObject);
class procedure TSpartaMainIDE.OnModifiedSender(Sender: TObject; PropName: ShortString);
begin
OnModified;
end;