paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 14:19:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: suggest lowercased file name by default for new forms/units, bug #14122

Browse Source 
git-svn-id: trunk@31909 -
This commit is contained in:
maxim 2011-08-07 15:24:25 +00:00
parent c2f34d7dc4
commit 3038d96ce1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -5425,6 +5425,9 @@ begin
if SaveAsFilename='' then if SaveAsFilename='' then
SaveAsFilename:=lisnoname; SaveAsFilename:=lisnoname;
//suggest lowercased name to user in order to avoid asking for lowercase name later
SaveAsFilename:=LowerCase(SaveAsFilename);
// let user choose a filename // let user choose a filename
SaveDialog:=TSaveDialog.Create(nil); SaveDialog:=TSaveDialog.Create(nil);
try try