Einzelnen Beitrag anzeigen

Benutzerbild von g0rmed
g0rmed

Registriert seit: 3. Apr 2007
Ort: Sülzetal
64 Beiträge
 
Delphi 2005 Personal
 
#151

Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]

  Alt 27. Apr 2007, 13:35
geht mir auch so..alle beispiele funktioneren aber bei mir bekomm ich ne exeption.
ich hab mal genau nachgeguck, die ist (denke ich):
wenn ich ne schrift erstelle, dann kommt die exeption beim erstellen der imagelist, bei den vertices des "Font-Bildes"

Delphi-Quellcode:
constructor TAdFont.Create(AParent: TAdDraw);
begin
  inherited Create;
  FParent := AParent;
  FMeshList := TAdImageList.Create(FParent); <-- ich denke hier...
  FTexture := TAdTexture.Create(FParent);
  FCompressor := FTexture.Compressor;
  FLetterCount := 0;
  FColor := clWhite;
  FAlpha := 255;
  CreatedByList := false;
  ClearFont;
end;
Und dann hier:
Delphi-Quellcode:
procedure TAdImage.DrawMesh(DestApp: TAdDraw; DestRect,
   SourceRect: TRect; Rotation: integer; RotCenterX, RotCenterY: single;
    BlendMode: TAd2DBlendMode);
[...]
if not CompRects(SourceRect,FSrcRect) then
begin
  FSrcRect := SourceRect;
  BuildVertices; <-- hier
end;
[...]
und hier:
Delphi-Quellcode:
procedure TAdImage.BuildVertices;
[...]
       end;
     end;
     AdMesh.Vertices := Vertices;
 
     if FUseIndexBuffer then <-- hier die Exeption
     begin
[...]
Ich hoffe es liegt nicht an mir...
Edit: habe auch D2005
Hans
  Mit Zitat antworten Zitat