iphonelazext: fixing project options saving. loading sdk list on lazarus start

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1144 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/iphonelazext/ideext.pas

@@ -170,8 +170,25 @@ var
   idx     : Integer;
   needfix : Boolean;
   sdkuse  : String;
+  sdkver  : String;
+  st : TStringList;
 begin
-  sdkuse:=EnvOptions.GetSDKFullPath(ProjOptions.SDK, not isRealDevice);
+  sdkver:=ProjOptions.SDK;
+  if sdkver='' then begin
+    st := TStringList.Create;
+    try
+      EnvOptions.GetSDKVersions(st);
+      if st.Count=0 then
+        IDEMessagesWindow.AddMsg(strWNoSDK, '', 0)
+      else begin
+        sdkver:=st[0];
+        ProjOptions.SDK:=sdkver;
+      end;
+    finally
+      st.Free;
+    end;
+  end;
+  sdkuse:=EnvOptions.GetSDKFullPath(sdkver, not isRealDevice);
 
   Result:=Options;
   if FindParam(Result, '-XR', idx, rawprm) then begin
@@ -213,7 +230,6 @@ end;
 
 function TiPhoneExtension.ProjectBuilding(Sender: TObject): TModalResult;
 begin
-  //writeln('project building: ', Sender.ClassName);
   Result:=mrOk;
   if not Assigned(LazarusIDE.ActiveProject) or not ProjOptions.isIPhoneApp then Exit;
 
@@ -433,6 +449,7 @@ begin
   // IDE integration is done in constructor
   Extension := TiPhoneExtension.Create;
   EnvOptions.Load;
+  EnvOptions.RefreshVersions;
 end;
 
 initialization

components/iphonelazext/iphoneextstr.pas

@@ -32,6 +32,9 @@ resourcestring
 
   strXcodeUpdated   = 'Xcode project updated';
 
+  strWNoSDKSelected = 'Warning: SDK is not selected using %s';
+  strWNoSDK         = 'Warning: No SDK available. Linking might fail.';
+
 implementation
 
 end.

components/iphonelazext/project_iphone_options.pas

@@ -110,6 +110,7 @@ begin
     isIPhoneApp:=chkisPhone.Checked;
     SDK:=cmbSDKs.Caption;
     AppID:=edtAppID.Text;
+    Save;
     DoChanged;
   end;
 end;