8 respuestas en este tema

[TiammatMX]

Jóvenes delphineros, buen día/tarde/noche.

Pues nada, que ahora me surge una oportunidad para que me ayuden a cumplimentar un requerimiento de programación. Requiero incluir varios TCheckBox en celdas específicas de un TStringGrid (observar la imagen), pero al consultar éste tema en DelphiAbout, me surgen dos ligas: http://delphi.about....l/aa072203a.htm y http://delphi.about....ment-colors.htm, pero con ninguna de ellas resuelvo mi problema.

¿Serían tan amables de aportarme algunas ideas? También acepto código y palmaditas en la espalda para motivarme... 

Archivos adjuntos

•  4083_b04b5fa9743f88c11cae7c5c2d8e7773fc5eec1d.jpg   239,23KB   14 descargas

[egostar]

¿Serían tan amables de aportarme algunas ideas? También acepto código y palmaditas en la espalda para motivarme... 

Así está bien ????





Saludos

[TiammatMX]

Así está bien ????...

Dije "palmaditas" no MAZAZOS...

Pero gracias, de cualquier manera... jajajajajajaja

[cadetill]

Si sigues los enlaces del primer link que das, llegas a lo que quieres, por un lado a éste para el tema de los cheks, y por otro lado a éste otro para el tema del fusionado de celdas de otra pregunta que haces

Nos leemos

[TiammatMX]

...por un lado a éste ...

El detalle, cadetill, es que después de imprimir y leer concienzudamente el primer tema me quedó CLARÍSIMO que no es solución a mi planteamiento. Gracias.

[GeoUsuario]

delphi

var  X, Y: Integer;
cb: TCheckBox;
for X := 3 to 8 do
  for Y := 3 to 8 do
  begin
    cb := TCheckBox.Create(Self);
    cb.Parent := StringGrid1;
    cb.SetBounds(StringGrid1.CellRect(X, Y).Left, StringGrid1.CellRect(X, Y).Top, cb.Width, cb.Height);
  end;

[pcicom]

Ahi et va espero te sirva...

La idea es que en la CELDA que checkes se le graba el string 'TRUE'..

delphi

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
    StringGrid1.Cells[0,StringGrid1.row] := iif(StringGrid1.Cells[0,StringGrid1.row]='True','False','True');
end;
 
 
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
  cVal:String;
  nARow,nProcesado : integer;
begin
  cVal := StringGrid1.cells[ACol,ARow];
  if (Arow>0) and (Acol>1) and (aCol<4) then
  begin
     StringGrid1.Canvas.FillRect(Rect);
     if SameText(StringGrid1.Cells[0, ARow],'True') then
       DrawFrameControl(StringGrid1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED)
     else
       DrawFrameControl(StringGrid1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK)
  end;
 
end;

Saludos  Espero te sirva..

[TiammatMX]

Ahi et va espero te sirva...

La idea es que en la CELDA que checkes se le graba el string 'TRUE'...

¡¡Excelente!! Lo probaré de inmediato...

[pcicom]

Puedes ponerle cualquier Valor, el detalle es solo compararlo para que aparezca checkeado o NO