Saludos a toda la Comunidad Delphinera!! Alguien puede ayudarme como que evento puedo utilizar o alguna dirección útil en la que pueda apoyarme para programar las Celdas del String Grid en FIREMONKEY MOVILE en varios colores...???? Así como el Ancho de las columnas del String Grid o lograr modificar el tamaño de las Celdas.
Se les agradecera la ayuda...
Saludos a la Comunidad y Exito a todos

Celdas de colores con StringGrid en Firemonkey Mobile Application
Comenzado por
Abigail
, ago 05 2014 09:01
2 respuestas en este tema
#1
Escrito 05 agosto 2014 - 09:01
#2
Escrito 05 agosto 2014 - 11:00
Para ayudarte un poco y que vayas viendo ejemplos practicos:
Delphi al limite
revisa eso y ve intentando lograr lo que quieres, las dudas que vayas teniendo las expones aqui y seguro que te ayudaremos entre todos.
Delphi al limite
revisa eso y ve intentando lograr lo que quieres, las dudas que vayas teniendo las expones aqui y seguro que te ayudaremos entre todos.
#3
Escrito 05 agosto 2014 - 11:17
Hola Saludos a la comunidad!! Algo que me di cuenta es que VCL y FireMonkey son muy diferentes por ejemplo para el String Grid en Firemonkey no esta el Evento OnDrawCell sino OnDrawCellColumn... Y mis dudas son las siguientes:
Este Fragmento de Código es en VCL y es util para para cambiar el colo de fondo las Celdas... Cómo se interpretaría en FireMonkey
Por ejemplo aqui con esto fragmento de codigo para VCL dependiento de la Cadena de Texto el ancho de la celda va aunmentado... Pero como seria en FireMonkey
O un fragmento de código que me fuera Util para Poner un Título donde aumente el tamaño de la celda en String Grid en FireMonkey Mobile
Este Fragmento de Código es en VCL y es util para para cambiar el colo de fondo las Celdas... Cómo se interpretaría en FireMonkey
delphi
with Sender as TStringGrid do begin if Cells[01,ARow] = 'Desnutrición III' then //aqui filtras la columna Cells[N,ARow] begin Canvas.Brush.Color := clRed; Canvas.FillRect(Rect); Canvas.Font.Color := clGreen; Canvas.TextRect( Rect, Rect.Left+2, Rect.Top+2, Cells[01,ARow]); end; end;
Por ejemplo aqui con esto fragmento de codigo para VCL dependiento de la Cadena de Texto el ancho de la celda va aunmentado... Pero como seria en FireMonkey
delphi
begin Cells[0,iIndiceRen] := Trim(FieldByName('C93_DIETA_STR').AsString); RowCount := RowCount + 1; iIndiceRen := RowCount - 1; Next; end;
O un fragmento de código que me fuera Util para Poner un Título donde aumente el tamaño de la celda en String Grid en FireMonkey Mobile