Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[TeronG]

Könntest du (z.b. im ersten Post) auf deine DP-Tutorial-Threats verlinken?
Dann würde ma sie besser finden

[igel457]

Zitat:

Zitat von TeronG

Könntest du (z.b. im ersten Post) auf deine DP-Tutorial-Threats verlinken?
Dann würde ma sie besser finden

Gute Idee, habe ich vergessen.
Die Tutorials sind nun verlinkt.

[TeronG]

Zitat:

Zitat von igel457

Gute Idee, habe ich vergessen.

klar ... war ja auch von mir :mrgreen: ...... :oops:

[framik]

Zitat:

Zitat von igel457

Delphi-Quellcode:

AFont := TAdFont.Create(AdDraw1);
//Einfachen Font erstellen oder...
AFont.CreateFont('Arial',[fsBold],12); //Erzeugt einen Font der Schriftart 'Arial', Fett in Schriftgröße 12

Da scheint noch was nicht zu funktionieren.

Bei mir gibt es einen Absturz in AdDraws bei

Delphi-Quellcode:

 
if AShadow then
    begin
      bmp2 := TBitmap.Create;
      bmp2.Assign(bmp);
      bmp2.Canvas.Brush.Assign(Brush);
      bmp2.Canvas.Font.Assign(Font);
    end;
bmp2.Canvas.Font.Color := RGB(AShadowAlpha,AShadowAlpha,AShadowAlpha); //<-- hier kommt der Absturz

Da AShadow bei mir false ist, wird bmp2 natürlich nicht erstellt danach aber trotzdem zugegriffen :-(

EDIT: Zusatzfrage, was gebe ich an wenn ich fsBold nicht nutzen möchte, also normale Schriftart?

[Neutral General]

Zitat:

Zitat von framik

EDIT: Zusatzfrage, was gebe ich an wenn ich fsBold nicht nutzen möchte, also normale Schriftart?

Ich schätze mal

Delphi-Quellcode:

AFont.CreateFont('Arial',[],12);

Der Zweite Parameter ist ein Set.. Also ginge mit Sicherheit auch:

Delphi-Quellcode:

AFont.CreateFont('Arial',[fsBold,fsStrikeOut,fsItalic],12);

;)

Gruß
Neutral General

[igel457]

:oops:
Ja, den Fehler kannte ich und ich habe ihn auch schon und behoben.

Schau mal hier...
http://andorra.cvs.sourceforge.net/*...?revision=1.31

Ersetzte einfach mal die Datein.

(Gerade war ich der 888 Besucher auf meiner Website :-))

Igel457

[framik]

Zitat:

Zitat von igel457

:oops:
Schau mal hier...
http://andorra.cvs.sourceforge.net/*...?revision=1.31

Schon gemacht. Ist jetzt wieder okay.

Kleine Verbessrungsvorschlag hab ich aber doch noch für TAdFont.
Das Feld FParent in TAdFont sollte auch eine public Property Parent haben, damit man vor der Ausgabe mit Textout noch das Ziel-AdDraw ändern kann.
In meinem Anwendungsfall ist zum Zeitpunkt dr Erstellung von TAdFont die AdDraw nämlich noch nicht festgelegt. :cry:

EDIT: Argh...TAdFont.Create(nil) geht ja gar nicht...wegen der FTexture...da muss ich mir wohl was anderes einfallen lassen

[igel457]

Es ist leider nicht möglich das ganze auf mehrere AdDraws zu verteilen. AdDraw repräsentiert intern ein eigenes IDirect3DDevice9 und dem kann nur eine Textur gehören. Die Angabe des AdDraw bei der "Draw" Routine ist (momentan) nur aus kompatibilitätszwecken zu DelphiX. Später wird es aber so genannte Surfaces geben, auf die dann gezeichnet werden kann.

Im Anhang ist mal noch ein kleines Bildchen von meinem aktuellen Teilprojekt und zwar Newton für Andorra 2D.

[igel457]

Hallo.

Jetzt gibt es Version 0.15 von Andorra 2D zum Download. Es stehen fünf verschiedene Packages zur Auswahl. Eine Aufzählung gibt es hier.

Danke an framik, der eine praktische Unit (AdApps.pas) geschrieben hat, die die Initialisierung von Andorra 2D auf wenige Zeilen verkürzt.

Viel Spaß damit,
Igel457

[mimi]

ich habe heute versucht unter Lazarus(unter ubuntu) es zu komplieren. bzw. ich habe die units
eingebunden AdDraws, AdClasses und er meckert in der AdDraws unit das er die unit Windows nicht findet !

edit:
ich habe jetzt mal die windows unit überall entfernt leider kein erfolgt. nun findet er die LoadLibrary
funktion nicht mehr !