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
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Stretch := True;
Caption := 'Test ImageFileLib';
end;
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.