pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix compilation after adding items at design time

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2456 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-06-09 16:11:12 +00:00
parent dad2214c71
commit e1b8b548d7
2 changed files with 91 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/spktoolbar/designtime/SpkToolbarEditor.pas
View File

@ -262,9 +262,8 @@ implementation
procedure TSpkToolbarEditor.DoOpenContentsEditor;
var Component : TComponent;
Toolbar : TSpkToolbar;
Designer : TIDesigner;
var
Component : TComponent;
begin
Component:=self.GetComponent;
@ -272,10 +271,7 @@ Component:=self.GetComponent;
if not(Component is TSpkToolbar) then
exit;
Toolbar:=TSpkToolbar(Component);
Designer:=self.GetDesigner;
EditWindow.SetData(Toolbar,Designer);
EditWindow.SetData(TSpkToolbar(Component),Self);
EditWindow.Show;
end;