Browse Source

CH: bug fixes in general

Jean-Francois Goulet 20 years ago
parent
commit
79fb8d1198
3 changed files with 6 additions and 7 deletions
  1. 1 3
      LuaEdit/AddToPrj.pas
  2. 2 2
      LuaEdit/EditorSettings.pas
  3. 3 2
      LuaEdit/FunctionList.dfm

+ 1 - 3
LuaEdit/AddToPrj.pas

@@ -87,8 +87,6 @@ end;
 procedure TfrmAddToPrj.FormCreate(Sender: TObject);
 begin
   lstFiles := TStringList.Create;
-  lstFiles.QuoteChar := '"';
-  lstFiles.Delimiter := ',';
 end;
 
 procedure TfrmAddToPrj.FormDestroy(Sender: TObject);
@@ -102,7 +100,7 @@ var
 begin
   if chkExisting.Checked then
   begin
-    lstFiles.DelimitedText := txtExistingFile.Text;
+    lstFiles.CommaText := txtExistingFile.Text;
     ModalResult := mrOk;
 
     for x := 0 to lstFiles.Count - 1 do

+ 2 - 2
LuaEdit/EditorSettings.pas

@@ -379,7 +379,7 @@ begin
   end;
 
   // Writing environement settings
-  pIniFile.WriteString('Environement', 'LibrariesSearchPaths', '"' + txtLibraries.Text + '"');
+  pIniFile.WriteString('Environement', 'LibrariesSearchPaths', txtLibraries.Text);
 
   //Writing display settings
   pIniFile.WriteBool('Display', 'ShowGutter', chkShowGutter.Checked);
@@ -485,7 +485,7 @@ begin
   chkKeepReportOpened.Checked := KeepSIFWindowOpened;
   txtUndoLimit.Text := IntToStr(Main.UndoLimit);
   txtTabWidth.Text := IntToStr(Main.TabWidth);
-  txtLibraries.Text := LibrariesSearchPaths.DelimitedText;
+  txtLibraries.Text := LibrariesSearchPaths.CommaText;
   chkShowGutter.Checked := Main.ShowGutter;
   chkShowLineNumbers.Checked := Main.ShowLineNumbers;
   chkLeadingZeros.Checked := Main.LeadingZeros;

+ 3 - 2
LuaEdit/FunctionList.dfm

@@ -89,7 +89,7 @@ object frmFunctionList: TfrmFunctionList
     Left = 40
     Top = 88
     Bitmap = {
-      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       000000000000000000000000000000000000FF00FF00FF00FF00000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -225,6 +225,7 @@ object frmFunctionList: TfrmFunctionList
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000}
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000}
   end
 end