Asignar pasajeros a los asientos

[santiago14]

Bueno, paso a contarlo.
Tengo que hacer un software de turismo donde una de las funcionalidades es "asignar pasajeros a las butacas de un ómnibus". En términos de BBDD no es problema, pero esta gente quiere que se vea de manera gráfica.
Para tomar dos ejemplos puedo mencionar los sistemas donde uno selecciona las butacas del cine, de manera gráfica. El otro caso es cuando se eligen los asientos en un avión a través de los sistemas web de las aerolíneas. Estaría bueno que aparecieran los asientos y poder con el mouse elegir el que uno quiere. En ese caso, ponerlo de algún color, y así.
La cuestión es que quisiera saber si puedo encontrar alguna herramienta que haga eso en Delphi.
Espero haber sido claro.

Gracias.

[[AgustinOrtu]]

Yo armaria un GridPanel en donde cada celda tendria una Imagen o un Shape clickeable. Creo que deberias contemplar dos estados, vacio u ocupado, y cada estado deberia tener una imagen o el shape podria variar de color

No hay algun ejemplo de algun sistema que haga algo similar?

[[Delphius]]

Empezado por AgustinOrtu

Yo armaria un GridPanel en donde cada celda tendria una Imagen o un Shape clickeable. Creo que deberias contemplar dos estados, vacio u ocupado, y cada estado deberia tener una imagen o el shape podria variar de color

No hay algun ejemplo de algun sistema que haga algo similar?

Pensé en lo mismo. Aunque también podría hasta ser válido un panel que se le podría cambiar de color según el estado. El elemento que se ponga en el GridPanel es de menos, mientras sirva para ilustrar/mostrar/representar los estados.
Lo bueno de poner un TImage es que le podemos colocar algún dibujo. Verde libre, Rojo ocupada, amarilla reservada... o con muñequitos...

La imaginación es el límite.

Obviamente por debajo, internamente, tendría una "estructura" que maneje y controle esto de forma lógica.

Y si se quiere liarla parda.... diseñaría que el item a poner en el GridPanel sea un Frame y crearía tantas instancias requiera. Lo lindo de tener el frame es que diseño uno con toda la lógica y funcionalidad tanto visual como para "traducir" los estados visualmente a su representación lógica, y su inversa. Luego pongo sus instancias y todas trabajando sin problemas.

Saludos,

[ecfisa]

Hola.

Yo también pienso que no va a ser fácil conseguir un componente que haga ese trabajo... Pero vamos que con un poquito de trabajo y algunos paneles se logra un esbozo sin problemas:


Y el código es lo menos fatigoso:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to PopupMenu1.Items.Count-1 do
    PopupMenu1.Items[i].Tag := 100 + i;
end;

procedure TForm1.MenuItemClick(Sender: TObject);
var
  pn: TPanel;
begin
  pn := TPanel(PopupMenu1.PopupComponent);
  case TMenuItem(Sender).Tag of
    100: pn.Color := clLime;
    101: pn.Color := clYellow;
    102: pn.Color := clRed;
  end;
  pn.Tag := TMenuItem(Sender).Tag;
end;

// (Esto si deseas que funcione con click izq. también )
procedure TForm1.PanelClick(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  PopupMenu1.PopupComponent := TPanel(Sender);
end;

Saludos

[[Delphius]]

Empezado por ecfisa

Hola.

Yo también pienso que no va a ser fácil conseguir un componente que haga ese trabajo... Pero vamos que con un poquito de trabajo y algunos paneles se logra un esbozo sin problemas:


Y el código es lo menos fatigoso:
Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i := 0 to PopupMenu1.Items.Count-1 do PopupMenu1.Items[i].Tag := 100 + i; end; procedure TForm1.MenuItemClick(Sender: TObject); var pn: TPanel; mi: TMenuItem; begin pn := TPanel(PopupMenu1.PopupComponent); case TMenuItem(Sender).Tag of 100: pn.Color := clLime; 101: pn.Color := clYellow; 102: pn.Color := clRed; end; pn.Tag := TMenuItem(Sender).Tag; end; // (Esto si deseas que funcione con click izq. también ) procedure TForm1.PanelClick(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); PopupMenu1.PopupComponent := TPanel(Sender); end;


Saludos

Pues si. Con paneles también se puede jugar muy fácil. Por lo que veo te pusiste a distribuir unos cuantos paneles bien bonito y a todos les indicaste que hagan uso del OnClick del primero.
Mi pregunta es si para crear y ubicar esos frames usaste algún control como el GridPanel o lo "calculaste" a mano donde debe ir cada uno. El código no da mucha pista de esto.

Saludos,

[[AgustinOrtu]]

El TGridPanel que yo sepa aparecio en Delphi 2006

En ese mismo articulo se habla un poco del componente, y tambien del TFlowPanel que me parece que merece su consideracion

[[Delphius]]

Empezado por AgustinOrtu

El TGridPanel que yo sepa aparecio en Delphi 2006

En ese mismo articulo se habla un poco del componente, y tambien del TFlowPanel que me parece que merece su consideracion

Ahora que hago memoria ecfisa usa D7.
Asi que intuyo que los "organizó" a "mano"

Pensé inicialmente en el TFlowPanel, pero luego vi que el GridPanel permite ubicar con cierta facilidad los controles de manera equitativa. Yo mucho no entiendo cuando conviene uno u otro. Tienen sus similitudes, pero también por algo son diferentes.
Como que el GridPanel te permite "dibujar" y calzar los elementos de una forma y posición determinada. Mientras que el FlowPanel te los va calzando/acomodando según el espacio que tenga disponible.
Pero que más los hace diferentes, no se.

Saludos,