Update Form Designer - FormDesignerCodeGenerator Class - File header and footer.
@@ -2392,5 +2392,13 @@ class FormDesignerCodeGenerator
cSourceFileName
func Generate oDesigner,cFormFileName
-
- cSourceFileName = substr(cFormFileName,"rform","ring")
+ cSourceFileName = substr(cFormFileName,"rform","rform.ring")
+ # Add the File Header
+ cOutput = "# Form/Window - Generated Source Code File " + nl +
+ "# Generated by the Ring "+version()+" Form Designer" + nl +
+ "# Date : " + date() + nl +
+ "# Time : " + time() + nl + nl
+
+ # Add the End of file
+ cOutput += "# End of the Generated Source Code File..."
+ write(cSourceFileName,cOutput)
