opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug #799 default value '' of a field changed to '''' when field name changed

Browse Source
This commit is contained in:
Ansgar Becker
2008-10-13 22:05:59 +00:00
parent 060c4ea8ad
commit 7c6a70232a
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/fieldeditor.pas
View File

@@ -174,6 +174,7 @@ var
i, j : Integer;
ListColumns : TVirtualStringTree;
NodeData : PVTreeData;
origDefault : WideString;
begin
// Initiate "Position"-combobox
@@ -234,15 +235,16 @@ begin
EditFieldname.Text := FFieldName;
EditLength.Text := getEnumValues( NodeData.Captions[1] );
editDefault.Text := '';
if NodeData.Captions[3] = '' then
origDefault := NodeData.Captions[3];
if origDefault = '' then
comboDefault.ItemIndex := DEFAULT_NO
else if NodeData.Captions[3] = 'NULL' then
else if origDefault = 'NULL' then
comboDefault.ItemIndex := DEFAULT_NULL
else if NodeData.Captions[3] = 'CURRENT_TIMESTAMP' then
else if origDefault = 'CURRENT_TIMESTAMP' then
comboDefault.ItemIndex := DEFAULT_CURTS
else begin
comboDefault.ItemIndex := DEFAULT_CUSTOM;
EditDefault.Text := WideDequotedStr(NodeData.Captions[3], '''');
EditDefault.Text := Copy(origDefault, 2, Length(origDefault)-2);
end;
EditComment.Text := NodeData.Captions[5];