Hola José:<div><br></div><div>Gracias por tus respuestas y por tu tiempo. Tienes razón, cuando se instala el componente gifanim instala también un ejemplo del manejo. </div><div>Encontré la solución reasignando el path de los gifs en el evento Activate del Form asÍ:</div>
<div><br></div><div>procedure TfrmCifLet.FormActivate(Sender: TObject);</div><div>var Anim1,Anim2,Anim3:String;</div><div>begin</div><div>  Anim1 := ExtractFilePath(ParamStr(0))+'/imaxes/letrasult.gif';</div><div>
  gifAnim1.FileName := Anim1;</div><div>  Anim2 := ExtractFilePath(ParamStr(0))+'/imaxes/demo.gif';</div><div>  gifAnim2.FileName := Anim2;</div><div>  Anim3 := ExtractFilePath(ParamStr(0))+'/imaxes/profesor.gif';</div>
<div>  gifAnim3.FileName := Anim3;</div><div>end; </div><div><br></div><div>No entiendo porque esto sólo es necesario para los paquetes .deb y.rpm.</div><div><br></div><div> Sempre creí  que ExtractFilePath(ParamStr(0)  devuelvía el path de $HOME. Nunca me dio problemas al contrario.</div>
<div><br></div><div>Un saludo y gracias de nuvo.</div><div><br></div><div>El 6 de agosto de 2011 12:17, José Mejuto <span dir="ltr"><<a href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>></span> escribió:</div>
<div><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Hello Anxo,<br>
<br>
Saturday, August 6, 2011, 11:43:45 AM, you wrote:<br>
<br>
AV>   Anim1 := ExtractFilePath(ParamStr(0))+'/imaxes/letrasult.gif';<br>
<br>
ParamStr(0) en Linux no tiene por qué apuntar a la carpeta donde está<br>
el programa, de hecho ParamStr(0) no debería usarse en Linux, sólo en<br>
casos excepcionales y como "fallback" en caso de que el resto falle.<br>
<br>
AV>   GifAnim1.LoadFromLazarusResource('Anim1');<br>
<br>
Para usar esto deberías haber creado el "resource" antes usando la<br>
utilidad "LazRes" en la carpeta Tools de Lazarus.<br>
<br>
LazRes gifsanimados.lrs letrasult.gif demo.gif profesor.gif<br>
<br>
Esto generará un archivo "gifanimados.lrs" que debes incluir en tu<br>
.lpr:<br>
<br>
<------------------------------------------------><br>
program prueba;<br>
<br>
uses<br>
  {$IFDEF UNIX}{$IFDEF UseCThreads}<br>
  cthreads,<br>
  {$ENDIF}{$ENDIF}<br>
  Interfaces, // this includes the LCL widgetset<br>
  Forms, LResources;<br>
<br>
begin<br>
  {$I gifsanimados.lrs}<br>
  Application.Title:='Mi titulo';<br>
  Application.Initialize;<br>
  Application.CreateForm(TfrmMain, frmMain);<br>
  Application.Run;<br>
end.<br>
<------------------------------------------------><br>
<br>
Ahora si puedes cargarlo con LoadFromLazarusResource:<br>
<br>
GifAnim1.LoadFromLazarusResource('profesor');<br>
<font color="#888888"><br>
--<br>
</font><div><div></div><div class="h5">Best regards,<br>
 José<br>
<br>
<br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br></div>