Andorra 2d - Tutorial Teil 3

[igel457]

Fehler von mir, füge am Anfang der AdPixelTest Unit (unter dem Unit-Schlüsselwort) folgendes

Code:

{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}

[Noobmaster]

Delphi-Quellcode:

unit AdPixelTest;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}

So habe ich das jetzt gemacht, dann kommt aber in der Unit AdSprites eine Reihe von neuen Fehlern!

[igel457]

Hallo.

Kannst du die Fehlermeldungen mal hier reinstellen?

[Noobmaster]

Es sind sehr viele und für mich sehr unverständliche, aber ich werde sie gerne mal auflisten. Mein Lazarus-Compiler zeigt also folgendes an:
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(59, 19) Hint: Type "TIntegerArray" redefinition
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(520 ,46) Error: Identifier not found "MsgSpriteListIsNil"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(525 ,27) Error: Incompatible type for arg no. 3: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdTypes.pas(499,1 0) Hint: Found declaration: InRect(const LongInt,const LongInt,const TAdRect):Boolean;
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(698 ,88) Error: Incompatible type for arg no. 2: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdTypes.pas(444,1 0) Hint: Found declaration: OverlapRect(const TAdRect,const TAdRect):Boolean;
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(808 ,59) Error: Incompatible type for arg no. 2: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdTypes.pas(444,1 0) Hint: Found declaration: OverlapRect(const TAdRect,const TAdRect):Boolean;
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(109 1,47) Error: Wrong number of parameters specified for call to "AdRectEx"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdTypes.pas(433,1 0) Hint: Found declaration: AdRectEx(Double, Double, Double, Double):<record type>;
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(110 0,48) Error: Wrong number of parameters specified for call to "AdRectEx"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdTypes.pas(433,1 0) Hint: Found declaration: AdRectEx(Double, Double, Double, Double):<record type>;
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(112 8,50) Error: Incompatible type for arg no. 2: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdDraws.pas(1968, 26) Hint: Found declaration: TAdCustomImage.StretchDraw(TAdSurface,const TAdRect, LongInt);
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(124 1,51) Error: Incompatible type for arg no. 2: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdDraws.pas(1890, 26) Hint: Found declaration: TAdCustomImage.DrawAlpha(TAdSurface,const TAdRect, LongInt, LongInt);
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(125 6,54) Error: Incompatible type for arg no. 2: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdDraws.pas(1968, 26) Hint: Found declaration: TAdCustomImage.StretchDraw(TAdSurface,const TAdRect, LongInt);
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(144 9,67) Error: Incompatible type for arg no. 3: Got "TAdRectEx", expected "TAdRect"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdDraws.pas(1957, 26) Hint: Found declaration: TAdCustomImage.DrawEx(TAdSurface, TAdRect, TAdRect, Double, Double, LongInt, LongInt, TAd2dBlendMode);
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(187 1,50) Error: Incompatible type for arg no. 5: Got "TAdSpritePixelCollisionTester.DrawSpriteProc(TObj ect, TAdRenderingSurface, Single, Single);", expected "<procedure variable type of procedure(TObject, TAdRenderingSurface, LongInt, LongInt) of object;Register>"
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdPixelTest.pas(1 41,35) Hint: Found declaration: TAdPixelCollisionTester.CheckCollision(TObject, TAdRect, TObject, TAdRect, TAdCollisionTestDrawProc, TAdCollisionTestCollisionProc);
C:\Users\Boris\Desktop\Lazarusprogrammierungsanlei tungen\ad2d_451_ALL\ad2d_451\src\AdSprites.pas(187 6) Fatal: There were 11 errors compiling module, stopping

[igel457]

Hm, irgendwie habe ich fast das Gefühl, dass du zwei Andorra Versionen irgendwie "gemischt" hast. So hat die OverlapRect Funktion aus AdTypes.pas definitiv zwei überladene Varianten, von denen eine TAdRectEx unterstützt...

[Noobmaster]

"Achtung: Damit der Code ordnungsgemäß funktioniert ist es zwingend notwendig, dass die AdSprites.pas der Version 0.1.5 durch die neue Version aus dem CVS-Repository ausgetauscht wird: http://andorra.cvs.sourceforge.net/*checkout*/andorra/andorra/src/AdSprites.pas"
Tatsächlich hat er einige Identifiers bei mir nicht erkannt, weswegen ich die Dateien ausgetauscht habe.
Soll ich sie mal zurücktauschen?

[igel457]

Ja, du verwendest ja auch nicht Andorra 0.1.5 sondern 0.4.5