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 international characters in grid column headers (issue #994)

Browse Source
This commit is contained in:
Ansgar Becker
2009-03-31 17:23:03 +00:00
parent 16ef4b8ac2
commit 6566f160ed
4 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/zeosdbo/src/component/ZAbstractRODataset.pas
View File

@ -1420,8 +1420,8 @@ var
AutoInit: Boolean;
FieldType: TFieldType;
ResultSet: IZResultSet;
FieldName: string;
FName: string;
FieldName: WideString;
FName: WideString;
begin
FieldDefs.Clear;
ResultSet := Self.ResultSet;
@ -1456,7 +1456,7 @@ begin
while FieldDefs.IndexOf(FName) >= 0 do
begin
Inc(J);
FName := Format('%s_%d', [FieldName, J]);
FName := WideFormat('%s_%d', [FieldName, J]);
end;
// Workaround for bug in DB.pas:

4
components/zeosdbo/src/dbc/ZDbcIntfs.pas
View File

@ -755,8 +755,8 @@ type
function IsSigned(Column: Integer): Boolean;
function GetColumnDisplaySize(Column: Integer): Integer;
function GetColumnLabel(Column: Integer): string;
function GetColumnName(Column: Integer): string;
function GetColumnLabel(Column: Integer): WideString;
function GetColumnName(Column: Integer): WideString;
function GetSchemaName(Column: Integer): string;
function GetPrecision(Column: Integer): Integer;
function GetScale(Column: Integer): Integer;

34
components/zeosdbo/src/dbc/ZDbcResultSetMetadata.pas
View File

@ -65,7 +65,7 @@ uses
Comobj,
{$ENDIF}
{$ENDIF}
ZTokenizer, ZSelectSchema, ZCompatibility, ZDbcResultSet;
ZTokenizer, ZSelectSchema, ZCompatibility, ZDbcResultSet, WideStrings;
type
@ -79,8 +79,8 @@ type
FNullable: TZColumnNullableType;
FSigned: Boolean;
FColumnDisplaySize: Integer;
FColumnLabel: string;
FColumnName: string;
FColumnLabel: WideString;
FColumnName: WideString;
FSchemaName: string;
FPrecision: Integer;
FScale: Integer;
@ -104,8 +104,8 @@ type
property Signed: Boolean read FSigned write FSigned;
property ColumnDisplaySize: Integer read FColumnDisplaySize
write FColumnDisplaySize;
property ColumnLabel: string read FColumnLabel write FColumnLabel;
property ColumnName: string read FColumnName write FColumnName;
property ColumnLabel: WideString read FColumnLabel write FColumnLabel;
property ColumnName: WideString read FColumnName write FColumnName;
property SchemaName: string read FSchemaName write FSchemaName;
property Precision: Integer read FPrecision write FPrecision;
property Scale: Integer read FScale write FScale;
@ -124,7 +124,7 @@ type
private
FLoaded: Boolean;
FMetadata: IZDatabaseMetadata;
FColumnsLabels: TStrings;
FColumnsLabels: TWideStrings;
FSQL: WideString;
FTableColumns: TZHashMap;
FIdentifierConvertor: IZIdentifierConvertor;
@ -136,14 +136,14 @@ type
function GetTableColumns(TableRef: TZTableRef): IZResultSet;
function ReadColumnByRef(FieldRef: TZFieldRef;
ColumnInfo: TZColumnInfo): Boolean;
function ReadColumnByName(FieldName: string; TableRef: TZTableRef;
function ReadColumnByName(FieldName: WideString; TableRef: TZTableRef;
ColumnInfo: TZColumnInfo): Boolean;
procedure ClearColumn(ColumnInfo: TZColumnInfo);
procedure LoadColumns;
procedure ReplaceStarColumns(SelectSchema: IZSelectSchema);
property MetaData: IZDatabaseMetadata read FMetadata write FMetadata;
property ColumnsLabels: TStrings read FColumnsLabels write FColumnsLabels;
property ColumnsLabels: TWideStrings read FColumnsLabels write FColumnsLabels;
property SQL: WideString read FSQL write FSQL;
property IdentifierConvertor: IZIdentifierConvertor
read FIdentifierConvertor write FIdentifierConvertor;
@ -163,8 +163,8 @@ type
function IsSigned(Column: Integer): Boolean; virtual;
function GetColumnDisplaySize(Column: Integer): Integer; virtual;
function GetColumnLabel(Column: Integer): string; virtual;
function GetColumnName(Column: Integer): string; virtual;
function GetColumnLabel(Column: Integer): WideString; virtual;
function GetColumnName(Column: Integer): WideString; virtual;
function GetSchemaName(Column: Integer): string; virtual;
function GetPrecision(Column: Integer): Integer; virtual;
function GetScale(Column: Integer): Integer; virtual;
@ -353,17 +353,17 @@ end;
@param column the first column is 1, the second is 2, ...
@return the suggested column title
}
function TZAbstractResultSetMetadata.GetColumnLabel(Column: Integer): string;
function TZAbstractResultSetMetadata.GetColumnLabel(Column: Integer): WideString;
var
I, J, N: Integer;
ColumnName: string;
ColumnName: WideString;
ColumnsInfo: TObjectList;
begin
{ Prepare unique column labels. }
if FColumnsLabels = nil then
begin
ColumnsInfo := FResultSet.ColumnsInfo;
FColumnsLabels := TStringList.Create;
FColumnsLabels := TWideStringList.Create;
for I := 0 to ColumnsInfo.Count - 1 do
begin
N := 0;
@ -390,7 +390,7 @@ end;
@return column name
}
function TZAbstractResultSetMetadata.GetColumnName(
Column: Integer): string;
Column: Integer): WideString;
begin
if not Loaded then LoadColumns;
Result := TZColumnInfo(FResultSet.ColumnsInfo[Column - 1]).ColumnName;
@ -573,7 +573,7 @@ end;
@param ColumnInfo a column information object.
@return <code>True</code> is column was found and read.
}
function TZAbstractResultSetMetadata.ReadColumnByName(FieldName: string;
function TZAbstractResultSetMetadata.ReadColumnByName(FieldName: WideString;
TableRef: TZTableRef; ColumnInfo: TZColumnInfo): Boolean;
var
TableColumns: IZResultSet;
@ -587,14 +587,14 @@ begin
{ Locates a column row. }
TableColumns.BeforeFirst;
while TableColumns.Next do
if TableColumns.GetString(4) = FieldName then
if TableColumns.GetUnicodeString(4) = FieldName then
Break;
if TableColumns.IsAfterLast then
begin
{ Locates a column row with case insensitivity. }
TableColumns.BeforeFirst;
while TableColumns.Next do
if AnsiUpperCase(TableColumns.GetString(4)) = AnsiUpperCase(FieldName) then
if WideUpperCase(TableColumns.GetUnicodeString(4)) = WideUpperCase(FieldName) then
Break;
if TableColumns.IsAfterLast then
Exit;

8
components/zeosdbo/src/parsesql/ZSelectSchema.pas
View File

@ -76,15 +76,15 @@ type
private
FCatalog: string;
FSchema: string;
FTable: string;
FTable: WideString;
FAlias: string;
public
constructor Create(const Catalog, Schema, Table, Alias: string);
function FullName: string;
function FullName: WideString;
property Catalog: string read FCatalog write FCatalog;
property Schema: string read FSchema write FSchema;
property Table: string read FTable write FTable;
property Table: WideString read FTable write FTable;
property Alias: string read FAlias write FAlias;
end;
@ -203,7 +203,7 @@ end;
Gets a full database table name.
@return a full database table name.
}
function TZTableRef.FullName: string;
function TZTableRef.FullName: WideString;
begin
Result := FTable;
if FCatalog <> '' then