Replace default value in object editors by ghosted hint text

source/createdatabase.dfm

@@ -60,6 +60,7 @@ object CreateDatabaseForm: TCreateDatabaseForm
     Height = 21
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
+    TextHint = 'Enter database name'
     OnChange = editDBNameChange
   end
   object comboCharset: TComboBox

source/routine_editor.dfm

@@ -137,6 +137,7 @@ object frmRoutineEditor: TfrmRoutineEditor
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
     Text = 'editName'
+    TextHint = 'Enter routine name'
     OnChange = editNameChange
   end
   object tlbParameters: TToolBar

source/routine_editor.pas

@@ -178,7 +178,7 @@ begin
     end;
     FreeAndNil(Results);
   end else begin
-    editName.Text := 'Enter routine name';
+    editName.Text := '';
   end;
   editNameChange(Self);
   comboTypeSelect(comboType);

source/table_editor.dfm

@@ -202,6 +202,7 @@ object frmTableEditor: TfrmTableEditor
         Anchors = [akLeft, akTop, akRight]
         TabOrder = 0
         Text = 'editName'
+        TextHint = 'Enter table name'
         OnChange = editNameChange
       end
       object memoComment: TMemo

source/table_editor.pas

@@ -282,7 +282,7 @@ begin
 
   if FEditObjectName = '' then begin
     // Creating new table
-    editName.Text := 'Enter table name';
+    editName.Text := '';
     comboCollation.ItemIndex := comboCollation.Items.IndexOf(Mainform.Connection.GetVar('SHOW VARIABLES LIKE ''collation_database''', 1));
     PageControlMain.ActivePage := tabBasic;
   end else begin

source/trigger_editor.dfm

@@ -44,6 +44,7 @@ object frmTriggerEditor: TfrmTriggerEditor
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
     Text = 'editName'
+    TextHint = 'Enter trigger name'
     OnChange = Modification
   end
   object SynMemoStatement: TSynMemo

source/trigger_editor.pas

@@ -112,7 +112,7 @@ begin
     if not Found then
       Raise Exception.Create('Trigger definition not found!');
   end else begin
-    editName.Text := 'Enter trigger name';
+    editName.Text := '';
   end;
   Modified := False;
   btnSave.Enabled := Modified;

source/view.dfm

@@ -35,6 +35,7 @@ object frmView: TfrmView
     Anchors = [akLeft, akTop, akRight]
     TabOrder = 0
     Text = 'editName'
+    TextHint = 'Enter view name'
     OnChange = editNameChange
   end
   object rgAlgorithm: TRadioGroup

source/view.pas

@@ -85,7 +85,7 @@ begin
     rx.Free;
   end else begin
     // Create mode
-    editName.Text := 'Enter view name';
+    editName.Text := '';
     rgAlgorithm.Enabled := True;
     rgAlgorithm.ItemIndex := 0;
     rgCheck.Enabled := True;