paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 00:02:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Reduce warnings by replacing deprecated TField's "Lookup" with "FieldKind=fkLookup".

Browse Source 
git-svn-id: trunk@51045 -
This commit is contained in:
juha 2015-12-26 18:55:45 +00:00
parent 1f6def37cc
commit 3d8be36eb6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dbctrls.pp
View File

@ -1419,7 +1419,7 @@ end;
function FieldIsEditable(Field: TField): boolean;
begin
result := (Field<>nil) and (not Field.Calculated) and
(Field.DataType<>ftAutoInc) and (not Field.Lookup)
(Field.DataType<>ftAutoInc) and (Field.FieldKind<>fkLookup)
end;
function FieldCanAcceptKey(Field: TField; AKey: char): boolean;

8
lcl/dbgrids.pas
View File

@ -1230,7 +1230,7 @@ begin
StartUpdating;
try
edField.Text := FTempText;
if edField.Lookup then
if edField.FieldKind = fkLookup then
begin
LookupKeyValues := Null;
if edField.LookupCache then
@ -3267,7 +3267,7 @@ begin
aField := SelectedField;
if aField<>nil then begin
Result := IsValidChar(AField, Ch) and not aField.Calculated and
(aField.DataType<>ftAutoInc) and (not aField.Lookup) and not aField.IsBlob;
(aField.DataType<>ftAutoInc) and (aField.FieldKind<>fkLookup) and not aField.IsBlob;
end;
end;
end;
@ -3288,7 +3288,7 @@ begin
result := not AField.CanModify;
// if field is readonly, check if it's a lookup field
if result and AField.Lookup then begin
if result and (AField.FieldKind = fkLookup) then begin
FieldList := TList.Create;
try
AField.DataSet.GetFieldList(FieldList, AField.KeyFields);
@ -4023,7 +4023,7 @@ end;
function TColumn.GetPickList: TStrings;
begin
Result := inherited GetPickList;
if (Field<>nil) and FField.Lookup then
if (Field<>nil) and (FField.FieldKind=fkLookup) then
begin
if FField.LookupCache then
FField.LookupList.ValuesToStrings(Result)