15 respuestas en este tema

[FGarcia]

Saludos!!

Hace rato que no circulaba por aqui, bastante trabajo afortunadamente (lastima de remuneracion  )

Jeje bueno a llorar a otra parte, resulta que tengo unas PC "Todo en Uno" con monitor de tipo touch, estan instaladas en un area de trabajo bastante sucia y humeda por lo que en ocasiones falla el "touch" despues de limpiarlas quedan listas para trabajar (una limpieza con paño humedo y ya......pero a mucha gente se le hace eso como si fuese un castigo  y ademas insisten en decir que no funciona ) asi que se me ocurrio que despues de limpiarlas les pueda comprobar que todo el touch funciona correctamente, ¿como? con un programita que cubra toda la pantalla de botones con la leyenda ¡pulsame!

He creado:
  Un formulario con un botón creado en tiempo de diseño el cual al ser pulsado deberá de crear botones  que cubran todo el formulario. Hasta el momento mis pruebas han sido solo una columna y una fila (un código malisimo    )

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
btnBoton: TButton;
i, j, cuentaY, cuentaX, PosX, PosY: integer;
begin
  //Deshabilitamos el boton para evitar errores
  Button1.Enabled := False;
  //Escribo el titulo mas las dimensiones alto, ancho
  Form1.Caption := Form1.Caption + ' Y: ' + IntToStr(Form1.Height) + ' X: ' + IntToStr(Form1.Width );
 
  //Inicializamos el contador de botones en Y
  cuentaY := form1.Height div Button1.Height;
  //Restamos el boton ya creado
  CuentaY := CuentaY - 1;
 
  //Inicializamos el contador de botones en X
  cuentaX := form1.width div Button1.Width;
  //Restamos el boton ya creado
  cuentaX := CuentaX - 1;
 
  //Definimos la posicion top del boton a crear
  PosY := Button1.Top;
  //Creamos el boton
  for i := 0 to cuentaY do
      begin
        btnBoton := TButton.create(self);
        //Asignamos propiedades
        with btnBoton do
            begin
              Parent := self;
              Left := 0;
              Top := PosY + Button1.Height ;
              Height := Button1.Height ;
              Width := Button1.Width ;
              Name := 'Boton' + IntToStr(i);
              Caption := '¡Pulsame ' + IntToStr(i) +'!';
              Color := clDefault;
              Visible := True;
              PosY := PosY + Height;
            end;
      end;
 
  //Definimos la posicion left del boton a crear
  PosX := Button1.Left;
  //Creamos el boton
  for i := 0 to cuentaX do
      begin
        btnBoton := TButton.create(self);
        //Asignamos propiedades
        with btnBoton do
            begin
              Parent := self;
              Left := PosX + Button1.Width ;
              Top := 0 ;
              Height := Button1.Height ;
              Width := Button1.Width ;
              Name := 'BotonX' + IntToStr(i);
              Caption := '¡Pulsame ' + IntToStr(i) +'!';
              Color := clDefault;
              Visible := True;
              PosX := PosX + Width;
            end;
      end;
 
end;

¿Pueden ayudarme a hacer un código mas decente y ademas que cumpla el cometido de llenar toda el área del form?


Agradesco su tiempo!     

[egostar]

Que tal amigo Fidel,

A ver que te parece esto.



Éste es el código:

delphi

procedure TForm1.FormShow(Sender: TObject);
var
  I: Integer;
begin
  Alto := Height;
  Ancho := Width;
  for I := 1 to 108  do
  begin
    Boton := TBitBtn.Create(nil);
    Boton.Parent := FlowPanel1;
    Boton.Name := Format('Boton%d',[I]);
    Boton.Height := Alto div 5 ;
    Boton.Width := Ancho div 5 ;
    Boton.Caption := '¡pulsame!';
  end;
end;

Saludos

Archivos adjuntos

•  3507_88758c0e0f0d825b5649019992b6c39e5509595c.zip   7,09KB   5 descargas
•  3506_a8999d7b5c4463597b880cd7cef8b0e7073dd920.zip   217,97KB   1 descargas

[egostar]

Digo, con tiempo se puede hacer algo más decente, pero ahí está la idea

Viva el FlowPanel

Saludos

PD: Necesitas Delphi 2006 o mayor 

[Delphius]

Eliseo, ¿que tiene de interesante el TFlowPanel por sobre el TPanel común de toda la vida?

Saludos,

[egostar]

Eliseo, ¿que tiene de interesante el TFlowPanel por sobre el TPanel común de toda la vida?

Saludos,

Ahhh, pues porque no te interesa donde colocar los botones, los creas y se ordenan automáticamente

Saludos

[Delphius]

Ahhh, pues porque no te interesa donde colocar los botones, los creas y se ordenan automáticamente

Saludos

No jodas  ¿Y sirve para todos tipos de controles? De ser así, se la han currado.

Saludos,

[egostar]

Ahhh, pues porque no te interesa donde colocar los botones, los creas y se ordenan automáticamente

Saludos

No jodas  ¿Y sirve para todos tipos de controles? De ser así, se la han currado.

Saludos,

Así es, cualquier control que coloques se ordena dentro del FlowPanel.

Saludos

[Delphius]

Vaya... si que se la jugaron con ese componente.

FGarcia se puede mejorar tu código, vas bien. Yo le hago algunos cambios:

1) Si sabemos el Largo y Alto del control tanto del control como del panel/formulario podemos saber la cantidad a distribuir:

delphi

CantidadX := LargoTotal div LargoControl;
CantidadY := AltoTotal div AltoControl;

Entonces la cantidad total de controles será de:

delphi

CantidaTotal := CantidadX * CantidadY;

Ahora, en realidad se puede saber la posición de todos y cada uno de los controles. Podemos aprovechar la matemática a nuestro favor. Para ilustrarlo, imaginemos que el form o panel es una matriz, para el ejemplo tenemos para distribuir (5 x 3):

0 - 1 - 2 - 3 - 4
5 - 6- 7 - 8- 9
10 - 11 - 12 - 13 - 14

Nota que utilicé una notación basada en cero. Ya verás porqué. Ahora, observemos como sería colocados en base a sus coordenadas:

0 = (0,0) ... 4 = (4L, 0)
5 = (0, 1A) ... 9 = (4L, 1A)
10 = (0, 2A) ... 14 = (4L, 2A)

Siendo L el LargoControl, y A el AltoControl. Fíjate que en realidad cualquier control estará ubicado en un múltiplo (Mx * L, My * A) Para la primera fila (fila 0) Mx va de 0 a 4, y vuelve a repetirse la secuencia para la segunda y tercer fila. My por otra parte, incrementa su valor en cada paso de de fila (0 a 2).

Entonces tenemos que, si contamos desde cero:

delphi

My := -1; // inicialmente no hemos posicionado nada....
for i := 0 to CantidadTotal - 1 do
begin
  Control := TButton.Create(nil);
  Control.Name := 'Pulsame' + IntToStr(i);
  // aquí vamos a posicionarlo:
  Mx := i MOD CantidadX;
  if Mx = 0
    then Inc(My); // hemos iniciado una nueva fila
  PosX := Mx * LargoControl;
  PosY := My * AltoControl;
  Control.Width := LargoControl;
  Control.Heigh := AltoControl;
  Control.Left := PosX;
  Conttol.Top := PosY;
end;

Fíjate que no hace falta hacer dos ciclos... podemos crear y posicionarlos de una. 

Espero que esto te sea de orientación.

[egostar]

Para algo decia yo que debia usar Alto y Ancho, pero francamente no tenía la mente como para forzarla más, ya no estoy en edad de esos menesteres y menos a esas altas horas del día.

A veces me gustaría tener 25 años menos

Saludos

[Delphius]

Para algo decia yo que debia usar Alto y Ancho, pero francamente no tenía la mente como para forzarla más, ya no estoy en edad de esos menesteres y menos a esas altas horas del día.

A veces me gustaría tener 25 años menos

Saludos

No te creas que me resultó fácil a mi tampoco. Tenía la idea en la punta de la lengua como se dice, pero no encontraba la forma de expresarlo. Tuve que darme unos minutos y bueno al fin me salió "eso".
Allí se fue la última neurona que me quedaba anoche, lo siguiente fue apagar la computadora e ir a dormir 

Y a mi me gustaría tener 7 años menos... ¡como no existe RollBack! 

Saludos,

[FGarcia]

Hola!

No crean que me he olvidado de esto pero eso de andar fuera de la oficina todo el dia no me ha permitido poner en marcha esto y comentar los resultados.

Eliseo, si he visto algunos de los controles nuevo en D2010, sin embargo en los últimos meses he estado "jugando" con aparatos nuevos y algunos de ellos con programación tan básica que he optado ir a las bases de la programación para mejorar y entender mis habilidades.

Marcelo, andaba en muy el fondo de mi pequeña y blanca cabezita la idea del eje cartesiano pero no lo llegue a concretar muy bien, bastante explicito tu desarrollo.

Pruebo y les comento que resulto.

La única neurona que me queda la uso para respirar asi que aun tengo que enseñarle a trabajar con tiempos compartidos de procesador, imagínense es del mismo modelo que la de Eliseo!!!

[egostar]

Pruebo y les comento que resulto.

Esperamos tus comentarios

La única neurona que me queda la uso para respirar asi que aun tengo que enseñarle a trabajar con tiempos compartidos de procesador, imagínense es del mismo modelo que la de Eliseo!!!

Tómalo con calma mi amigo que puede sufrir un sobrecalentamiento y se va a resetear, caray, llega la edad en que uno debe aceptarlo y decir, Viva la Paz!!! 

Saludos

[FGarcia]

Pues les anexo la imagen resultante, ¡vaya que trabaja el cpu mientras crea los "botoncitos"!

De esto sale una pregunta que comentare en otro hilo para no mezclar temas. Al final cree el form y coloque un Timer que ejecutara el procedimiento de crear los botones; esto fue porque queria que el Form apareciese maximizado y ahi se genero la duda que menciono.

Saludos!!

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var
Control: TButton;
Mx, My, PosX, PosY, i:integer;
begin
  Timer1.Enabled := false;
 
  CantidadX := Width div 78; // LargoTotal div LargoControl;
  CantidadY := Height  div 25; //AltoTotal div AltoControl;
  CantidadTotal := CantidadX * CantidadY;
 
  My := -1; // inicialmente no hemos posicionado nada....
  for i := 0 to CantidadTotal - 1 do
      begin
           Control := TButton.Create(nil);
           Control.Name := 'Pulsame' + IntToStr(i);
           //Quien es el padre del control
           Control.Parent := Self;
 
           // aquí vamos a posicionarlo:
           Mx := i MOD CantidadX;
 
           if Mx = 0 then
              Inc(My); // hemos iniciado una nueva fila
 
           PosX := Mx * 78; //LargoControl;
           PosY := My * 25; //AltoControl;
 
           Control.Width := 78; //LargoControl;
           Control.Height := 25; //AltoControl;
           Control.Left := PosX;
           Control.Top := PosY;
      end;
 
end;

P.D. Si observan esto lo hice en Lazarus 0.9.31 (CodeThyphon 2.50)

Archivos adjuntos

•  3523_b3487e2805b9507553d19ee65aca0568a0ddc9c9.png   286,79KB   10 descargas

[Delphius]

Vaya... ese si que es un tablero 

Por el consumo de CPU pues si... puede ser elevado, sobre todos si los botones son muy chicos.
Quizá sea conveniente hacer dos cosas:
1) usar DoubleBuffered
2) forzar un Application.ProcessMessages al final de cada fila.

Eso podría ayudar en algo.

Además hay que tener en cuenta de que cada botón necesita de recursos, lo que se traduce en más Handles y es un motivo por el que se consume más memoria.

Lo de utilizar un timer no se si es bueno o no. Dependerá más que nada de diseño del sistema.

Saludos,

[enecumene]

Pues usando Hilos minimiza un poco el consumo.

Saludos.

[FGarcia]

Hola!

Pues la aplicacion solo es para probar (test) que realmente funciona todo el area de la pantalla touch, vaya una herramienta de diagnostico, no es como para meterse a tanto problema con los hilos y desempeño del cpu solo era una observacion.

En otro hilo Hector Randolph hace este comentario sobre como asignar un evento por codigo :

Bueno, aunque no aclaras muy bien qué problema se te presenta, voy a suponer que estamos hablando de Lazarus.

En tal caso, para asignar un evento por código se hace de la siguiente manera.

delphi

  OnMouseDown:= @ControlMouseDown();
  OnMouseMove:= @ControlMouseMove();
  OnMouseUp:= @ControlMouseUp();

Saludos

Bueno pues lo hice durante la creacion del control (Boton)

delphi

//Asignamos el evento al boton creado
           Control.OnClick := @EliminaBoton;  //Delphi solo: EliminaBoton;

si coloco los parentesis vacios me genera un error de que esperaba el ";" y recibio un "(" aqui no se si eso es una actualizacion del modo de asignacion o que, si alguien sabe y nos lo comenta se agradece.

El codigo del procedimiento EliminaBoton es:

delphi

procedure TForm1.EliminaBoton(Sender:TObject);
begin
  {if assigned(TButton(Sender)) then
     TButton(Sender).Free ;  }
  showmessage(TButton(Sender).Caption);
end;

El codigo comentado no me funciona

[Window Title]
Error

[Content]
El proyecto TestTouch ha lanzado una excepción de la clase 'External: SIGILL'.

At address 22DA0E9

[Aceptar]

   

¿Que esta mal?