StringGrid Concatenar Celdas

[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