¿Cómo hacer un puzzle sencillo para niños?

[bulc]

Yo creo q para mi nivel lo podríamos dejar en trozos rectangulares. Luego se puede ampliar a formas curvas.
Supongo que cada pieza deberá colocarse según el área donde el ratón haga OnMouseUp. ¿Es así?
¿Debe definirse el área de destino con relación al TForm, o cambia si el TForm se altera de tamaño?
Eso es todo.
Saludos.

[bulc]

Más gente al paro.

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

Empezado por bulc

Más gente al paro.

No lo creo. Yo tengo en la mesa del comedor ahora, uno de 3000 piezas...
Dudo que pudiera hacerlo en la pantalla...

[bulc]

Una preguntita. ¿Cómo se impide que el ratón salga del TForm llevándose la notita-cursor del proceso Drag&Drop?
Los enanos alumnos, se llevan la letra fuera (al escritorio windows) y la pierden, lo mismo que pierde la paciencia su profe.
Lo dicho... Gracias.

[ecfisa]

Empezado por bulc

Una preguntita. ¿Cómo se impide que el ratón salga del TForm llevándose la notita-cursor del proceso Drag&Drop?
Los enanos alumnos, se llevan la letra fuera (al escritorio windows) y la pierden, lo mismo que pierde la paciencia su profe.
Lo dicho... Gracias.

Hola bulc.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.

[[nlsgarcia]]

bulc,

Empezado por ecfisa

// Necesario para salir de la aplicación

Revisa este código:

Código Delphi [-]
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

[ecfisa]

Empezado por nlsgarcia

bulc,
Revisa este código:

Código Delphi [-]
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

Hola Nelson.

Supongo que bulc no desea que los niños tengan un botón para desactivar la restricción del mouse y así poder llevar letras al escritorio...

Saludos.

[bulc]

Empezado por nlsgarcia

bulc,



Revisa este código:

Código Delphi [-]
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

No sé si me he explicado bien. Lo que quiero es evitar que un Drag de TLabel, salga fuera del TForm y si se levanta el botón del ratón, se pierda. Bulc.

[bulc]

Empezado por nlsgarcia

bulc,

Revisa este código:

Código Delphi [-]
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

Nelson, he montado el proyecto tal como indicabas y realmente has dado en el clavo. El cursor queda limitado al área cliente. Todo a pedir de boca. Eres un genio. Gracias mil. !!

[bulc]

Empezado por ecfisa

Hola bulc.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.

Gracias, enseguida lo pongo en práctica.

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

Empezado por bulc

Yo creo q para mi nivel lo podríamos dejar en trozos rectangulares. Luego se puede ampliar a formas curvas.

Correcto; No estaba pensando en que lo implementaras, si no es necesario, simplemente era por ampliar la información y por probar. Ya sabes, como cuando empiezas un puzzle que es un reto acabarlo, pues algo así... Es el gusanillo que todos tenemos de resolver problemas...

Empezado por bulc

Supongo que cada pieza deberá colocarse según el área donde el ratón haga OnMouseUp. ¿Es así?
¿Debe definirse el área de destino con relación al TForm, o cambia si el TForm se altera de tamaño?
Eso es todo.

Si, entiendo que de alguna forma debes definir una zona donde se van a colocar las piezas "con lo lugares disponibles" y almacenar de alguna manera qué pieza del puzzle va en cada uno de esos "lugares".

Entiendo que el TForm, deberá ser del mismo tamaño que la imagen original (deberías bloquear para que no cambie), de esa forma cuadrarán la piezas dentro del form (en cuanto a tamaño).