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

Treat varchars in grids like text fields are treated: green color + memo editor

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-07 23:07:03 +00:00
parent 7d168f5526
commit ad9ebc4161
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
source/childwin.pas
View File

@ -1300,9 +1300,9 @@ begin
rx.Expression := '^(date|datetime|time(stamp)?)\b'; rx.Expression := '^(date|datetime|time(stamp)?)\b';
if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then
FDataGridResult.Columns[i].IsDate := True; FDataGridResult.Columns[i].IsDate := True;
rx.Expression := '^(tiny|medium|long)?text\b'; rx.Expression := '^((tiny|medium|long)?text|varchar)\b';
if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then
FDataGridResult.Columns[i].IsMemo := True; FDataGridResult.Columns[i].IsText := True;
rx.Expression := '^((tiny|medium|long)?blob|(var)?binary)\b'; rx.Expression := '^((tiny|medium|long)?blob|(var)?binary)\b';
if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then if rx.Exec(FSelectedTableColumns.FieldByName('Type').AsWideString) then
FDataGridResult.Columns[i].IsBlob := True; FDataGridResult.Columns[i].IsBlob := True;
@ -2450,8 +2450,8 @@ begin
col.Alignment := taRightJustify; col.Alignment := taRightJustify;
end else if ds.Fields[i].DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then end else if ds.Fields[i].DataType in [ftDate, ftTime, ftDateTime, ftTimeStamp] then
FQueryGridResult.Columns[i].IsDate := True FQueryGridResult.Columns[i].IsDate := True
else if ds.Fields[i].DataType in [ftMemo, ftWideMemo] then else if ds.Fields[i].DataType in [ftWideString, ftMemo, ftWideMemo] then
FQueryGridResult.Columns[i].IsMemo := True FQueryGridResult.Columns[i].IsText := True
else if ds.Fields[i].DataType in [ftBlob] then else if ds.Fields[i].DataType in [ftBlob] then
FQueryGridResult.Columns[i].IsBlob := True; FQueryGridResult.Columns[i].IsBlob := True;
end; end;
@ -5485,7 +5485,7 @@ begin
else if r.Columns[Column].isDate then else if r.Columns[Column].isDate then
if isNull then cl := $6060CC else cl := clMaroon if isNull then cl := $6060CC else cl := clMaroon
// Text field // Text field
else if r.Columns[Column].isMemo then else if r.Columns[Column].isText then
if isNull then cl := $60CC60 else cl := clGreen if isNull then cl := $60CC60 else cl := clGreen
// Text field // Text field
else if r.Columns[Column].isBlob then else if r.Columns[Column].isBlob then
@ -6036,7 +6036,7 @@ end;
procedure TMDIChild.DataGridCreateEditor(Sender: TBaseVirtualTree; Node: procedure TMDIChild.DataGridCreateEditor(Sender: TBaseVirtualTree; Node:
PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink); PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
begin begin
if FDataGridResult.Columns[Column].IsMemo then if FDataGridResult.Columns[Column].IsText then
EditLink := TMemoEditorLink.Create EditLink := TMemoEditorLink.Create
else else
EditLink := TStringEditLink.Create; EditLink := TStringEditLink.Create;

2
source/helpers.pas
View File

@ -50,7 +50,7 @@ type
DataType: Byte; // @see constants in mysql_structures.pas DataType: Byte; // @see constants in mysql_structures.pas
IsPK: Boolean; IsPK: Boolean;
IsBlob: Boolean; IsBlob: Boolean;
IsMemo: Boolean; IsText: Boolean;
IsInt: Boolean; IsInt: Boolean;
IsFloat: Boolean; IsFloat: Boolean;
IsDate: Boolean; IsDate: Boolean;