Ver Mensaje Individual
  #16  
Antiguo 07-06-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Hola Ñuño,

ahora mismo no tengo mucho tiempo para hacer pruebas. Pero te cuento como me fue con un par de ejemplos.

Primero hay que añadir el directorio "lib" al "Search Path" del proyecto (Menú: "Project/Options/Directories Conditionals/Search Path"). Y definir la condición WINDOWS (Menu: "Project/Options/Directories Conditionals/Conditionals defines").

Luego modificamos la clausula uses de varios .pas

albitmap.pas
Código Delphi [-]
  USES
    albase, alcolor, alvtable
{$IFNDEF FPC}
 {$IFDEF WINDOWS}
,Windows
 {$ENDIF}
{$ENDIF}
;

alfile.pas
Código Delphi [-]
{$IFNDEF FPC}
  USES Sysutils, albase;
{$ELSE}
  USES strings, albase;
{$ENDIF}

alKeybrd.pas
Código Delphi [-]
{$IFNDEF FPC}
  USES Sysutils, albase;
{$ELSE}
  USES albase;
{$ENDIF}

exBlend.pas, lineas (142 y 154)
Código Delphi [-]
  
  image1 := al_load_bitmap (filename, AL_RGBptr(@pal));
  image2 := al_load_bitmap (filename, AL_RGBptr(@pal));

Hasta aquí llegue, probé los ejemplos: exblend, excolmap y el hipnótico expal, en cuanto tenga tiempo le hecho un vistazo al resto.
Responder Con Cita