Fixed crash at init project if array of lang was not filled. (2)

Author: fredvs

src/ideU.prj

@@ -81,9 +81,9 @@ findinfiledialog=95
  [findinfileadialogfo.wholeword]
  value=0
  [findinfileadialogfo.indirectories]
- value=1
- [findinfileadialogfo.inprojectdir]
  value=0
+ [findinfileadialogfo.inprojectdir]
+ value=1
  [findinfileadialogfo.casesensitive]
  value=0
  [findinfileadialogfo.mask]
@@ -139,8 +139,9 @@ findinfiledialog=95
  filefilterindex=0
  filefilter="*.pas" "*.pp" "*.inc" "*.prj"
  [findinfileadialogfo.findtext]
- value=ac_invalidexception
+ value=ma_str_classtype
  history=20
+  ma_str_classtype
   ac_invalidexception
   sc_exception
   ma_formfile
@@ -160,7 +161,6 @@ findinfiledialog=95
   version
   openpro
   openproject
-  (Lang)
  [findinfileadialogfo]
  stackedunder=
  x=205
@@ -1583,22 +1583,27 @@ findhistory=20
  FpStat
  info :=
 findoptions=1
-editpos=3
- 0,7
+editpos=4
+ 22,992
  0,0
  0,-1073741823
+ 0,18
 bookmarks0=0
 bookmarks1=0
 bookmarks2=0
-sourcefiles=3
+bookmarks3=0
+sourcefiles=4
  ${PROJECTDIR}/main.pas
  ${PROJECTDIR}/sourceform.pas
  ${PROJECTDIR}/actionsmodule.pas
-relpaths=3
+ ${PROJECTDIR}/captionideu.pas
+relpaths=4
  main.pas
  sourceform.pas
  actionsmodule.pas
-ismoduletexts=3
+ captionideu.pas
+ismoduletexts=4
+ 0
  0
  0
  0
@@ -1619,10 +1624,15 @@ nomenumodules=3
  0
  0
 [sourcefo.files_tab]
+order=4
+ 0
+ 3
+ 1
+ 2
 firsttab=0
 index=0
 [layout]
-windowlayout=525
+windowlayout=531
  [mainfo.basedock]
  splitdir=2
  useroptions=268450944
@@ -1642,7 +1652,7 @@ windowlayout=525
  cy=621
  rcx=0
  rcy=0
- wsize=0
+ wsize=6
  active=1
  visible=1
  [findmessagefo.findtext]
@@ -1672,7 +1682,7 @@ windowlayout=525
  rcy=0
  wsize=0
  active=0
- visible=0
+ visible=1
  [threadsfo]
  splitdir=0
  useroptions=268451945
@@ -1740,7 +1750,7 @@ windowlayout=525
  [findinfilefo]
  splitdir=0
  useroptions=268451947
- stackedunder=
+ stackedunder=targetconsolefo
  parent=
  mdistate=0
  nx=0
@@ -1766,7 +1776,7 @@ windowlayout=525
  x=0
  y=0
  cx=205
- cy=448
+ cy=522
  rcx=0
  rcy=0
  [projecttreefo.grid]
@@ -1934,9 +1944,9 @@ windowlayout=525
  ncx=0
  ncy=0
  x=0
- y=508
- cx=1212
- cy=92
+ y=583
+ cx=1354
+ cy=107
  rcx=0
  rcy=0
  [componentstorefo]
@@ -2035,8 +2045,8 @@ windowlayout=525
  ncy=0
  x=0
  y=0
- cx=1212
- cy=54
+ cx=1354
+ cy=55
  rcx=0
  rcy=0
  [debuggerfo.basedock]
@@ -2051,8 +2061,8 @@ windowlayout=525
  ncy=61
  x=0
  y=0
- cx=1212
- cy=61
+ cx=1354
+ cy=62
  rcx=0
  rcy=0
  [debuggerfo.edit_options]
@@ -2062,8 +2072,9 @@ windowlayout=525
  [debuggerfo.edit_compiler]
  value=Pascal
  [debuggerfo.file_history]
- value=/home/fred/mseide-msegui/apps/ide/actionsmodule.mfm
- history=4
+ value=/home/fred/ideU/src/main.pas
+ history=5
+  /home/fred/ideU/src/actionsmodule.pas
   /home/fred/mseide-msegui/apps/ide/actionsmodule.mfm
 
   /home/fred/ideU/src/layout
@@ -2084,11 +2095,16 @@ windowlayout=525
  ncy=0
  x=208
  y=0
- cx=1004
- cy=448
+ cx=1146
+ cy=522
  rcx=0
  rcy=0
  [sourcefo.files_tab]
+ order=4
+  0
+  3
+  1
+  2
  firsttab=0
  index=0
  [confideufo.usedefaulteditoroptions]
@@ -2124,9 +2140,9 @@ windowlayout=525
  ncx=0
  ncy=0
  x=0
- y=57
- cx=1212
- cy=448
+ y=58
+ cx=1354
+ cy=522
  rcx=0
  rcy=0
  [_mse_mainfo_mse_]

src/main.pas

@@ -971,35 +971,41 @@ procedure checkmodule(fname: filenamety);
 
           if (length(lang_mainform) > Ord(ma_str_classtype)) and
            (length(lang_stockcaption) > Ord(sc_warningupper))then
-
-      action := ShowMessage(lang_mainform[Ord(ma_str_classtype)] + ' ' +
+           
+         action := ShowMessage(lang_mainform[Ord(ma_str_classtype)] + ' ' +
          utf8decode(atypename) + ' ' +
          lang_actionsmodule[ord(ac_notfound)] + lineend +
          ' ' + lang_mainform[Ord(ma_wishsearch)], lang_stockcaption[Ord(sc_warningupper)],
          [mr_yes, mr_cancel], mr_yes ) else
 
          begin
-          action := ShowMessage('ma_str_classtype) ' +
-         utf8decode(atypename) + ' ' +
-         'ac_notfound' + lineend +
-         ' ma_wishsearch?', 'sc_warningupper');
+          action := ShowMessage('Classtype ' +
+         utf8decode(atypename) + 
+         ' not found.' + lineend +
+         'Do you wish to search the formfile?', 'WARNING');
          action := mr_yes;
          end;
 
          if action = mr_yes
 
-          then
+        then
         begin
           wstr2 := '';
           openform.controller.showoptions := True;
-
-       //   if openform.controller.Execute(wstr2, fdk_open, lang_mainform[Ord(ma_formfile)] + ' ' +
-         
-           if openform.controller.Execute(wstr2, fdk_open, 'ma_formfile' +
-       
-             msestring(atypename), [fdo_checkexist]) then
+          
+          if length(lang_mainform) > Ord(ma_formfile)
+          then
+          begin
+           if openform.controller.Execute(wstr2, fdk_open, lang_mainform[Ord(ma_formfile)] + ' ' +
+              msestring(atypename), [fdo_checkexist]) then
             openformfile(wstr2, False, False, False, False, False);
-        end;
+          end else
+          begin
+          if openform.controller.Execute(wstr2, fdk_open, 'Formfile for ' +
+            msestring(atypename), [fdo_checkexist]) then
+            openformfile(wstr2, False, False, False, False, False);
+          end;
+         end; 
   finally
     Dec(fcheckmodulelevel);
 end;