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 scope for FStatus symbol of TTableColumn

Browse Source
This commit is contained in:
Ansgar Becker
2021-01-03 14:57:08 +01:00
parent 8f191e588b
commit ea944b85fe
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/dbconnection.pas
View File

@ -31,6 +31,7 @@ type
TTableColumn = class(TPersistent)
private
FConnection: TDBConnection;
FStatus: TEditingStatus;
procedure SetStatus(Value: TEditingStatus);
public
Name, OldName: String;
@ -42,7 +43,6 @@ type
OnUpdateType: TColumnDefaultType;
OnUpdateText: String;
Comment, Charset, Collation, Expression, Virtuality: String;
FStatus: TEditingStatus;
constructor Create(AOwner: TDBConnection; Serialized: String='');
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;

2
source/table_editor.pas
View File

@ -542,7 +542,7 @@ begin
// Also, do this after the data type was altered, if from TEXT > VARCHAR e.g.
for i:=0 to FColumns.Count-1 do begin
if (Conn.Parameters.IsAnyMySQL or Conn.Parameters.IsAnyPostgreSQL)
and (FColumns[i].FStatus = esModified)
and (FColumns[i].Status = esModified)
and (FColumns[i].DefaultType = cdtNothing)
and (FColumns[i].OldDataType.HasDefault)
then