ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/dbFieldLinkPropEditor.pas
(Generate patch)

Comparing ibx/trunk/design/dbFieldLinkPropEditor.pas (file contents):
Revision 80 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 81 by tony, Mon Jan 1 11:31:10 2018 UTC

# Line 109 | Line 109 | function EditFieldLink(aMaster: TDataSet
109  
110   implementation
111  
112 + uses IBCustomDataSet;
113 +
114   function EditFieldLink(aMaster: TDataSet; aIndexDefs: TIndexDefs;
115     var aDetailIndexFieldNames: string; var aMasterIndexFieldNames: string
116     ): boolean;
# Line 249 | Line 251 | end;
251       I: integer;
252   begin
253    DetailedFieldListBox.Clear;
254 +  if Master is TIBCustomDataset then
255 +   with TIBCustomDataSet(Master) do
256 +     if (Database = nil) or not Database.Connected then Exit;
257    IndexDefs.Update;
258    for I := 0 to IndexDefs.Count - 1 do
259      with IndexDefs[I] do

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines