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

Cleanup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2455 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-06-09 12:34:36 +00:00
parent cf72334b8a
commit dad2214c71
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -268,13 +268,11 @@ var Component : TComponent;
begin begin
Component:=self.GetComponent; Component:=self.GetComponent;
if not(assigned(Component)) then
exit;
if not(Component is TSpkToolbar) then if not(Component is TSpkToolbar) then
exit; exit;
Toolbar:=Component as TSpkToolbar; Toolbar:=TSpkToolbar(Component);
Designer:=self.GetDesigner; Designer:=self.GetDesigner;
EditWindow.SetData(Toolbar,Designer); EditWindow.SetData(Toolbar,Designer);
@ -341,7 +339,7 @@ begin
Obj:=GetComponent(0); Obj:=GetComponent(0);
if Obj is TSpkToolbar then if Obj is TSpkToolbar then
begin begin
Toolbar:=(Obj as TSpkToolbar); Toolbar:=TSpkToolbar(Obj);
AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil); AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
try try
@ -358,7 +356,7 @@ if Obj is TSpkToolbar then
end else end else
if Obj is TSpkTab then if Obj is TSpkTab then
begin begin
Tab:=(Obj as TSpkTab); Tab:=TSpkTab(Obj);
AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil); AppearanceEditor:=TfrmAppearanceEditWindow.Create(nil);
try try