opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Consistently use "Enter xyz name" as default text for new database objects

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-13 07:44:01 +00:00
parent 3aef5bb5e5
commit 8670cdba97
3 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/routine_editor.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SynEdit, SynMemo, StdCtrls, TntStdCtrls, ComCtrls, ToolWin,
VirtualTrees, WideStrings, mysql_connection, SynRegExpr, WideStrUtils, helpers;
VirtualTrees, WideStrings, mysql_connection, SynRegExpr, WideStrUtils, helpers,
mysql_api;
type
TfrmRoutineEditor = class(TDBObjectEditor)
@ -109,6 +110,7 @@ begin
Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
FixVT(listParameters);
Parameters := TWideStringList.Create;
editName.MaxLength := NAME_LEN;
end;
@ -180,8 +182,10 @@ begin
break;
end;
FreeAndNil(Results);
end else
end else begin
editName.Text := 'Enter routine name';
Mainform.SetEditorTabCaption(Self, '');
end;
editNameChange(Self);
comboTypeSelect(comboType);
btnRemoveParam.Enabled := Assigned(listParameters.FocusedNode);