IDE: made suggestion of lowercased file name for new forms/units configurable

git-svn-id: trunk@31920 -

ide/environmentopts.pp

@@ -310,6 +310,7 @@ type
     fAmbiguousFileAction: TAmbiguousFileAction;
     FUnitRenameReferencesAction: TUnitRenameReferencesAction;
     FAskForFilenameOnNewFile: boolean;
+    FLowercaseDefaultFilename: boolean;
 
     // lazdoc
     FLazDocPaths: string;
@@ -554,9 +555,12 @@ type
     property CharcaseFileAction: TCharCaseFileAction read fCharcaseFileAction
                                                      write fCharcaseFileAction;
     property UnitRenameReferencesAction: TUnitRenameReferencesAction
-             read FUnitRenameReferencesAction write FUnitRenameReferencesAction;
+                                              read FUnitRenameReferencesAction
+                                              write FUnitRenameReferencesAction;
     property AskForFilenameOnNewFile: boolean read FAskForFilenameOnNewFile
-                   write FAskForFilenameOnNewFile;
+                                              write FAskForFilenameOnNewFile;
+    property LowercaseDefaultFilename: boolean read FLowercaseDefaultFilename
+                                               write FLowercaseDefaultFilename;
 
     // lazdoc
     property LazDocPaths: string read FLazDocPaths write FLazDocPaths;
@@ -838,6 +842,7 @@ begin
   fCharcaseFileAction:=ccfaAutoRename;
   FUnitRenameReferencesAction:=urraAsk;
   FAskForFilenameOnNewFile:=false;
+  FLowercaseDefaultFilename:=true;
 
   // lazdoc
   FLazDocPaths:=SetDirSeparators(DefaultLazDocPath);
@@ -1241,6 +1246,8 @@ begin
         Path+'UnitRenameReferencesAction/Value',UnitRenameReferencesActionNames[urraAsk]));
       FAskForFilenameOnNewFile:=XMLConfig.GetValue(
         Path+'AskForFilenameOnNewFile/Value',false);
+      FLowercaseDefaultFilename:=XMLConfig.GetValue(
+        Path+'LowercaseDefaultFilename/Value',true);
 
       //lazdoc
       FLazDocPaths := XMLConfig.GetValue(Path+'LazDoc/Paths', DefaultLazDocPath);
@@ -1556,6 +1563,8 @@ begin
         AmbiguousFileActionNames[afaAsk]);
       XMLConfig.SetDeleteValue(Path+'AskForFilenameOnNewFile/Value',
                      FAskForFilenameOnNewFile,false);
+      XMLConfig.SetDeleteValue(Path+'LowercaseDefaultFilename/Value',
+                               FLowercaseDefaultFilename,true);
 
       // lazdoc
       XMLConfig.SetDeleteValue(Path+'LazDoc/Paths',FLazDocPaths,DefaultLazDocPath);

ide/frames/naming_options.lfm

@@ -3,6 +3,7 @@ inherited NamingOptionsFrame: TNamingOptionsFrame
   Width = 507
   ClientHeight = 367
   ClientWidth = 507
+  TabOrder = 0
   Visible = False
   DesignLeft = 353
   DesignTop = 291
@@ -10,7 +11,6 @@ inherited NamingOptionsFrame: TNamingOptionsFrame
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
     AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
     Left = 0
     Height = 47
     Top = 0
@@ -34,7 +34,6 @@ inherited NamingOptionsFrame: TNamingOptionsFrame
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = CharcaseFileActionRadioGroup
     AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
     Left = 0
     Height = 67
     Top = 53
@@ -59,7 +58,6 @@ inherited NamingOptionsFrame: TNamingOptionsFrame
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = AmbiguousFileActionRadioGroup
     AnchorSideRight.Control = Owner
-    AnchorSideRight.Side = asrBottom
     Left = 0
     Height = 58
     Top = 126
@@ -114,4 +112,22 @@ inherited NamingOptionsFrame: TNamingOptionsFrame
     Caption = 'AskForFilenameOnNewCheckBox'
     TabOrder = 4
   end
+  object LowercaseDefaultFilenameCheckBox: TCheckBox[5]
+    AnchorSideLeft.Control = AskForFilenameOnNewCheckBox
+    AnchorSideTop.Control = AskForFilenameOnNewCheckBox
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 17
+    Top = 269
+    Width = 193
+    BorderSpacing.Top = 6
+    BorderSpacing.Right = 6
+    BorderSpacing.Bottom = 6
+    Caption = 'LowercaseDefaultFilenameCheckBox'
+    Checked = True
+    ParentShowHint = False
+    ShowHint = True
+    State = cbChecked
+    TabOrder = 5
+  end
 end

ide/frames/naming_options.pas

@@ -36,6 +36,7 @@ type
     AmbiguousFileActionRadioGroup: TRadioGroup;
     CharcaseFileActionRadioGroup: TRadioGroup;
     AskForFilenameOnNewCheckBox: TCheckBox;
+    LowercaseDefaultFilenameCheckBox: TCheckBox;
     PascalFileExtRadiogroup: TRadioGroup;
     UnitReferencesRadioGroup: TRadioGroup;
   private
@@ -118,6 +119,11 @@ begin
   end;
 
   AskForFilenameOnNewCheckBox.Caption:=lisAskForFileNameOnNewFile;
+
+  LowercaseDefaultFilenameCheckBox.Caption:=
+    lisSuggestDefaultNameOfNewFileInLowercase;
+  LowercaseDefaultFilenameCheckBox.Hint:=
+    lisAlwaysConvertSuggestedDefaultFileNameToLowercase;
 end;
 
 procedure TNamingOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@@ -133,7 +139,8 @@ begin
     CharCaseFileActionRadioGroup.ItemIndex  := ord(CharCaseFileAction);
     AmbiguousFileActionRadioGroup.ItemIndex := ord(AmbiguousFileAction);
     UnitReferencesRadioGroup.ItemIndex := ord(UnitRenameReferencesAction);
-    AskForFilenameOnNewCheckBox.Checked:=AskForFilenameOnNewFile;
+    AskForFilenameOnNewCheckBox.Checked := AskForFilenameOnNewFile;
+    LowercaseDefaultFilenameCheckBox.Checked := LowercaseDefaultFilename;
   end;
 end;
 
@@ -148,7 +155,8 @@ begin
     CharcaseFileAction  := TCharCaseFileAction(CharcaseFileActionRadioGroup.ItemIndex);
     AmbiguousFileAction := TAmbiguousFileAction(AmbiguousFileActionRadioGroup.ItemIndex);
     UnitRenameReferencesAction := TUnitRenameReferencesAction(UnitReferencesRadioGroup.ItemIndex);
-    AskForFilenameOnNewFile:=AskForFilenameOnNewCheckBox.Checked;
+    AskForFilenameOnNewFile := AskForFilenameOnNewCheckBox.Checked;
+    LowercaseDefaultFilename := LowercaseDefaultFilenameCheckBox.Checked;
   end;
 end;
 

ide/lazarusidestrconsts.pas

@@ -5015,6 +5015,10 @@ resourcestring
     +'must be unique in all components on the form/datamodule.The name is '
     +'compared case insensitive like a normal pascal identifier.';
   lisAskForFileNameOnNewFile = 'Ask for file name on new file';
+  lisSuggestDefaultNameOfNewFileInLowercase = 'Suggest default name of new '
+    +'file in lowercase';
+  lisAlwaysConvertSuggestedDefaultFileNameToLowercase = 'Always convert '
+    +'suggested default file name to lowercase';
   lisIndentation = 'Indentation';
   lisExampleFile = 'Example file:';
   lisChooseAPascalFileForIndentationExamples = 'Choose a pascal file for '

ide/main.pp

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