10 respuestas en este tema

[poliburro]

Buen día Compañeros.

 

Vengo con otra duda. ¿De qué manera se puede alinear el texto de una celda del componente TStringrid de FireMonkey?

 

Gracias de antemano,

[Agustin Ortu]

A ver que tal de esta manera:
 

delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.DefaultDrawing := False;
end;
 
procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn;
  const [Ref] Bounds: TRectF; const Row: Integer; const [Ref] Value: TValue; const State: TGridDrawStates);
begin
  Canvas.Fill.Color := StringGrid1.TextSettings.FontColor;
  if Column.Index = 0 then
  begin
    if Odd(Row) then
      Canvas.FillText(Bounds, Value.AsString, True, 1, [], TTextAlign.Center)
    else
      Canvas.FillText(Bounds, Value.AsString, True, 1, [], TTextAlign.Trailing);
  end
  else
  begin
    if Odd(Row) then
      Canvas.FillText(Bounds, Value.AsString, True, 1, [], TTextAlign.Trailing)
    else
      Canvas.FillText(Bounds, Value.AsString, True, 1, [], TTextAlign.Leading);
  end;
end;

Editado por Agustin Ortu, 14 junio 2016 - 02:10 .

[poliburro]

Busqué el evento DrawColumnCell en el StringGrid pero no lo tiene. Probablemente no esté soportado ese evento en Firemonkey

[Agustin Ortu]

Que versión de Delphi estas usando? Firemonkey cambia mucho de versión a versión. Es posible que ese evento este protegido y que tengas que acceder con un helper

Debería funcionar a partir de XE7 http://stackoverflow...sing-delphi-xe7

Editado por Agustin Ortu, 15 junio 2016 - 09:46 .

[poliburro]

Estoy usando Delphi XE5 compañero...

[genriquez]

FireMonkey por ser relativamente nuevo (al menos en delph) se ha ido modificando bastante y entre versión y versión hay cosas que no existen,  pero es para bien.

 

Saludos.

[Agustin Ortu]

Por lo que he estado leyendo, la gente no se cansa de decir que antes de XE7, Firemonkey es una "beta". Fue recien a partir de XE7 que se ha vuelto mas estable y robusto.No solo el framework en si, sino tambien la comunidad. Me imagino que hace unos años era mas dificil encontrar recursos en firemonkey

 

Hoy esta un poco mejor

 

Lo unico que se me ocurre decirte poly es que uses otro control. Los grid en firemonkey estan compuestos basicamente por otros controles. Estos controles se crean con un metodo protegido de clase, que se llamaba algo asi como CreateCellControl. Este metodo devuelve un objeto TTextObject si mal no recuerdo, o un TStyledControl que contiene justamente on TTextObject. El problema es que todos las celdas se crean igual, asi que si redefines este metodo para que devuelva otro tipo de celda, para cada celda el grid va a invocar y crear el mismo objeto: osea alineas todo a la derecha, todo al centro, o todo a la izquierda

 

Lo que no recuerdo exactamente es donde almacena el grid estos controles que representan cada celda. La otra alternativa es acceder a estos objetos y manipular sus propiedades directamente. Insisto con usar un class helper o una subclase de TStringGrid para lograrlo. Por cierto, existe la propiedad OwnerDraw en XE5?

Editado por Agustin Ortu, 15 junio 2016 - 01:18 .

[poliburro]

Al parecer no existe el OwnerDraw amigos...

 

 pantalla.jpg   60,02KB   1 descargas

 

 

[Agustin Ortu]

No podes usar un TGrid?

[poliburro]

Si fuera con un TGrid cómo se hace?

[Agustin Ortu]

No estoy muy seguro, pero en el TGrid quiza tengas mas eventos. O quiza otro tipo de columna que te permita configurar como se imprime el texto, o acceso con una propiedad para hacerlo por codigo