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

lcl: Simplify TFieldDataLink.ValidateField

Browse Source 
Call Reset in TFieldDataLink.LayoutChanged
part of 20032

git-svn-id: trunk@32257 -
This commit is contained in:
blikblum 2011-09-10 17:27:25 +00:00
parent cb6c671993
commit b99ef8a1fa
1 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lcl/dbctrls.pp
View File

@ -71,7 +71,7 @@ Type
procedure UpdateField;
// make sure the field/fieldname is valid before we do stuff with it
function ValidateField : Boolean;
procedure ValidateField;
protected
// Testing Events
procedure ActiveChanged; override;
@ -1418,26 +1418,13 @@ begin
end;
{
Several functions seem to need to test the validity of
the field/fieldname, so lets put it into its own function.
This function checks if FField is assigned and if matches with current field
instance of the linked dataset. If not, try to set the field name.
Returns true if FField is set.
This function checks if FField is still associated with the dataset
If not update the field
}
function TFieldDataLink.ValidateField : Boolean;
var
RealFieldName : String;
procedure TFieldDataLink.ValidateField;
begin
Result := (FField <> nil) and (DataSet.FindField(FFieldName) = FField);
if not Result then begin
RealFieldName := FFieldName;
if (RealFieldName <> '') then begin
FFieldName := '';
SetFieldName(RealFieldName);
end;
Result := (RealFieldName <> '') and Assigned(FField);
end;
if not (DataSet.FindField(FFieldName) = FField) then
UpdateField;
end;
@ -1528,11 +1515,16 @@ end;
property for the Control might become invalid.
<-- Delphi Help
So... just another field validity check? call our mock routine...
Ensure FField is valid and notify
}
procedure TFieldDataLink.LayoutChanged;
begin
ValidateField;
if FField <> nil then
begin
EditingChanged;
Reset;
end;
if Assigned(FOnLayoutChange) then
FOnLayoutChange(Self);
end;