/*Prog*/ Delphi-Neftalí /*finProg*/

Se trata de un ejemplo sencillo que puede servir a quien esté comenzando con la creación de componentes en runtime y asignación de eventos. En este caso se trata de un visualizador de imágenes, que crea componentes TImage dentro de un TScrollBox, a modo de miniaturas, para luego visualizar esas imágenes en un control TImage a tamaño mayor.

Se utiliza también una TObjectList para almacenbar los objetos (componentes TImage y TPanel) que se van creando en ejecución para posteriormente poder acceder a ellos. Para crear los componentes se utiliza un código com este:

var
  im:TImage;
  i:Integer;
  pnl:TPanel;
begin
 
  // Para cada imagen
  for i := 0 to (imList.Count - 1) do begin
    // Crear el control imagen
    im := TImage.Create(nil);
    // Asignar propiedades
    im.Parent := ScrollBox1;
    im.Height := ScrollBox1.Height;
    im.Width := im.Height;
    im.Top := 0;
    im.Left := ((im.Width + 15{panel} + 4) * i);
    im.Transparent := true;
    im.Align := alLeft;
    im.Stretch := True;
    im.Proportional := True;
 
    // Cargar
    im.Picture.LoadFromFile(imList[i]);
    // vebto OnClick
    im.OnClick := ClickImage;
    // Añadirla a la lista de objetos
    oList.Add(im);
 
    // Separados
    pnl := TPanel.Create(nil);
    pnl.Parent := ScrollBox1;
    pnl.Left := im.Left + 5;
    pnl.Width := 15;
    pnl.Height := im.Height;
    pnl.Align := alLeft;
    pnl.Color := clBlack;
    // Aadirlo a la lista de objetos
    oList.Add(pnl);
 
  end;

Se puede descargar el código completo del ejemplo desde aquí .
Actualizo el contenido en DropBox.
Este ejemplo ha surgido a partir de este hilo en el ClubDelphi.

Otros ejempos útiles sobre el mismo tema, relacionados con este pueden ser «Crear, mover y redimensionar controles en Runtime (IDE)» o «Crear/destruir comp. en Runtime y moverlas con el ratón«.

Un saludo.

Si en Madrid fue el 28 de Septiembre, ya hay fecha disponible para Barcelona y será el 24 de Noviembre.

Danysoft organiza un seminario presencial en Barcelona en el que se presentarán las mejoras de la nueva familia de productos de Embarcadero, RAD Studio XE, Delphi XE, C++Builder XE, Delphi Prism XE y RadPHP XE.

Os dejo en enlace hasta su página, donde está detallado el contenido de la presentación, los enlaces para inscribirse y el resto de datos sobre este evento.

Ven a conocer el nuevo RAD Studio XE en Barcelona

Nos vemos allí.  ;-)

Esta semana he descargado la Trial de Rad Studio XE, a ver  si encuentro unos cuantos ratos para revisar esta nueva versión. Espero pronto poder comentar mis impresiones.

Esta semana leo en el Blog de Salvador sobre la presentación en Madrid del nuevo RAD Studio XE por parte de Danysoft. Muy interesante la reflexión, los enlaces y el resumen. Espero que en breve se celebre la de Barcelona.  Cuando haya fecha la publicaré y espero que nos vamos allí.

Como aplicación, esta semana os recomiendo un editor de Texto llamado RJ TextEd. Es gratuíto y escrito en Delphi, tal y como explica su autor Rickard Johansson aquí. A priori, puede parecer un simple editor más, creado utilizando los ya conocidos componentes SynEdit (que hacen casi todo el trabajo en estos casos), pero cuando uno le dedica un poco de tiempo, descubre que va mucho más allá. Una cuidada Interfaz, una gestión de descargas para complementos, diccionarios, skins e idiomas fantástica, distribución muy simple y clara -aun contando que hay infinidad de opciones, estas se encuentran muy bien dstribuídas-. recomendable 100%. Aquí podéis ver algunas pantallas del programa.

Estos días he añadido un sistema de votos a las entradas, utilizando el plug-in de WordPress WP-PostRating; La idea es saber qué entradas interesan más a las personas que revisan el Blog y que leen las entradas. Os animo a que votéis y de esta forma to recibo feedback de lo publicado.

Hace unas semanas (aun sigo con ellos a ratos y espero pronto publicar más relacionado con este tema) publiqué una entrada sobre las librerías de componentes ExtJS, con las que estoy haciendo pruebas para integrarlas como front-end con aplicaciones win32 hechas en Delphi; Desde la misma página se pueden descargar unas muy similares (en Java, en lugar de JavaScript) que son las GWT (Google Web Toolkit). Además estas últimas están disponibles en Google.Code. Podéis ver algunos ejemplos aquí. Hasta aquí, todo como hasta hace unas semanas. Lo interesante es que hace poco Google ha comprado instantiations, empresa que se dedicaba al desarrollo de herramientas para Java. Como resultado Google ahora dispone de GWT Designer; Un diseñador visual como plugin para Eclipse sobre las librerías GWT. Y hay que decir que si las librerías tienen muy buena pinta, el hecho de que dispongan de un buen IDE las convierte en una verdadero «caramelo» para los desarrolladores.

Esta semana leo en los foros del ClubDelphi, que Ramón (rrf) ha sacado la versión 0.9.04 del componente IniLang2 (también disponible en Torry) que mejora sustancialmente el original IniLang de Frdric Sigonneau. Es un componente sencillo para Delphi quepermite traducción de aplicaciones a multiidioma. Sin grandes pretensiones, es sencillo de utilizar y fácil de modificar y extender.

Estos días leo también que es posible descargar un número especial de Blaise Magazine dedicado a Bases de Datos de forma gratuíta. Descargar Número 95/13 (Septiembre 2010). Lectura muy recomendable. Está en inglés, pero los artículos son claros y adjuntan mucho código que ayuda a la comprensión.

Por último he actualizado la aplicación VProcess (visualizador de procesos activos a la versión 1.1) y he subido algunos contenidos más a mi cuenta de DropBox.

Un saludo y buen fin de semana.

Herramienta para visualizar los procesos/aplicaciones que hay ejecutándose en el ordenador. Permite visualizar a primera vista la información básica del proceso (icono, título, identificador, threads, descripción, prioridad, path de ejecución,…).
Utilizando el panel de «detalles» (F8) se puede conocer la inforamcon detallada de los procesos ene ejecución. Pulse F8 para visualizarlo y seleccione un el proceso de la lista.

VProcess está diseñado utilizando Borland Delphi 6 y la librería GLibWMI (página / SourceForge).

Se puede descargar el código fuente de la aplicación desde esta página o como parte de la Librería GLibWMI.

También es posible descargar sólo el ejecutable compilado (comprimido con UPX).

<descargar código fuente>

<descargar ejecutable>

Esta y otras aplicaciones estarán disponibles en la sección de aplicaciones de esta página. Allí podrás encontrar todas las descargas completas y futuuras actualizaciones de la aplicaciones.

Historial de versiones

(updated  15/10/2010)  versión 1.1

* Corrección de bugs menores
* Añadido multiidioma; Spanish, Inglés y Francés.
Utilizando GnuGetText.
* Añadir la opción de sustituir al Administrador de tareas por defecto de Windows.
* Cuadro inicial de mensaje.
* Añadir botones de acciones al menú.
* Opción de ejecutar nuevas aplicaciones.
* Opción de terminar un proceso que se está ejecutando….
* Exportación sin necesidad de instalar ningún componente (mxExports).
* Guardar opciones sin necesidad de instalar componentes (RxLib).
* Permite cerrar/Ejecutar nuevos procesos.

Código fuente y binarios subidos a DropBox.

Hay un ejemplo antiguo en la página en la sección de ejemplos, titulado «Trocear un bitmap en n imágenes a modo de puzle». Hoy ha salido en los foros una pregunta sobre la operación contraria, ¿Cómo unir varios bitmaps (TImage) en una única imagen?

Puede ser algo trivial para los que llevamos un tiempo en esto, pero no tanto para los que empiezan; Reconozco que yo al principio también me liaba con los Canvas, los Rect, los ClientRect y no sabía cual copiar en cada cual.  ;-)

El código para unir cuatro imágenes en una sóla formando un cuadro, es muy sencillo y sería algo así:

var
  ARect:TRect;
  path:string;
begin
 
  // Añadir los 4 canvas a la nueva imagen
  ARect.Left := 0;  ARect.Top := 0; ARect.Right := 48; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img1.Canvas, img1.ClientRect);
  ARect.Left := 48;  ARect.Top := 0; ARect.Right := 92; ARect.Bottom := 48;
  imgDestino.Canvas.CopyRect(ARect, img2.Canvas, img2.ClientRect);
  ARect.Left := 0;  ARect.Top := 48; ARect.Right := 48; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img3.Canvas, img3.ClientRect);
  ARect.Left := 48;  ARect.Top := 48; ARect.Right := 92; ARect.Bottom := 92;
  imgDestino.Canvas.CopyRect(ARect, img4.Canvas, img4.ClientRect);
 
  // Path para grabarla a disco
  path := ChangeFileExt(Application.ExeName, '.bmp');
  imgDestino.Picture.SaveToFile(path);
  MessageDlg('Se ha guardado la imagen con el nombre: ' +
             path, mtInformation, [mbOK], 0);

Si en lugar de unirlas formando un cuadro, se quieren unir de otra forma (las 4 en línea, por ejemplo), basta con cambiar las coordenadas de destino.

Si hubiera que cambiar el tamaño final, por ejemplo para reducirlo hasta el de las imágenes originales, se podrían aplicar técnicas de antialiasing al redimensionar.

Descargar ejemplo.

Un saludo.

He abierto una nueva encuesta relacionada con algunas herramientas que podemos encontrar en las últimas versiones de Delphi. Herramientas que nos deberían ayudar a desarrollar mejor y más eficientemente nuestras aplicaciones.

Animaros a contestar.

Se admiten sugerencias sobre ítems que puedan faltar.

Un saludo.

Si no os acaba de gustar o no es vuestro estilo, un póster como el de Raquel Welch, que cuelga Andrew Dufresne (Tim Robbins) en la película «Cadena perpetua», o simplemente sois un poco más «frikis» y/o  fans de Delphi, os adjunto este que hoy he visto en «TheRoadToDelphi» y que me ha traído gratos recuerdos.  ;-)

VCL Object Hierarchy

Un saludo.