Bug de Embarcadero?

[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.