IDE: clean up

git-svn-id: trunk@26101 -

examples/anchordocking/anchordocking.pas

@@ -69,7 +69,6 @@
   ToDo:
     - popup menu
        - shrink side left, top, right, bottom
-    - fpdoc
     - simple way to make forms dockable at designtime
     - minimize button and Hide => show in header
     - on close button: save a default layout

ide/frames/window_options.pas

@@ -191,9 +191,7 @@ begin
 
     RadioButton.Enabled := True;
     RadioButton.Checked := (APlacement = Layout.WindowPlacement);
-
-    if APlacement = iwpCustomPosition then
-    begin
+  end;
   // custom window position
   if Layout.CustomCoordinatesAreValid then
   begin
@@ -217,8 +215,6 @@ begin
     WidthEdit.Value := 0;
     HeightEdit.Value := 0;
   end;
-    end;
-  end;
 
   GetWindowPositionButton.Enabled := (Layout.Form <> nil);
 end;

ide/ideoptiondefs.pas

@@ -504,20 +504,22 @@ end;
 procedure TSimpleWindowLayout.SetForm(const AValue: TCustomForm);
 begin
   if fForm=AValue then exit;
+  if (Form<>nil) then
+    RemoveFreeNotification(Form);
   fForm:=AValue;
   if (Form<>nil) then begin
-    fFormID := FForm.Name;
-    FFormCaption := fForm.Caption;
-    FreeNotification(fForm);
+    fFormID := Form.Name;
+    FFormCaption := Form.Caption;
+    FreeNotification(Form);
   end;
 end;
 
 function TSimpleWindowLayout.GetFormID: string;
 begin
-  if FForm=nil then
+  if Form=nil then
     Result:=fFormID
   else
-    Result:=FForm.Name;
+    Result:=Form.Name;
 end;
 
 function TSimpleWindowLayout.GetXMLFormID: string;