Allow modification of index column name per grid pulldown editor, in table editor. Fixes issue #3059.

This commit is contained in:
Ansgar Becker
2012-12-17 16:25:43 +00:00
parent dffae1b4af
commit e12b4e652f

View File

@@ -1601,13 +1601,16 @@ begin
// Disallow renaming primary key
if (Column <> 0) or (VT.Text[Node, 1] <> PKEY) then
Allowed := True
end else begin
// Column length is allowed for (var)char/text types only, even mandantory for text and blobs
IndexedColName := VT.Text[Node, 0];
for i:=0 to FColumns.Count-1 do begin
if FColumns[i].Name = IndexedColName then begin
Allowed := FColumns[i].DataType.Category = dtcText;
break;
end else case Column of
0: Allowed := True;
1: begin
// Column length is allowed for (var)char/text types only, even mandantory for text and blobs
IndexedColName := VT.Text[Node, 0];
for i:=0 to FColumns.Count-1 do begin
if FColumns[i].Name = IndexedColName then begin
Allowed := FColumns[i].DataType.Category = dtcText;
break;
end;
end;
end;
end;