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

lcl: Reset TFieldDataLink when a key field changes. Issue #25876

Browse Source 
git-svn-id: trunk@44505 -
This commit is contained in:
blikblum 2014-03-24 12:34:52 +00:00
parent 97c59105fe
commit b6a4657b66
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/dbctrls.pp
View File

@ -52,6 +52,7 @@ Type
FEditing: Boolean;
IsModified: Boolean;
function FieldCanModify: boolean;
function IsKeyField(aField: TField): Boolean;
function GetCanModify: Boolean;
// set current field
procedure SetFieldName(const Value: string);
@ -1379,6 +1380,25 @@ begin
result := FField.CanModify;
end;
function TFieldDataLink.IsKeyField(aField: TField): Boolean;
var
KeyFieldName, KeyFields: String;
StrPos: Integer;
begin
KeyFields := FField.KeyFields;
StrPos := 1;
while StrPos <= Length(KeyFields) do
begin
KeyFieldName := ExtractFieldName(KeyFields, StrPos);
if SameText(aField.FieldName, KeyFieldName) then
begin
Result := True;
Exit;
end;
end;
Result := False;
end;
{TFieldDataLink Private Methods}
{
If the field exists and can be modified, then
@ -1529,7 +1549,8 @@ end;
}
procedure TFieldDataLink.RecordChanged(aField: TField);
begin
if (aField = nil) or (aField = FField) then
if (aField = nil) or (aField = FField) or
((FField <> nil) and (FField.FieldKind = fkLookup) and IsKeyField(aField)) then
Reset;
end;