Bug de Embarcadero?

[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