Obtener celdas seleccionadas de un StringGrid

[Alejandro73]

Estimados

Buenos días, tengo un TbsSkinStringGrid el cual se dibuja en tiempo de ejecución en base a una consulta (es similiar a un StringGrid), luego puedo seleccionar un o mas celdas cambiando el color de fondo y el texto de las mismas; ¿como puedo saber cuales son las celdas seleccionadas por el usuario?

Saludos

[Casimiro Notevi]

Mira los enlaces del final de esta página, abajo del todo, seguramente te sirven

[Alejandro73]

Gracias

Ya revise este codigo

/* Mostrar selección en ListBox */ void __fastcall TForm1::Button1Click(TObject *Sender) { TGridRect GR = StringGrid1->Selection; AnsiString s; for(int f=GR.Top; f <= GR.Bottom; f++){ s= ""; for(int c=GR.Left; c <= GR.Right; c++) s = s + StringGrid1->Cells[f][c]; ListBox1->Items->Add(s); } }

pero no me queda claro como lo recorre con el for ya que marca error en "f=Gr.Top"

adjunto codigo del boton

Código Delphi [-]
  Grid : TbsSkinStringGrid;
  Gr   : TGridRect;
begin

  Gr := Grid.Selection;
  for(int f=GR.Top; f <= GR.Bottom; f++)
   begin
    s= "";
    for(int c=GR.Left; c <= GR.Right; c++)
     begin
      s = s + StringGrid1->Cells[f][c];
      ShowMessage(s);
     end;
   end;

[Casimiro Notevi]

¿Pero ese qué lenguaje es delphic o cdelphi ?

[Alejandro73]

Estimado

El lenguaje es Delphi.

[Casimiro Notevi]

¿Y ese código que has puesto te compila?

[ozsWizzard]

El código, a lo sumo, es compilable desde Rad Studio pero Delphi, lo que se dice Delphi, va a ser que no.

[Alejandro73]

No, no compila, pero puse este otro codigo

Código Delphi [-]
Grid : TbsSkinStringGrid;   
Gr   : TGridRect; 
begin    
  Gr       := Grid.Selection;   
  gr_left  := Gr.Left;   
  gr_top   := Gr.Top;   
  gr_right := Gr.Right;   
  gr_bottom:= Gr.Bottom;     
  ShowMessage('Seleccion '+IntToStr(gr_left)+','+IntToStr(gr_top)+' a la '+IntToStr(gr_right)+','+IntToStr(gr_bottom));

pero los valores no me cuadran, yo esperaba 3,2 a la 3,3 que serian las celdas seleccionadas

[ozsWizzard]

Ese "Selecction" del grid parece que no sea para sacar la columna y la fila seleccionada sino la región que se quiere colorear.

[Alejandro73]

Efectivamente muestra la región que se dibujo.

Lo que necesito es obtener el nro de Columna y Fila de la región que se coloreo, que puede perfectamente ser mas de una celda.

[ecfisa]

Empezado por Alejandro73

Estimados
...
¿como puedo saber cuales son las celdas seleccionadas por el usuario?

Hola Alejandro.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with StringGrid1.Selection do
    ShowMessage(Format('Desde, col: %d row: %d',[Left,Top])+#10+
                Format('Hasta, col: %d row: %d',[Right,Bottom]));
end;

Saludos.

[Alejandro73]

Estimado

Una vez mas se agracede su aporte, funciona perfectamente.

Saludos
Alejandro A.

[ozsWizzard]

O no lo entiendo o no soy capaz de ver que es lo que pasa.

¿Qué diferencia conceptual hay entre el código que puso ecfisa y el que puso Alejandro73?

En ambos usa las mismas propiedades para los mismo valores, ¿no?

[ecfisa]

Empezado por ozsWizzard

O no lo entiendo o no soy capaz de ver que es lo que pasa.

¿Qué diferencia conceptual hay entre el código que puso ecfisa y el que puso Alejandro73?

En ambos usa las mismas propiedades para los mismo valores, ¿no?

Hola ozsWizzard.

No había visto el mensaje #8 hasta ahora que lo mencionas (o tal vez no le presté la debida atención) ...

Pero si las variables gr_left, gr_top, gr_right y gr_bottom están declaradas como Integer, conceptualmente ninguna.

Saludos.

[ozsWizzard]

Ah, vale, entonces no le daba el resultado correcto por cualquier otro motivo, jeje

Estaba yo asustao, jajajaja