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

Fix fieldeditor and neighbours for Unicode table- and columnnames

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-19 22:48:05 +00:00
parent 03550f32a0
commit dedc3d92b1
4 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/childwin.pas
View File

@ -1812,8 +1812,8 @@ begin
begin begin
VTRowDataListColumns[i-1].ImageIndex := ICONINDEX_FIELD; VTRowDataListColumns[i-1].ImageIndex := ICONINDEX_FIELD;
VTRowDataListColumns[i-1].Captions := WideStrings.TWideStringList.Create; VTRowDataListColumns[i-1].Captions := WideStrings.TWideStringList.Create;
VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Field').AsString ); VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Field').AsWideString );
VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Type').AsString ); VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Type').AsWideString );
if lowercase( FSelectedTableColumns.FieldByName('Null').AsString ) = 'yes' then if lowercase( FSelectedTableColumns.FieldByName('Null').AsString ) = 'yes' then
VTRowDataListColumns[i-1].Captions.Add('Yes') VTRowDataListColumns[i-1].Captions.Add('Yes')
else VTRowDataListColumns[i-1].Captions.Add('No'); else VTRowDataListColumns[i-1].Captions.Add('No');
@ -1831,11 +1831,11 @@ begin
// No default value. // No default value.
VTRowDataListColumns[i-1].Captions.Add('') VTRowDataListColumns[i-1].Captions.Add('')
else else
VTRowDataListColumns[i-1].Captions.Add('''' + FSelectedTableColumns.FieldByName('Default').AsString + ''''); VTRowDataListColumns[i-1].Captions.Add('''' + FSelectedTableColumns.FieldByName('Default').AsWideString + '''');
VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Extra').AsString ); VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Extra').AsWideString );
if hasCommentColumn then if hasCommentColumn then
VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Comment').AsString ) VTRowDataListColumns[i-1].Captions.Add( FSelectedTableColumns.FieldByName('Comment').AsWideString )
else else
VTRowDataListColumns[i-1].Captions.Add(''); VTRowDataListColumns[i-1].Captions.Add('');

6
source/fieldeditor.dfm
View File

@ -89,7 +89,7 @@ object FieldEditForm: TFieldEditForm
TabOrder = 3 TabOrder = 3
OnClick = btnDatatypeHelpClick OnClick = btnDatatypeHelpClick
end end
object EditDefault: TEdit object EditDefault: TTntEdit
Left = 88 Left = 88
Top = 109 Top = 109
Width = 192 Width = 192
@ -116,7 +116,7 @@ object FieldEditForm: TFieldEditForm
OnKeyDown = ComboBoxTypeKeyDown OnKeyDown = ComboBoxTypeKeyDown
OnKeyUp = ComboBoxTypeKeyUp OnKeyUp = ComboBoxTypeKeyUp
end end
object EditFieldname: TEdit object EditFieldname: TTntEdit
Left = 88 Left = 88
Top = 37 Top = 37
Width = 192 Width = 192
@ -182,7 +182,7 @@ object FieldEditForm: TFieldEditForm
ItemHeight = 13 ItemHeight = 13
TabOrder = 0 TabOrder = 0
end end
object EditComment: TEdit object EditComment: TTntEdit
Left = 88 Left = 88
Top = 133 Top = 133
Width = 192 Width = 192

12
source/fieldeditor.pas
View File

@ -25,10 +25,10 @@ type
lblType: TLabel; lblType: TLabel;
lblLengthSet: TLabel; lblLengthSet: TLabel;
lblDefault: TLabel; lblDefault: TLabel;
EditDefault: TEdit; EditDefault: TTntEdit;
EditLength: TEdit; EditLength: TEdit;
ComboBoxType: TComboBox; ComboBoxType: TComboBox;
EditFieldname: TEdit; EditFieldname: TTntEdit;
GroupBoxAttributes: TGroupBox; GroupBoxAttributes: TGroupBox;
CheckBoxBinary: TCheckBox; CheckBoxBinary: TCheckBox;
CheckBoxUnsigned: TCheckBox; CheckBoxUnsigned: TCheckBox;
@ -55,7 +55,7 @@ type
btnDeleteAllColumnsFromIndex: TPngSpeedButton; btnDeleteAllColumnsFromIndex: TPngSpeedButton;
btnDatatypeHelp: TButton; btnDatatypeHelp: TButton;
lblComment: TLabel; lblComment: TLabel;
EditComment: TEdit; EditComment: TTntEdit;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure btnDatatypeHelpClick(Sender: TObject); procedure btnDatatypeHelpClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -427,7 +427,7 @@ var
strComment, strComment,
strPosition, strPosition,
fielddef, fielddef,
sql_alterfield : String; sql_alterfield : WideString;
cwin : TMDIChild; cwin : TMDIChild;
i: Integer; i: Integer;
begin begin
@ -813,8 +813,8 @@ end;
procedure TFieldEditForm.UpdateKeys(Sender: TObject); procedure TFieldEditForm.UpdateKeys(Sender: TObject);
var var
i,j,k, index : Integer; i,j,k, index : Integer;
query : String; query : WideString;
columns_sql : String; columns_sql : WideString;
modifiedKeys : Array of Integer; modifiedKeys : Array of Integer;
begin begin
query := ''; query := '';

2
source/mysql_structures.pas
View File

@ -14,7 +14,7 @@ uses
type type
// MySQL Index structure // MySQL Index structure
TMysqlIndex = record TMysqlIndex = record
Name: String[64]; Name: WideString;
Columns: TStringList; Columns: TStringList;
Unique: Boolean; Unique: Boolean;
Fulltext: Boolean; Fulltext: Boolean;