StringGrid Concatenar Celdas

[Lenny]

Estimados, ninguno de los 2 ejemplos me sirvió, el de ecfisa con error y es por que estoy trabajando con Firemonkey, el de AgutinOrtu en teoría debería funcionar, lo edite según mis necesidades pero me lanza error preguntando por el primer registro "Field 'IDUSUARIO' not found" siendo que en ningún lado hago referencia a el.

Me explico mejor, necesito de una tabla llamada "usuario" concatenar las columnas "nombres", apellido "paterno" y "materno", todo esto en un StrinGrid, por que? por que el cliente tiene una sistema web (JAVA) y quiere un frontend para escritorio y quiere que al menos las ventanas que mas usan (en este caso usuarios) se vean como en la web, donde la columna "nombres" muestra el nombre completo del usuario.
El problema principal es que uno de los requisitos mas importantes es trabajar con la base de datos como esta, sin agregar, cambiar menos quitar algo de la BD lo cual dificulta un poco el proyecto.
¿Por que en el evento OnDrawColumnCell? En algún momento (como ahora) me toco cambiar los colores de ciertas celdas que cumplan X condición, con el tiempo necesite hacer lo mismo pero en ves de cambiar el color cambiar los textos si cumplían cierta condición (True / False), por ejemplo un checkbox que en ves de aparecer 0 / 1 aparezca Activado / Desactivado en el StrinGrid. Como modifique el mismo código que estaba en OnDrawColumnCell y me funciono lo seguí usando de esa manera (hasta ahora) y nunca he tenido problemas.
¿Por que StrinGrid y la petición? El cliente quiere ver todos los usuarios como en la web (en una lista) y Firemonkey solo tiene Grid y StringGrid.

Espero haber aclarado un poco mas mi problema, si necesitan mas detalles o explicar algo mas estaré pendiente, de antemano muchas gracias.

[[AgustinOrtu]]

El codigo de ecfisa te genera un error? Cual es?

Si te sale en algun lado que no encuentra un campo es porque "no se lo estas dando"

Estas usando LiveBindings?

[Lenny]

Como comente antes utilizo Firemonkey, en VCL funciona perfecto por eso el error, me a pasado con varios códigos que tuve que rehacer pero en este caso simplemente el componente StringGrid no soporta ciertas características que vienen en el código, saludos y gracias.

PD: si, estoy usando LiveBindings (Firemonkey).

[Lenny]

estimados, muchísimas gracias por la ayuda, a pura prueba y error y con lo dicho ya lo solucione:

Código Delphi [-]
procedure TUsuarios.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
begin
      if (Sender as TStringGrid).Cells[3, Row] = 'Fals' then
  begin
    (Sender as TStringGrid).Cells[3, Row] := 'No';
    end
    else
  if (Sender as TStringGrid).Cells[3, Row] = 'True' then
  begin
    (Sender as TStringGrid).Cells[3, Row] := 'Si';
  end;
(Sender as TStringGrid).Cells[2, Row] := (Sender as TStringGrid).Cells[1, Row] + ' ' + (Sender as TStringGrid).Cells[6, Row];
end;

los primeros 2 IF cambian en el StringGrid los valores True / Fals por Si / NO (puede ser cualquier otro valor, Activado / Desactivado, etc.) y la ultima linea hace lo que necesito, cargar en el StrinGrid en la columna "Nombres" la concatenación del nombres y apellido del usuario cumpliendo con los requisitos de no tocar la estructura de la base de datos.

Solo me queda saber si existe una forma mas elegante y no tan artesanal de hacer esto, y donde mas aparte de DrawColumnCell puedo colocar el código, ya que no me sirve en el Form.Create por si se actualizan los datos.

Gracias por la ayuda y quedo atento a sus comentarios!.

[[AgustinOrtu]]

Creo que podes asignar dinámicamente a tu fuente de datos, en el campo Nombre, un manejador en el evento OnGetText

Por ejemplo defino esto en la sección private del form

Código Delphi [-]
procedure Grid_Turnos_Dia_DuracionOnGetText(Sender: TField; var Text: string; DisplayText: boolean);

La asignación dinámica

Código Delphi [-]
Dataset.FieldByName('Duracion').OnGetText := Grid_Turnos_Dia_DuracionOnGetText;

Y la implementación

Código Delphi [-]
procedure TTFMain.Grid_Turnos_Dia_DuracionOnGetText(Sender: TField; var Text: string; DisplayText: boolean);
begin
    if not(Sender.IsNull) then
    begin
        Sender.Alignment := taRightJustify;
        Text := FormatDateTime('HH:MM', Sender.Value);
    end;
end;

Luego con LiveBindigs te recomiendo revisar aca


El evento que usaste, OnDrawCell yo lo dejaría para manejar el aspecto visual del grid en si, es decir, fuente, color de fondo, etc