Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[Xzeer]

Ich bekomme beim compilieren eines ganz simplen Projekts unter Delphi 2009 jede Menge Warnungen:

Zitat:

[DCC Warnung] AdBitmap.pas(199): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdBitmap.pas(407): W1057 Implizite String-Umwandlung von 'TAdVeryShortString' zu 'string'
[DCC Warnung] AdWindowFramework.pas(164): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdWindowFramework.pas(209): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdWindowFramework.pas(209): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdStandardFontGenerator.pas(90): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(1380): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(3288): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(3288): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdDraws.pas(3341): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdDraws.pas(3341): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdParticles.pas(1374): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'
[DCC Warnung] AdParticles.pas(1389): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdSprites.pas(238): W1055 PUBLISHED verursachte, dass RTTI ($M+) zu Typ 'TSprite' hinzugefügt wurde

Ich hoffe das hilft vielleicht...

[Xzeer]

Und beim compilieren der Andorra DLL mit Delphi 2009 bekomme ich auch ein paar Warnungen...

Zitat:

[DCC Hinweis] DX3DMain.pas(416): H2443 Inline-Funktion 'D3DCOLOR_ARGB' wurde nicht expandiert, weil Unit 'DXTypes' in der USES-Liste nicht angegeben ist
[DCC Hinweis] DX3DMain.pas(553): H2443 Inline-Funktion 'D3DXVector3' wurde nicht expandiert, weil Unit 'DXTypes' in der USES-Liste nicht angegeben ist
[DCC Hinweis] DX3DMain.pas(554): H2443 Inline-Funktion 'D3DXVector3' wurde nicht expandiert, weil Unit 'DXTypes' in der USES-Liste nicht angegeben ist
[DCC Hinweis] DX3DMain.pas(555): H2443 Inline-Funktion 'D3DXVector3' wurde nicht expandiert, weil Unit 'DXTypes' in der USES-Liste nicht angegeben ist
[DCC Warnung] DX3DMain.pas(608): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Hinweis] DX3DMain.pas(678): H2443 Inline-Funktion 'D3DCOLOR_ARGB' wurde nicht expandiert, weil Unit 'DXTypes' in der USES-Liste nicht angegeben ist
[DCC Warnung] DX3DHLSL.pas(122): W1057 Implizite String-Umwandlung von 'AnsiChar' zu 'string'
[DCC Warnung] DX3DShader.pas(125): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'

[3_of_8]

Zitat von bigben37:

Also ich hab grad auch Probleme damit, ich kann nicht einmal mehr ein Bild laden, es kommt immer der Fehler:

Fehler

---------------------------
Andorra Image List Editor
---------------------------
No loader found to load the specified file "C:\Dokumente und Einstellungen\Benjamin\Eigene Dateien\Delphi\Andorra 2d\test\testbild.png".
---------------------------
OK
---------------------------

Kann es sein, dass du die AdPNG oder wie die heißt einbinden musst?

[bigben37]

Hm, das Beispiel war nicht besonders gut gewählt , es geht auch bei BMP und JPG nicht.
AdPNG ist nicht eingebunden, aber es ist AdDevIL eingebunden.

[xZise]

Zitat von Leos-Studio:

Ich bekomme beim compilieren eines ganz simplen Projekts unter Delphi 2009 jede Menge Warnungen:

Zitat:

[DCC Warnung] AdBitmap.pas(199): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdBitmap.pas(407): W1057 Implizite String-Umwandlung von 'TAdVeryShortString' zu 'string'
[DCC Warnung] AdWindowFramework.pas(164): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdWindowFramework.pas(209): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdWindowFramework.pas(209): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdStandardFontGenerator.pas(90): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(1380): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(3288): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
[DCC Warnung] AdDraws.pas(3288): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdDraws.pas(3341): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdDraws.pas(3341): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
[DCC Warnung] AdParticles.pas(1374): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'
[DCC Warnung] AdParticles.pas(1389): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] AdSprites.pas(238): W1055 PUBLISHED verursachte, dass RTTI ($M+) zu Typ 'TSprite' hinzugefügt wurde

Ich hoffe das hilft vielleicht...

Also Andorra2D verwendet intern AnsiString, und der normale string ist ja seit Delphi 2009 ein Unicodestring. Somit ist dort immer eine Verlustbehaftete Konvertierung.

MfG
xZise

[3_of_8]

Na ja, auf jeden Fall ist die Frage, ob in den eingebundenen Dateien ein Loader für die zu ladenden Formate definiert wird.

[igel457]

Zitat von chamop87:

ich hab stundenlang bei meinem programm daran rumgegrübelt, warum einige rechtecke nicht in der bewünschten brush.color gezeichnet wurden.

Das Problem liegt einfach daran, dass die Punkte in den beiden oberen Beispielen falsch herum angegeben sind. Dadurch wird die Füllung nicht gezeichnet (es sei denn, du schaltest Culling über AdDraw.Options := AdDraw.Options - [aoCulling] ab). Siehe auch hier: http://de.wikipedia.org/wiki/Culling

@Leos-Studio
Die Warnungen lassen sich bei Delphi 2009 leider nicht vermeiden. An diesen Stellen kann aber eigentlich nichts schief gehen.

@bigben37
Wie lädst du die Bilder? Texture.LoadGraphicFromFile?

Auf jeden Fall Danke für die regen Rückmeldungen. Für Probleme macht aber bitte einen neuen Thread auf, damit man später die Antworten leichter findet

Andreas

[bigben37]

Zitat von igel457:

@bigben37
Wie lädst du die Bilder? Texture.LoadGraphicFromFile?

Ja, ich hab ja nur den Imagelisteditor neu kompilieren wollen und nichts daran verändert (kommt noch ). Aber die Exception tritt im Debug-Modus(F7) schon auf, wenn ich nur auf ein Bild klicke (im Opendialog).

Zitat von igel457:

Auf jeden Fall Danke für die regen Rückmeldungen. Für Probleme macht aber bitte einen neuen Thread auf, damit man später die Antworten leichter findet

Werds mir merken . Vielleicht könntest du mal darauf einen Blick werfen

MFG Benjamin

[xZise]

Hallo igel!

Ich habe mal die „GetSpritesAt“ umgesetzt:

Delphi-Quellcode:

{Returns all sprites at the specified position}
procedure GetSpritesAt(const AX, AY : Integer; ASprites : TSpriteList); overload; virtual;
{Returns all sprites at the specified position and of a specified type}
procedure GetSpritesAt(const AX, AY : Integer; ASprites : TSpriteList; AClass : TSpriteClass); overload; virtual;

procedure TSprite.GetSpritesAt(const AX, AY: Integer; ASprites: TSpriteList;
  AClass: TSpriteClass);
var
  i: Integer;
  Rect : TAdRect;
begin
  if Assigned(ASprites) then
  begin
    ASprites.Clear; // Standard ?
    for i := 0 to Items.Count - 1 do
    begin
      Rect := Items[i].BoundsRect;
      if (AX >= Rect.Left) and (AX <= Rect.Right) and
         (AY >= Rect.Top) and (AY <= Rect.Bottom) and
         (Items[i] is AClass) then
      begin
        ASprites.Add(Items[i]);
      end;
    end;
  end;
end;

procedure TSprite.GetSpritesAt(const AX, AY: Integer; ASprites: TSpriteList);
begin
  GetSpritesAt(AX, AY, ASprites, TSprite);
end;

Ich weiß nicht, ob das leeren der Liste eine Art Standard ist? Ich habe mich übrigens für die Variante als Übergabeparameter entschieden, da damit die Verwaltung der Liste komplett an die "Mutterklasse" abgegeben wurde.

MfG
xZise

[igel457]

Zitat von xZise:

Ich habe mal die „GetSpritesAt“ umgesetzt

Vielen Dank! Habe es reinkopiert.

[quote="bigben37"]

Zitat von igel457:

Aber die Exception tritt im Debug-Modus(F7) schon auf, wenn ich nur auf ein Bild klicke (im Opendialog).

Setze mal einen Haltepunkt in der Unit AdVCLFormats auf die erste Zeile von TAdVCLBitmap.LoadFromFile, und schau was passiert, und wo genau die Exception geworfen wird.

Zitat von bigben37:

Vielleicht könntest du mal darauf einen Blick werfen

Habe ich schon, aber ich kenne mich mit Newton nicht (mehr) sonderlich gut aus und kann dir nichts sagen, außer dass ich auch nicht weiß, was den Fehler auslöst.