Changeset 7 for trunk/Forms/UInstanceOptions.pas

Timestamp:

Feb 4, 2011, 1:16:43 PM (13 years ago)

Author:

chronos

Message:

 

File:

• trunk/Forms/UInstanceOptions.pas (modified) (1 diff)

trunk/Forms/UInstanceOptions.pas

@@ -108 +108 @@
 
   Edit1.Text := Instance.Name;
-  if Assigned(Instance.FPCSource) then
-    Edit2.Text := Instance.FPCSource.GetName
+  FPCSource := Instance.FPCSource;
+  IDESource := Instance.IDESource;
+  if Assigned(FPCSource) then
+    Edit2.Text := FPCSource.GetName
     else Edit2.Text := '';
-  if Assigned(Instance.IDESource) then
-    Edit3.Text := Instance.IDESource.GetName
+  if Assigned(IDESource) then
+    Edit3.Text := IDESource.GetName
     else Edit3.Text := '';
 end;