Asignar pasajeros a los asientos

[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,

[ecfisa]

Hola Delphius.

Si así es, en el ejemplo ubiqué los paneles a mano (no dispongo del TGridPanel).

Volviendo al caso, creo que existe un factor importante que dificulta tratar de estandarizar el uso de plantillas en modo gráfico. Es que existen múltiples distribuciones de los asientos entre los diferentes fabricantes de carrocerías y cada uno de ellos con distintos modelos: cama, semicama, doble piso, filas simples, filas dobles, ...
Una plantilla de tipo gráfico, al estilo de algunos programas de reservas de vuelos, complicaría bastante la implementación y requeriría mucho mantenimiento debido a los cambios de ómnibus.

Sin dudas usar una grilla será mucho mas flexible y requerirá muy poco mantenimiento en el tiempo.

Saludos

[[Delphius]]

Empezado por ecfisa

Hola Delphius.

Si así es, en el ejemplo ubiqué los paneles a mano (no dispongo del TGridPanel).

Volviendo al caso, creo que existe un factor importante que dificulta tratar de estandarizar el uso de plantillas en modo gráfico. Es que existen múltiples distribuciones de los asientos entre los diferentes fabricantes de carrocerías y cada uno de ellos con distintos modelos: cama, semicama, doble piso, filas simples, filas dobles, ...
Una plantilla de tipo gráfico, al estilo de algunos programas de reservas de vuelos, complicaría bastante la implementación y requeriría mucho mantenimiento debido a los cambios de ómnibus.

Sin dudas usar una grilla será mucho mas flexible y requerirá muy poco mantenimiento en el tiempo.

Saludos

Puede ser, pero se pueden diseñar formas de sortear estos problemas.
Por ejemplo nada impide tener en un archivo (o hasta incluso en una BD) almacenado como sería el "mapa" de distribución de elementos. Se lee esto, se establecen las filas y columnas necesarias del GridPanel y se colocan los items adentro siguiendo dicha distribución.

Saludos,

[[newtron]]

Hola.

Igual me equivoco pero quiero recordar haber leido en alguna ocasión que Neftali tiene desarrollados unos componentes para poder figuras en un formulario y manejarlas en tiempo de edición (o algo así). De esta forma sería relativamente sencillo crear los asientos de cada uno de los distintos vehículos y manejar, por ejemplo su color, en función a las necesidades. Porque un problema que se me viene a la cabeza es que habrá distintos vehículos, y por otro lado se irán renovando en el tiempo y sería complicado mantener los esquemas de cada uno de ellos por programación.