Bug de Embarcadero?

[mamcx]

Empezado por jhonalone

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

Para casos como estos, es mucho mas facil si haces un gif animado y lo muestras. Me ha pasado casos similares a estos (con usuarios) y hasta que no vi la pantalla en vivo no me di cuenta que si habia un problema (en un caso por ejemplo, era toda la secuencia entre teclado, mouse y demas, que yo nunca hacia pero el usuario si)

[jhonalone]

Bueno.

Ya he conseguido encontrar las circunstancias en las que surge el problema. Pero os voy a dejar con la intriga hasta mañana que haga un vídeo y lo suba (si es que lo consigo, pues no lo he hecho nunca).
En vista de que no entendéis mis explicaciones verbales, os lo explicaré en un vídeo.

Os voy a dejar con la intriga hasta mañana, que pueda hacer el vídeo y subirlo. Hoy ya es muy tarde. Son casi las tres de la mañana en Madrid.

A propósito, Casimiro, me gustaría que me indicaras cómo lo hago para subir un enlace a un vídeo en un post, pues no lo he hecho nunca.

Saludos.

[Casimiro Notevi]

Empezado por jhonalone

A propósito, Casimiro, me gustaría que me indicaras cómo lo hago para subir un enlace a un vídeo en un post, pues no lo he hecho nunca.

Solo es necesario que pongas el enlace al mismo. Aunque si lo subes a youtube puedes enlazarlo directamente, ejemplo: Tienes el video:
https://www.youtube.com/watch?v=ccJytu5JDEk
Debes poner entre las etiquetas [youtube] [/youtube] lo que hay detrás del =
O sea, quedaría así:
[youtube]ccJytu5JDEk[/youtube]

[jhonalone]

Bueno, amigos, aquí estoy.
A ver cómo me sale. Los vídeos, uno con el problema y otro con el problema resuelto, yo no los he subido nunca a Youtube, asi que veamos si consigo ponerlos aquí con un enlace, como me ha dicho Casi.
El vídeo con el problema del que venimos hablando aquí.

Lo siento. Necesito ayuda. No sé subir el vídeo.

He intentado subirlo a mis archivos adjuntos y después de esperar un rato me da un mensaje que no entiendo "El Mensaje especificado es inválido. Si has seguido un enlace válido, por favor notifica al administrador"

Espero ayuda.
Saludos.

[jhonalone]

Bueno, se me olvidaba decir que los vídeos son 2 uno mostrando el problema y otro con el problema resuelto. Son muy cortitos 88MB y 107MB.
Quizá lo que a mi me parece corto es demasiado.
Saludos.

[ecfisa]

Hola jhonalone.

Revisa estos enlaces:

• Subir videos
• etiquetas vB (final de página)

Si son imágenes .GIF, podes guardarlas como cualquier imágen en alguna de las muchas páginas que hay al efecto, una de ellas es esta.

Saludos

[jhonalone]

Por favor, borrarme el Post de Probando. No sabía si funcionaría.
Gracias.
Este mensaje también deseo borrarle.
Gracias, Ecfisa. Siempre tan atento y tan GRANDE. (No es la primera vez que te lo digo)

[jhonalone]

Bueno, el mensaje anterior no sirve de nada. Estaba editando... y se me pasó el tiempo de 30 m.
Es una faena, porque lo tenía casi terminado y ahora tengo que empezar de nuevo.

POR SI LE INTERESA A ALGUIEN.

Vídeo del problema, (Que parece que me explico mal).
http://="https://www.youtube.com/wat...?v=-711A257_0g



Vídeo del problema resuelto.



Código que funciona mal

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= grdTablero.Height / 9;
end;

Código que funciona bien

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= (grdTablero.Height - 2) / 9;
   { A grdTablero.Height hay que RESTARLE algún punto, si no la última fila
     de abajo no queda seleccionada cuando se pulsa en ella siook la celda que
     estaba seleccionada antes no ccrrespondía a la última fila }
end;

La causa del problema. (Espero que se me entienda en castellano)

Dado que la rejilla (TStringGrid) llamada "grdTablero" ocupa todo el espacio de su propiedad grdTablero.RowHeight con sus 9 filas, parece que la última fila no se activa correctamente y causa el error.



La SOLUCIÓN DEL PROBLEMA.

Cuando dejamos un espacio después de la última fila, (aunque sea sólo de 2 píxeles), la última fila queda activada para recibir el foco cuando es seleccionada.

Saludos a todos.

[jhonalone]

ME VOLVIO A PASAR EL TIEMPO DE 25 MINUTOS PARA CAMBIAR EL POST.

Después de tenerlo completo. Al probar los vídeos (con la misma estructura que el que hice de prueba y los mismos textos copiados) no funcionan. ¿Qué hago mal?

He intentado copiar las URL completas, pero al modificar el post ya no está esta opción disponible.

Mientras que las vuelvo a poner, se me pasan los 25 minutos.

Repito todo.

Bueno, el mensaje anterior no sirve de nada. Estaba editando... y se me pasó el tiempo de 30 m.
Es una faena, porque lo tenía casi terminado y ahora tengo que empezar de nuevo.

POR SI LE INTERESA A ALGUIEN.

Vídeo del problema, (Que parece que me explico mal).

https://www.youtube.com/watch?v=wLpycxovW7c&feature


Vídeo del problema resuelto.

https://www.youtube.com/watch?v=-711A257_0g


Código que funciona mal

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= grdTablero.Height / 9;
end;

Código que funciona bien

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Col9.Width := grdTablero.Width / 9;
  Col1.Width := grdTablero.Width / 9;
  Col2.Width := grdTablero.Width / 9;
  Col3.Width := grdTablero.Width / 9;
  Col4.Width := grdTablero.Width / 9;
  Col5.Width := grdTablero.Width / 9;
  Col6.Width := grdTablero.Width / 9;
  Col7.Width := grdTablero.Width / 9;
  Col8.Width := grdTablero.Width / 9;
   grdTablero.RowHeight:= (grdTablero.Height - 2) / 9;
   { A grdTablero.Height hay que RESTARLE algún punto, si no la última fila
     de abajo no queda seleccionada cuando se pulsa en ella siook la celda que
     estaba seleccionada antes no ccrrespondía a la última fila }
end;

La causa del problema. (Espero que se me entienda en castellano)

Dado que la rejilla (TStringGrid) llamada "grdTablero" ocupa todo el espacio de su propiedad grdTablero.RowHeight con sus 9 filas, parece que la última fila no se activa correctamente y causa el error.



La SOLUCIÓN DEL PROBLEMA.

Cuando dejamos un espacio después de la última fila, (aunque sea sólo de 2 píxeles), la última fila queda activada para recibir el foco cuando es seleccionada.

Saludos a todos.

[[egostar]]

Empezado por jhonalone

La SOLUCIÓN DEL PROBLEMA.

Cuando dejamos un espacio después de la última fila, (aunque sea sólo de 2 píxeles), la última fila queda activada para recibir el foco cuando es seleccionada.

Saludos a todos.

Ya veo, pero ésto obedece más a un asunto de tu teléfono que a un fallo de Delphi, en mi teléfono al seleccionar las casillas de la fila 9 automáticamente sube las casillas y casi se ocultan las casillas de la columna 1 como se puede observar en la siguiente imagen.

https://photos.google.com/album/AF1Q...8xI_IMq4MAlw1G

Y al contrario cuando seleccionas cualquier casilla de la fila 1 automáticamente baja las casilla como se puede observar en la imagen.

https://photos.google.com/album/AF1Q...1kQfMr7jm3y_6g

Por cierto, yo hago ésto para crear las columnas del StringGrid.

Código Delphi [-]
  StringGrid1.Height    := StringGrid1.Width;
  StringGrid1.RowHeight := StringGrid1.Width / 9;
  for I := 0 to 8 do
  begin
    StringGrid1.AddObject(TStringColumn.Create(self));
    StringGrid1.Columns[i].Width := StringGrid1.Width / 9;
  end;

Saludos

[jhonalone]

Hola, Egostar.

No creo que sea problema de mi teléfono.
También tendría que serlo de la tableta Galaxy Tab3 y del teléfono de mi mujer, Galaxy Trend.
De todas formas, no es operativo, que se oculte parte del TStringGrid. En el tablero del sudoku, se vería bastante poco estético. De hecho a mí no se me oculta nada de la pantalla.(Ni me gustaría).
Precisamente he colocado el TStringGrid (alineado al Client), dentro de un TScaledLayout para que se adapte a todas las pantallas y no cambie de tamaño.
Hay OTRO PROBLEMA MAS, que he observado y no he comentado, (Si quieres te hago otro vídeo). Y es el siguiente:

Cuando el contenedor del TStringGrid, (en este caso el TScaledLayout) es más largo que el TStringGrid y el TStringGrid está alineado al Top, si tienes una TLabel, en la que puedes ver la fila y la columna seleccionadas, aunque hayas definido la rejilla de 9x9, (por ejemplo) si pulsas por debajo de la rejilla y dentro de su contenedor verás que parece que has pulsado una fila MAYOR que 9.
Si esto no es un Bug, ¡que venga Dios y lo vea!.

Si no lo entiendes y necesitas otro vídeo, me lo dices y te lo subo. (Espero que tenga menos problemas la próxima vez) y si quieres que suba un .zip con el proyecto de prueba, me lo dices también.

Saludos.

[Casimiro Notevi]

Empezado por jhonalone

Si esto no es un Bug, ¡que venga Dios y lo vea!.
Si no lo entiendes y necesitas otro vídeo, me lo dices y te lo subo. (Espero que tenga menos problemas la próxima vez) y si quieres que suba un .zip con el proyecto de prueba, me lo dices también.

Está bien que comentes todos los problemas que vas encontrando, así en Embarcadero podrán revisarlo.

[[egostar]]

Empezado por jhonalone

Hola, Egostar.

No creo que sea problema de mi teléfono.
También tendría que serlo de la tableta Galaxy Tab3 y del teléfono de mi mujer, Galaxy Trend.
De todas formas, no es operativo, que se oculte parte del TStringGrid. En el tablero del sudoku, se vería bastante poco estético. De hecho a mí no se me oculta nada de la pantalla.(Ni me gustaría).
Precisamente he colocado el TStringGrid (alineado al Client), dentro de un TScaledLayout para que se adapte a todas las pantallas y no cambie de tamaño.

Por supuesto que no es conveniente que se vea cortada la fila, lo ideal es que sea un cuadro de 9x9 exacto, pero hay que considerar, como ya lo has mencionado, que la cuadricula la tienes que "pintar" en tiempo de ejecución debido a las diferentes definiciones de pantalla que existen, pero eso no lo veo yo como un problema de Delphi, sino como parte del aprendizaje del nuevo concepto de aplicaciones para dispositivos móviles. Particularmente el apartado de la densidad de pixeles, es decir, factor de escala, coordenadas físicas de la pantalla, con eso podrás desarrollar aplicaciones que se ajusten perfectamente a cada pantalla sin importar su tamaño.

Aquí puedes ver mi cuadricula perfectamente alineada

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

Empezado por jhonalone

Hay OTRO PROBLEMA MAS, que he observado y no he comentado, (Si quieres te hago otro vídeo). Y es el siguiente:

Cuando el contenedor del TStringGrid, (en este caso el TScaledLayout) es más largo que el TStringGrid y el TStringGrid está alineado al Top, si tienes una TLabel, en la que puedes ver la fila y la columna seleccionadas, aunque hayas definido la rejilla de 9x9, (por ejemplo) si pulsas por debajo de la rejilla y dentro de su contenedor verás que parece que has pulsado una fila MAYOR que 9.
Si esto no es un Bug, ¡que venga Dios y lo vea!.

Vamos a dar el privilegio de la duda. Voy a hacer algunas pruebas de ese caso para poder hablar con argumentos antes de decir que es un bug.

Saludos

[jhonalone]

Egostar.
Si miras los vídeos que he subido, podrás comprobar que mi cuadrícula tambien está perfectamente alineada y además no se oculta ni se mueve nada. Ahora estoy un poco liado, pero, si quieres esperar, no pierdas tu tiempo, subiré el proyecto de prueba en .zip, que yo ya lo tengo hecho.

Despues de tanta historia, no sé si voy a tener que cambiar la rejilla por otro u otros componentes pues quería poner lo números originales de un color y los que teclea el usuario, de otro. Pero me encuentro con el problema de que, por más que busco, lo único que encuentro es la propiedad TextSettings.FontColor, pero cuando la cambio, cambian los colores de todos los números escritos en la rejilla.
Os seguiré contando...
Saludos.

[jhonalone]

Ecostar, lo prometido. No me manejo bien con las herramientas del foro, pero creo que lo podrás bajar
Saludos.

[[egostar]]

Empezado por jhonalone

Ecostar, lo prometido. No me manejo bien con las herramientas del foro, pero creo que lo podrás bajar
Saludos.

Muy bien, lo veo y mañana te comento.

Saludos

[[egostar]]

Hola

Después de un tiempo sin poder atender éste asunto debido a carga laboral, pude dar un vistazo al problema que mencionas y se puede resolver fácilmente.

1. Cuando dices :

Cuando el contenedor del TStringGrid, (en este caso el TScaledLayout) es más largo que el TStringGrid y el TStringGrid está alineado al Top, si tienes una TLabel, en la que puedes ver la fila y la columna seleccionadas, aunque hayas definido la rejilla de 9x9, (por ejemplo) si pulsas por debajo de la rejilla y dentro de su contenedor verás que parece que has pulsado una fila MAYOR que 9.

No estás pulsando debajo del StringGrid, estás pulsando dentro del StringGrid como lo puedes ver en la imagen que enlazo.

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

2. Por otro lado, efectivamente, hay un detalle "raro" que al pulsar fuera del área de celdas pero dentro del mismo StringGrid cambie de celda aunque siempre permanezca en la última fila, sin embargo, el método SelectCell tiene una variable llamada CanSelect de tipo Boolean que nos ayudará a resolver el punto.

Te muestro el código que usé para resolver el problema, aunque yo forzaría a que no existiera ninguna zona extra en el StringGrid y que la cuadricula sea exacta como te lo muestro en ésta imagen.

https://photos.google.com/photo/AF1Q...emMxB37CCvSqLH

Código Delphi [-]
procedure TForm1.grdTableroSelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if ARow <= grdTablero.RowCount then
  begin
    CanSelect := true;
    Label4.Text := 'Columna = '+ ACol.ToString + '  /  '+
                   'Fila = '+ ARow.ToString;
    Label1.Text := 'Última casilla pulsada: ' +  ACol.ToString + ',' + ARow.ToString;
  end
  else begin
         CanSelect := false;
  end;
end;

3. No sé la razón por la cual el nuevo StringGrid permite seleccionar columnas aunque no existan mas filas asignadas en la propiedad RowCount, de cualquier forma lo voy a pasar a otra instancia para saber porque funciona de esa forma o para que se tome en cuenta como punto de mejora.

Saludos

[jhonalone]

Gracias por molestarte, Egostar.

Está bien tu solución. Pero la mía, que recuerda consiste en "no dejar espacio en el contenedor del TStrinGrrid" es un poco más simple e igual de efectiva. Lo de que el TStringGrid considere que hay más filas fuera de las que se han definido en la propiedad RowCount es lo que creo que Embarcadero debe corregir.

"Ñapas" para solucionar problemas, las podemos descubrir y utilizar todos, pero hay algunas, como estas (la tuya: con CanSelect :=False ,o la mía: reduciendo el espacio del contenedor para que no se pueda pulsar) creo que estamos de acuerdo en que no deberían ser necesarias. El constructor del intérprete (Embarcadero) debería evitar que esto sucediera.

¡Ah! en la dirección https://photos.google.com/photo/AF1Q...emMxB37CCvSqLH no pude ver nada, (supongo que es una demostración del código que muestras más abajo) me da el error 404.

Saludos cordiales.

[[egostar]]

Empezado por jhonalone

Gracias por molestarte, Egostar.

Está bien tu solución. Pero la mía, que recuerda consiste en "no dejar espacio en el contenedor del TStrinGrrid" es un poco más simple e igual de efectiva. Lo de que el TStringGrid considere que hay más filas fuera de las que se han definido en la propiedad RowCount es lo que creo que Embarcadero debe corregir.

Bueno, la primer imagen que enlazo es el ejemplo que tu mismo subiste, por eso es que comento que estas pulsando dentro del mismo StringGrid, asumí que así lo tienes en la práctica.

La segunda imagen que enlazo es precisamente lo que tú me estas comentando que haces, y que es la otra opción que yo veía.

Empezado por jhonalone

"Ñapas" para solucionar problemas, las podemos descubrir y utilizar todos, pero hay algunas, como estas (la tuya: con CanSelect :=False ,o la mía: reduciendo el espacio del contenedor para que no se pueda pulsar) creo que estamos de acuerdo en que no deberían ser necesarias. El constructor del intérprete (Embarcadero) debería evitar que esto sucediera.

Saludos cordiales.

De acuerdo, aunque todavía me queda la duda si en realidad es un problema o es algo que tiene su razón de ser. Ya veré si es posible encontrar una respuesta a tal comportamiento ya sea justificante o aclaratoria.

Saludos

[jhonalone]

Hola de nuevo, Egostar.
No. Yo ya no utilizo un TStringrid alineado al TOP dentro del ScaletLayout, cuando descubrí el problema, reduje el ScaletLayout al tamaño que deseaba para el TStringGrid y "resolví" el problema alineando al Client. El proyecto de prueba que subi al foro era para mostrar el problema que me había encontrado. Sigo sin ver tu segunda foto. (Error 404) no te preocupes, pues me imagino cómo es.
Saludos.