[Lazarus-es] Componente wile64

[Anxo Vázquez]

Hola José:

Gracias por tus respuestas y por tu tiempo. Tienes razón, cuando se instala
el componente gifanim instala también un ejemplo del manejo.
Encontré la solución reasignando el path de los gifs en el evento Activate
del Form asÍ:

procedure TfrmCifLet.FormActivate(Sender: TObject);
var Anim1,Anim2,Anim3:String;
begin
  Anim1 := ExtractFilePath(ParamStr(0))+'/imaxes/letrasult.gif';
  gifAnim1.FileName := Anim1;
  Anim2 := ExtractFilePath(ParamStr(0))+'/imaxes/demo.gif';
  gifAnim2.FileName := Anim2;
  Anim3 := ExtractFilePath(ParamStr(0))+'/imaxes/profesor.gif';
  gifAnim3.FileName := Anim3;
end;

No entiendo porque esto sólo es necesario para los paquetes .deb y.rpm.

 Sempre creí  que ExtractFilePath(ParamStr(0)  devuelvía el path de $HOME.
Nunca me dio problemas al contrario.

Un saludo y gracias de nuvo.

El 6 de agosto de 2011 12:17, José Mejuto <joshyfun en gmail.com> escribió:

> 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é
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110806/7c8a53fb/attachment-0002.html>