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