Ayuda con TPanel

[Casimiro Noteví]

Empezado por ecfisa

Edito: (Disculpas Casimiro, no había visto tu mensaje mientras escribía)

Tu respuesta es muchísimo mejor que la mia, y además le has resuelto la duda

[FideRosado]

la verdad es que estoy tan concentrado en el problema que ni lo note ,.. ahora mismo pruebo el codigo, para ver si me funciona, la verdad este es un foro de lo mejor..
yo uso trz componentes desde hace rato y la verdad es que es bueno, tiene muchas facilidades,..con los estilos y otros..
echenles un vistazo..

[FideRosado]

aca les envio una actualizacion del codigo
uso la misma propiedad color para tomar y debolver el estado del chekbox...

Código Delphi [-]
procedure TForm1.ChkClick(Sender: TObject);
begin
  if TRzCheckBox(Sender).Checked then
  begin
    TRzCheckBox(Sender).Color:= TRzPanel(TRzCheckBox(Sender).Parent).Color;
    TRzPanel(TRzCheckBox(Sender).Parent).ParentColor:=false;
    TRzPanel(TRzCheckBox(Sender).Parent).Color := $00CAF0FF;
  end
  else
  begin
    TRzPanel(TRzCheckBox(Sender).Parent).Color := TRzCheckBox(Sender).Color
  end;
end;

aqui agrego unas lineas, que parecen bobas pero nos permiten guardar independientemente el color de fondo..
y que se mantenga alternados..los colores
.. pero me di cuenta que cuando selecciono mas de dos y los desmarco no se me ponen los colores como son ,, que se le puede sumar a este tema para solucionarlo..

bueno me puse a trabajar en eso y lo consegui..

primero use un TRzCheckBox en vez de TCheckBox , porque?? este cambio , pues , trz me permite asignar un color mientras lo pongo transparente, ahi esta el truco, mantener el color de fondo, guardandolo en el mismo objeto que lo ejecuta...

Código Delphi [-]
  with TRzCheckBox.Create(nil) do
  begin
    OnClick := ChkClick;
    Name:= 'CheckMail'+IntToStr(numberpanel);
    Caption:='';     ParentColor:=false;
    Transparent:=true;
    left:=16;
    top:=21;
    Width:=17;
    Parent:= Pnl;
  end;

[FideRosado]

ahora estoy pensando en incorporar una funcion o procedimiento en un boton que me permita saber si entre los paneles , que he creado tengo un checkbox activo, pero no encuentro la forma de hacerlo,.. necesito ayuda con eso ...

estoy tratando pero no se me ocurre nada..

[ecfisa]

Hola FideRosado.

Código Delphi [-]
function ActiveCheckBoxes(SB: TScrollBox): Integer;
var
  i,j: Integer;
begin
  Result := 0;
  for i:= 0 to SB.ControlCount - 1 do
    if SB.Controls[i] is TPanel then
      for j:= 0 to TPanel(SB.Controls[i]).ControlCount-1 do
        if TPanel(SB.Controls[i]).Controls[j] is TCheckBox then
          Inc(Result, Integer(TCheckBox(TPanel(SB.Controls[i]).Controls[j]).Checked))
end;

Un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n: Integer;
begin
  n := ActiveCheckBoxes(ScrollBox1);
  if n > 0 then
    ShowMessage(Format('Hay %d casillas marcadas',[n]))
end;

Saludos

[FideRosado]

con ese mismo codigo , quiero q1ue el penel que es el padre del checkbox, que esta activado ,, o cuantos de ellos esten activados, se eliminen del ScrollBox1,he resuelto el padre segun el estado del checkbox, pero, la verdadd es que lo he intentado muchas veces con resultados negativos , alguna idea por parte de ustedes ..

[ecfisa]

Empezado por FideRosado

con ese mismo codigo , quiero q1ue el penel que es el padre del checkbox, que esta activado ,, o cuantos de ellos esten activados, se eliminen del ScrollBox1,he resuelto el padre segun el estado del checkbox, pero, la verdadd es que lo he intentado muchas veces con resultados negativos , alguna idea por parte de ustedes ..

Hola.

Código Delphi [-]
procedure TForm1.btnDelSelectPnlClick(Sender: TObject);
var
  i,j: Integer;
begin
  for i:= ScrollBox1.ControlCount - 1 downto 0 do
    if ScrollBox1.Controls[i] is TPanel then
      for j:= 0 to TPanel(ScrollBox1.Controls[i]).ControlCount-1 do
        if (TPanel(ScrollBox1.Controls[i]).Controls[j] is TCheckBox) and
           (TCheckBox(TPanel(ScrollBox1.Controls[i]).Controls[j]).Checked) then
          ScrollBox1.Controls[i].Free;
end;

Saludos