Procedure doble Boolean case

[ecfisa]

Hola.

Empezado por AlejandroCalica

...
lo que aun no logro comprender es como dejar a todos los paneles ocultos con un boton?
...

Código Delphi [-]
procedure TForm1.btnHidePanelsClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ControlCount-1 do
    if Controls[i] is TPanel then
       Controls[i].Visible := False;
end;

Empezado por AlejandroCalica

...
como podria controlar los que se ven y por ende todos los demas ocultos o enabled
...

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   SomePanelsVisible([Panel1, Panel5, Panel9, Panel17]);
end;

Saludos

[AlejandroCalica]

comprendo que seria facil ese codigo pero mi idea era ampliar el codigo anterior, no se complementarlo para poder ejecutar el ocultar todo, o mostrar los paneles requeridos y los demas ocultos. aun sigo buscando la forma de ue sea en un solo procedimiento, se que hay muchos capaces de eso y mas

[ecfisa]

Hola.

No te entiendo... ¿ Lo que quieres es que solo se muestren algunos y otros permanezcan ocultos ?

Pues oculta todos y muestra luego los que desees:

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  // Ocultar todos
  for i := 0 to ControlCount-1 do
    if Controls[i] is TPanel then
       Controls[i].Visible := False;
  // Mostrar los deseados
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;

Saludos

[AlejandroCalica]

tenia pensado algo as como tu procedimiento, pero con la opcion de ocultar todos

Código Delphi [-]
SomePanelsVisible([]);

que pudiece quedar algo asi para definir que todos esten ocultos y asi para solo mostar los indicados y todos los demas ocultos

Código Delphi [-]
SomePanelsVisible([panel1,panel2]);

pero en un solo procedimiento se podra ?

[Casimiro Noteví]

Empezado por AlejandroCalica

pero en un solo procedimiento se podra ?

Eso es un solo procedimiento

Código Delphi [-]
procedure TForm1.SomePanelsVisible(const Panels: array of TPanel);
var
  i: Integer;
begin
  for i := Low(Panels) to High(Panels) do
    Panels[i].Visible := True;
end;

[AlejandroCalica]

hola se que es raro pero me puse a pensar un poco y no se pero creo existe una forma mm deja ver si me doy a entender

Código Delphi [-]
//esto para que NO se vean todos los panel
procedure visor(false,);

Código Delphi [-]
// podria ser la forma de representar que quiero que se vean todos
procedure visor(true,);

Código Delphi [-]
//y esta la forma de representar que no se vean todos, solo el panel 1 y el panel2,
procedure visor(true,panel1,panel2);

no se, quiero pensar que puede contener el procedure un if anidado o algo asi

si es false no se ve nada

si es true se ven todos
pero si es true saber cuales no se ocultaran
si no se define nada entonces todos se veran

mmmmmm se prodra en un solo procedure, creo por algo desde el principo puse doble boolean sera para mi un crack quien pueda ayudarme, y pueden explicarme como subir mi proyecto completo en el foro? muchisimas gracias

[Casimiro Noteví]

A ver, estás confundido como cualquier novato, a todos nos ha pasado.
Lee y prueba con atención el ejemplo que te ha dado el compañero ecfisa.

[Neftali [Germán.Estévez]]

Empezado por AlejandroCalica

...mmmmmm se prodra en un solo procedure, creo por algo desde el principo puse doble boolean sera para mi un crack quien pueda ayudarme, y pueden explicarme como subir mi proyecto completo en el foro?

Si que se puede hacer en un procedimiento, con una cabecera similar a esta:

Código Delphi [-]

procedure Visor(const aVisualizarOcultarTodos:boolean; aArrayPanels: array of TPanel);

La duda es si debe hacerse así o no (yo creo que no).
No siempre "juntar" todo en un procedimniento acaba siendo mejor. Lo que quiero decir es que juntar en un procedimiento "cosas distintas" utilizando más parámetros, aunque a primeras puede parecer mejor, a la larga puede resultar peor.

Mezclas cóodigo de cosas distintas y aunque es más corto en líneas, acaba siendo más complejo de programar, de depurar, de leer,...

En este caso, en lugar de una cabecera como la anterior, yo optaría por hacer 2 procedimientos (2 cabeceras):

Código Delphi [-]
procedure Visor(aArrayPanels: array of TPanel);
procedure VisorAll(const aVisualizarOcultarTodos:boolean);

Es posible que luego uno utilice internamente el otro, pero de esta forma es más sencillo de entender y de utilizar.
2 trozos de código pueden dar el mismo resultado, pero no necesariamente quiere dec¡r que sean igual de correctos.


No se si me explico...