[Lazarus-es] Dblookupcombobox anidados no funciona

[José Mejuto]

Hello Maxi,

Tuesday, January 3, 2012, 2:25:23 PM, you wrote:

M> encontre entre los bugtracker este arreglo pero no se como aplicarlo

Ese arreglo lo incluye Lazarus desde hace 15 dias, de modo que si te
bajas una versión reciente ya está aplicado (con la opción que te
comentaba en otro mensaje).

Si quieres aplicar el parche ese a tu código, abre el archivo:

lazarus/lcl/include/dblookup.inc

Va a eso de la linea 386

y cambias:

-----------------
   end;
   if not (Assigned(FListLink.DataSet) and Assigned(FListField)) then
     Exit;
   LinkGetBookMark;
   try
     if FListLink.DataSet.Locate(FListField.FieldName,VarArrayOf([AListFieldValue]), []) then
     begin
       FControlLink.DataSet.Edit;
       for I := 0 to FDataFields.Count -1 do

[4 o 5 lineas más abajo]
         FControlLink.Field.AsString := AListFieldValue;
     end;
   finally
     LinkGotoBookMark;
   end;
 end;
-----------------

por

------------------------
   end;
   if not (Assigned(FListLink.DataSet) and Assigned(FListField)) then
     Exit;
  //LinkGetBookMark;
   try
    if FListLink.DataSet.Locate(FListField.FieldName, AListFieldValue, []) then
     begin
       FControlLink.DataSet.Edit;
       for I := 0 to FDataFields.Count -1 do
       
[4 o 5 lineas mas abajo]

         FControlLink.Field.AsString := AListFieldValue;
     end;
   finally
   //LinkGotoBookMark;
   end;
 end;
 -----------------------


Pero recuerda que este cambio será incompatible con versiones futuras
de Lazarus.

-- 
Best regards,
 José