Post Processing fixes

Author: neslib

Bin/Chet.exe

@@ -224,6 +224,7 @@   TProject = class
     procedure SetSymbolsToIgnore(const Value: TStrings);
     procedure SetIgnoredFiles(const AValue: String);
     procedure SetCustomCTypesMap(const AValue: String);
+    procedure SetScript(const AValue: String);
     procedure SetModified(const AValue: Boolean);
   private
     procedure SymbolsToIgnoreChange(Sender: TObject);
@@ -387,7 +388,7 @@   TProject = class
     property SymbolsToIgnore: TStrings read FSymbolsToIgnore write SetSymbolsToIgnore;
 
     { PostProcessing script}
-    property Script: String read FScript write FScript;
+    property Script: String read FScript write SetScript;
   end;
 
 implementation
@@ -724,8 +725,6 @@ procedure TProject.Save(const AFilename: String);
     for I := 0 to FSymbolsToIgnore.Count - 1 do
       IniFile.WriteString(IS_IGNORE, ID_ITEM + I.ToString, FSymbolsToIgnore[I]);
 
-    IniFile.WriteStringBinary(IS_POSTPROCESS, ID_SCRIPT, FScript);
-
     IniFile.WriteStringBinary(FScript, IS_POSTPROCESS, ID_SCRIPT);
 
     IniFile.UpdateFile;
@@ -774,7 +773,7 @@ procedure TProject.SetCommentConvert(const Value: TCommentConvert);
 
 procedure TProject.SetCustomCTypesMap(const AValue: String);
 begin
-  if (not SameText(FCustomCTypesMap,AValue)) then
+  if (not SameText(FCustomCTypesMap, AValue)) then
   begin
     FCustomCTypesMap := AValue;
     Modified := True;
@@ -884,6 +883,15 @@ procedure TProject.SetReservedWordHandling(const Value: TReservedWordHandling);
   end;
 end;
 
+procedure TProject.SetScript(const AValue: String);
+begin
+  if (not SameText(FScript, AValue)) then
+  begin
+    FScript := AValue;
+    Modified := True;
+  end;
+end;
+
 procedure TProject.SetSymbolsToIgnore(const Value: TStrings);
 begin
   FSymbolsToIgnore.Assign(Value);