View Issue Details

IDProjectCategoryView StatusLast Update
0005531JEDI VCL00 JVCL Componentspublic2011-03-31 21:44
ReporterdcabaleAssigned Tojfudickar 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version 
Summary0005531: [TJvCustomCsvDataSet] fkLookup FieldKind field not updating
DescriptionHi,
a field whose FieldKind property is set to fkLookup is supposed to update when another field pointed by KeyFields property is changing.
But it is not.
Additional InformationTo fix it, I suggest, in TJvCustomCsvDataSet.SetFieldData, not to skip the "DataEvent(deFieldChange, Longint(Field));" call
More precisely, here is a code proposal:
in procedure TJvCustomCsvDataSet.SetFieldData(Field: TField; Buffer: Pointer);
instead of:
...
    if AnsiChar(PDestination[0]) <> #0 then
      Move(Buffer^, PDestination[1], Field.DataSize);
    //Result := True; {there is no return value, oops}
    Exit;
  end;
...

it should be:
...
     if AnsiChar(PDestination[0]) <> #0 then
      Move(Buffer^, PDestination[1], Field.DataSize);
    //Result := True; {there is no return value, oops}
  end else begin
...
  end;
  // Notify controls of a field change:
  DataEvent(deFieldChange, Longint(Field));
TagsfkLookup, lookup, TJvCsvDataSet

Activities

jfudickar

2011-03-31 21:44

developer   ~0018496

I've solved it a little bit different, but it's now in svn.

Please verify.

Issue History

Date Modified Username Field Change
2011-03-30 11:08 dcabale New Issue
2011-03-30 11:10 dcabale Tag Attached: fkLookup
2011-03-30 11:10 dcabale Tag Attached: lookup
2011-03-30 11:10 dcabale Tag Attached: TJvCsvDataSet
2011-03-31 21:44 jfudickar Note Added: 0018496
2011-03-31 21:44 jfudickar Status new => resolved
2011-03-31 21:44 jfudickar Resolution open => fixed
2011-03-31 21:44 jfudickar Assigned To => jfudickar