[Lazarus-es] Componente wile64

[José Mejuto]

Hello Anxo,

Saturday, August 6, 2011, 11:43:45 AM, you wrote:

AV>   Anim1 := ExtractFilePath(ParamStr(0))+'/imaxes/letrasult.gif';

ParamStr(0) en Linux no tiene por qué apuntar a la carpeta donde está
el programa, de hecho ParamStr(0) no debería usarse en Linux, sólo en
casos excepcionales y como "fallback" en caso de que el resto falle.

AV>   GifAnim1.LoadFromLazarusResource('Anim1');

Para usar esto deberías haber creado el "resource" antes usando la
utilidad "LazRes" en la carpeta Tools de Lazarus.

LazRes gifsanimados.lrs letrasult.gif demo.gif profesor.gif

Esto generará un archivo "gifanimados.lrs" que debes incluir en tu
.lpr:

<------------------------------------------------>
program prueba;

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, LResources;

begin
  {$I gifsanimados.lrs}
  Application.Title:='Mi titulo';
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.
<------------------------------------------------>

Ahora si puedes cargarlo con LoadFromLazarusResource:

GifAnim1.LoadFromLazarusResource('profesor');

-- 
Best regards,
 José