Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 15-09-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Poder: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
elistraus,

Cita:
Empezado por elistraus
...He puesto la carpeta completa en Lib y le he agregado el path de nombre delphiSource...parece que a lo mejor me falta algo...no me carga el soporte a png...


Te sugiero, no colocar ningún componente o librería dentro del directorio de Delphi en 'C:\Program Files', una mejor opción es crear un directorio de componentes y librerías específicamente para dichos casos, por ejemplo : 'C:\DelphiAddOns'

Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls,
  PNGLoader, LinarBitmap, ExtCtrls, FileUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Inicializa la aplicación
procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Stretch := True;
   Caption := 'Test ImageFileLib';
end;

// Permite cargar y visualizar imágenes PNG en un componente TImage
procedure TForm1.Button1Click(Sender: TObject);
begin
   OpenPictureDialog1.Filter := 'All images PNG | *.png' + BitmapLoaders.GetLoadFilter;
   if OpenPictureDialog1.Execute then
   with TLinearBitmap.Create do
   try
      Image1.Picture := nil;
      LoadFromFile(OpenPictureDialog1.FileName);
      AssignTo(Image1.Picture.Bitmap);
      Caption := 'Test ImageFileLib : ' + OpenPictureDialog1.FileName;
   finally
      Free;
   end;
end;

end.
El código anterior en Delphi 7 bajo Windows 7 Professional x32, permite cargar y visualizar imágenes PNG en el componente TImage por medio de la librería ImageFileLib, como se muestra en las siguientes imágenes:





Nota: Te sugiero revisar la carpeta Demo que viene con la librería ImageFileLib, la cual trae un ejemplo que permite cargar y visualizar diferentes formatos de imágenes, por medio de sus unidades especializadas : ICOLoader, JPEGLoader, PNGLoader, HIPSLoader, BMPLoader, PCXLoader, WMFLoader.

Espero sea útil

Nelson.

Última edición por nlsgarcia fecha: 15-09-2014 a las 07:42:05.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Instalar paquete Tee (Tee77) McK OOP 4 29-09-2012 22:36:08
Como instalar el paquete Web para lazarus ? rolandoj Lazarus, FreePascal, Kylix, etc. 2 19-08-2011 04:22:50
Me pide un .dcu al instalar un paquete noob Varios 11 28-06-2011 07:23:50
Problema al instalar un nuevo paquete Buelos Varios 3 07-07-2008 10:55:32
Como instalar un paquete en delphi 2005 Drkwrz Varios 0 07-06-2005 12:57:57


La franja horaria es GMT +2. Ahora son las 03:42:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi