Bug de Embarcadero?

[jhonalone]

Hola a todos.

Lo que voy a deciros, no es desconocimiento mio. Creo.
Para quien no lo sepa, estoy intentando hacer un juego de sudoku para Android.

Utilizo un TStringGrid. Hasta Delphi7, que era la última versión de Delphi que usé, (Llevo años sin actualizarme, entre otras cosas porque no lo usaba, y también por los precios), un TStringGrid era muy fácil de utilizar, pues para conocer la celda en la que estabas, bastaba con usar las coordenadas lógicas de la rejilla, es decir: StringGrid1.Col y StringGrid1.Row. Y punto.

Ahora en DX (RadStudio 10) la cosa ha cambiado mucho (¡hasta los nombre de muchas variables! ¿...?). El número de filas las puedes definir con RowCount, pero yo (que no soy un lumbreras) no he conseguido encontrar cómo localizarlas, he intentado con StribgGrid1.Index, pero siempre me da CERO. Las columnas, hay que definirlas una a una y he conseguido localizarlas con StringGrid1.ColumnIndex. Lo han complicado un poco.

Para mí esto es un problema serio a la hora de trabajar con el TStringGrid. (NO SE REFERENCIAR LAS FILAS)

PERO ESTO NO ES LO PEOR. Cuando intento SELECCIONAR UNA CELDA en el dispositivo Android, ocurre algo curioso: si la última celda seleccionada no está en última fila de abajo (LA ULTIMA), si intento seleccionar una casilla de la última fila de abajo (LA ULTIMA), se selecciona la casilla correspondiente a la misma columna que deseo seleccionar pero la fila se queda la misma. Quizá con un ejemplo se entienda mejor:

Pongamos que tenemos una rejilla de 9 filas por 9 columnas (es mi caso).
La última celda seleccionada es la fila 7 columna 7.
Si pulso para seleccionar la celda correspondiente a la fila 9 (es la última) y la columna 0.
Me encuentro con que queda seleccionada la celda correspondiente a la fila 7 (no cambia) y la columna 0 (si cambia).

Pero HAY MAS.

Como tengo puesto un identificador de la columna (de la fila todavía NO SE CUAL ES) con StringGrid.ColumnIndex en una TLabel puedo observar que, SI SELECCIONO otra columna de la última fila, no ha cambiado el INDICE DE LA COLUMNA.

Si selecciono cualquier otra celda que no esté en la ÚLTIMA fila de abajo, el índice de la columna, se actualiza correctamente.

Código Delphi [-]
procedure TPrinci.grdTableroSelChanged(Sender: TObject);
begin
  Label4.Text := 'Columna = '+ grdTablero.ColumnIndex.ToString() + '  /  '+
                 'Fila = '+ grdTablero.Index.ToString();
end;

Perdón por el rollazo, pero no sé explicarlo mejor.

Si alguien puede arrojar algo de luz sobre el asunto, se lo agradezco sinceramente.

Saludos a todos.

[[AgustinOrtu]]

Estas usando firemonkey, que es el framework nuevo diseñado para soportar varias plataformas (win, mac, ios y android)

Es lógico que haya diferencias, y no que todos los componentes sean idénticos

Si querés usar algo "similar a Delphi 7", te toca crear una aplicación VCL, que es el framework de toda la vida

[jhonalone]

Perdonad. Se me olvidaba.
Si seleccionas otra columna de la misma fila, (SEA LA FILA QUE SEA), TAMPOCO CAMBIA LA COLUMNA.
Saludos.

[jhonalone]

Perdona, Agustín.
Pero los nombres de las propiedades, creo que no cambian para cada plataforma. Sea la que sea.
Un saludo.

[[AgustinOrtu]]

Son componentes distintos

El error fue ponerle el mismo nombre

Es imposible diseñar algo idéntico a la VCL, que delega su funcionalidad a una API específica

Estamos hablando no sólo de distintos sistemas operativos, sino de dispositivos distintos que funcionan distinto desde el vamos

[jhonalone]

Vale, Agustín.
Tienes razón. Si quieres hacer una aplicación VCL clásica, tienes los mismos nombres y propiedades que te comentaba. Lo que no entiendo, es por qué lo han complicado tanto. Aunque el Framework sea distinto, se supone que el trabajo de adaptarlo a las distintas plataformas corresponde a Embarcadero. Ya he observado, que algunos componentes, no están disponibles para Android, como por ejemplo los menús. Están inhabilitados para la plataforma Android.
Un saludo.

[jhonalone]

Ahora, aún con las limitaciones de las distintas plataformas, EL PROBLEMA que comentado en el origen del post, existe en la plataforma Android (al menos).
Mañana seguimos comentando. Es muy tarde para mí.
Un Saludo.

[[AgustinOrtu]]

Si, y tampoco tenés ventanas modales en android

A mi me parece que fmx esta, en nivel arquitectura, años por delante de VCL

En fmx los controles están creados mediante composición. Hace unos días discutimos las ventajas en un hilo en el subforo POO (mamcx lo explica estupendamente)

No hay menús en android. Que aplicación android utiliza algo similar al TMainMenu? Que aplicación usa el TTrayIcon?

A fmx lo único que le falta es madurar

[[AgustinOrtu]]

Otro gran error es usar los controles tanto para mostrar la info, y como "estructura", es decir, donde están realmente los datos

Busca tutoriales en youtube sobre Live Bindings; verás como podes crear un objeto con el cual mantener tus estructuras de datos, en el harás las operaciones lógicas: modificar estado, buscar, filtrar, acceder al actual, agregar, etc. Es un objeto muy similar al dataset,o podes usar el tuyo propio.

Luego conectas este objeto con cualquier control; un ListView, Grid, ListBox, etc

No te sorprenderá ver que en fmx no hay controles data aware, ya que todo se conecta de esta forma (o a mano, escribiendo tu mismo el código)

[Casimiro Notevi]

El problema básico es que android no tiene nada que ver con windows, y embarcadero ha intentado hacer un "delphi para android", y la gente al verlo piensa que es igual y al final descubre muchos problemas, que no son problemas sino el intento de encajar mundos distintos vistos de la óptica "de toda la vida". Con el tiempo quizás lo consigan, casi seguro, pero es muy complicado realmente adaptarlo para que funcione igual en ambos sistemas. Y si incluimos a iOS, entonces ya puedes imaginar la complicación tan enorme.

[jhonalone]

Hola a todos.

Entiendo que sea difícil la adaptación de los distintos sistemas operativos. Pero cuando Embarcadero te vende, (¡y a qué precios!), un producto que promete esta adaptación, lo menos que puede hacer es que la adaptación sea real. Que te ofrezca un TStringGrid (vamos una rejilla de toda la vida) y luego no te de las armas para poder actuar sobre las distintas celdas... Si la rejilla es para presentar una cosa estática, quizá sea mejor presentar una foto.

Si existen programas que migran el código Delphi a Java, (que es el lenguaje en el que está basado Android esencialmente), con un poquito de esfuerzo por parte de Embarcadero lo podría conseguir. Máxime teniendo en cuenta lo pesadas, (gran cantidad de código), que son sus herramientas. Sinceramente creo que podían habérselo currado un poquito más.

Bueno, dejemos de lamentarnos... Lo que hay es lo que hay. Para el problema que nos ocupa, si no hay otra solución y no puedo usar una rejilla como base de mi proyecto de sudoku, tendré que plantear el asunto desde otra perspectiva, con una tabla... con un puñado de etiquetas... o no sé con qué... Se admiten sugerencias. En cualquier caso, una rejilla en la que, repito, no se puede acceder y modificar los colores y los valores de las celdas, de poco sirve.

Os invito a probar lo que comentaba en el origen de este hilo, para confirmar lo que yo he observado.

Espero vuestras noticias. Sigo trabajando en buscar una solución...

Saludos a todos.

[[AgustinOrtu]]

Es que no deberias empezar por la rejilla, eso es lo ultimo que tenes que hacer

Mete todo en una matriz, el juego opera sobre la matriz; luego lo conectas con: Un TGrid, o un TStringGrid, o un componente de terceros o lo sacas por consola

[[egostar]]

Empezado por jhonalone

Bug de Embarcadero?......

.......Os invito a probar lo que comentaba en el origen de este hilo, para confirmar lo que yo he observado.

Cuando no se leé lo que hacen los eventos es fácil indicar que es un fallo, pero si te tomaras un poco de tiempo en leer la ayuda de Delphi verías que el evento OnSelChanged del componente TGrid dice lo siguiente:

Description

Occurs when the selected row in the grid changes.

Me he tomado el tiempo para hacer una pequeña prueba de esto usando dos eventos, el que tu utilizas OnSelChanged y el evento OnSelectCell() y veo las diferencias de resultado que están de acuerdo a la ayuda de Delphi.

El código que usé es el siguiente:

Código Delphi [-]
procedure TForm1.StringGrid1SelChanged(Sender: TObject);
begin
  Label1.Text := format('Renglón seleccionado: %d', [StringGrid1.Selected + 1]);
  Label2.Text := format('Columna seleccionada: %d', [StringGrid1.ColumnIndex + 1]);
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Label3.Text := format('Renglón seleccionado: %d', [ARow + 1]);
  Label4.Text := format('Columna seleccionada: %d', [ACol + 1]);
end;

Además te muestro como funciona en Android, saquen sus conclusiones.

¿es un bug o no?

Edito: Perdón, me faltó una imagen que es la de la selección de la celda (9,1) que estaría después de la imagen (7,7), pero pueden verla en el siguiente enlace

https://plus.google.com/u/0/photos/1...M_x8JjGlvOSmQE



Saludos

[Casimiro Notevi]

Estaba claro que delphi no iba a fallar en algo tan básico.
Todos imaginábamos que el problema es el código de jhonalone, que es novato en el tema y es normal que vea "bugs raros", como ha pasado toda la vida con los novatos, yo el primero

[jhonalone]

Hola, Egostar.

Primero, gracias por tu colaboración y por tu aporte.
Te conozco desde hace años y debes saber que eres un miembro admirado por mí por tus muchos y valorados aportes.

Pero en esta ocasión tengo dos cosas que decirte. Una buena y otra mala.
Empecemos por la buena: Tienes razón. Yo había probado también TForm1.StringGrid1SelectCell, pero no se me ocurrió evaluar ACol y ARow, de sus parámetros, utilicé la misma estructura que tenía en TForm1.StringGrid1SelChanged, o sea la siguiente:

Código Delphi [-]
procedure TPrinci.grdTableroSelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Label4.Text := 'Columna = '+ ColumnIndex.ToString + '  /  '+
                 'Fila = '+ IntTostr(grdTablero.Index);
end;

Con lo cual, el resultado de la columna era correcto pero no el de la fila. Era cero, como ya comenté.
He seguido tu consejo y he cambiado el cuerpo del evento a lo siguiente:

Código Delphi [-]
procedure TPrinci.grdTableroSelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Label4.Text := 'Columna = '+ ACol.ToString + '  /  '+
                 'Fila = '+ ARow.ToString;
end;

Con esto he conseguido identificar la fila correctamente, ya no sale cero como antes.

Ahora VIENE la segunda parte, la negativa.
En cualquier celda de la rejilla que selecciones, siempre que no sea la última de abajo, los valores de la fila y la columna, son correctos.

Pero vuelvo a repetir:
Si la celda seleccionada está en cualquier parte de la rejilla, QUE NO SEA LA ÚLTIMA FILA DE ABAJO, y seleccionas una de las casillas de la última fila ( la de abajo ), ocurre lo siguiente:

(Estamos hablando de la expresión en un dispositivo Android). La columna que informa ACol es correcta y la fila que informa ARow también es correcta, pero la celda que "aparentemente" está seleccionada, (cambia el color), NO ES CORRECTA, corresponde a la MISMA FILA que estaba seleccionada antes de pulsar en la última fila, y la columna correspondiente a la celda ES LA CORRECTA, (en la celda que cambia de color como seleccionada).

Cuando lo pruebes me respondes. Si no me he explicado, me lo dices.

Un Saludo, Egostar.

[jhonalone]

Egostar.

Ahora me dices si ese comportamiento, no es un Bug de Enbarcadero.

Saludos.

[[egostar]]

Empezado por jhonalone

Egostar.

Ahora me dices si ese comportamiento, no es un Bug de Enbarcadero.

Saludos.

Perdón, no entiendo el punto, es que "yo soy visual", si me muestras una imagen de lo que estás explicando, es decir, toma una captura de pantalla de tu celular y la adjuntas, me sería más fácil entender lo que sucede.

Saludos

[jhonalone]

Egostar.
Creo que me he explicado muy claro.
Pasa el ejemplo que me has mostrado a tu teléfono móvil y lee detenidamente mi último mensaje.
Después me cuentas.
Si quieres te genero un ejemplo en .zip y lo subo en un enlace, pero si tienes el proyecto de prueba que has generado antes, creo que puedes usarlo para probar lo que acabo de escribir.
De nada sirve que te mande las fotos, si no sabes lo que he tecleado o (en el caso de Android) lo que he pulsado antes. Quizá para verlo como yo lo veo, tendría que mandarte un video. So no lo puedes comprobar, me lo dices e intento hacer el video.
Saludos

[jhonalone]

Casimiro.

No te contesto. Te invito a que hagas la prueba en un teléfono, siguiendo las indicaciones que os he dado.

Saludos.

[[egostar]]

Empezado por jhonalone

Creo que me he explicado muy claro.

Insisto, no te entendí y lo de visual es cierto, es mas fácil (para mi) ver imágenes para poder entender lo que está escrito.

Empezado por jhonalone

Pasa el ejemplo que me has mostrado a tu teléfono móvil y lee detenidamente mi último mensaje.
Después me cuentas.

O sea, las imágenes que he adjuntado son de mi celular, en tiempo real, no las imagine, ni las dibujé, ni las inventé.

Empezado por jhonalone

Si quieres te genero un ejemplo en .zip y lo subo en un enlace, pero si tienes el proyecto de prueba que has generado antes, creo que puedes usarlo para probar lo que acabo de escribir.
De nada sirve que te mande las fotos, si no sabes lo que he tecleado o (en el caso de Android) lo que he pulsado antes. Quizá para verlo como yo lo veo, tendría que mandarte un video. So no lo puedes comprobar, me lo dices e intento hacer el video.
Saludos

No es necesario, te muestro ahora mismo con un ejemplo gráfico de lo que yo estoy haciendo, aclaro que es mi celular, en tiempo real, ejecutando el código que mostré, he colocado los indices en base cero para que sea exacto y agregué una línea para que quede evidencia de todas las casillas que se han presionado, sigue el enlace y me dices que es lo que te parece es un Bug de Embarcadero.

https://plus.google.com/u/0/photos/p...59676681486274

Código Delphi [-]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  Label3.Text := format('Renglón seleccionado: %d', [ARow]);
  Label4.Text := format('Columna seleccionada: %d', [ACol]);
  (Sender as TStringGrid).Cells[ACol,ARow] := ARow.ToString + ',' + ACol.ToString;
end;

Saludos