-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
6. Sep 2009
Dafür müsst ich mich bei SourceForge anmelden.... :?
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
6. Sep 2009
Konntest du bereits was rausfinden?
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Sep 2009
Der ist ziemlich lang, ich kann dir ja mal die Unit anhängen.
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Sep 2009
Hmmm. Nachdem ich diese Zeilen hinzufügte (und am Ende natürlich das Free) ändert sich leider nichts... :wiejetzt:
Aber vielen Dank für dein Interesse :dp:
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Sep 2009
Hi, diese Demo hab ich mir bereits angeschaut, allerdings konnte ich nur feststellen, dass ich am Ende von DoMove, Collision; aufrufen muss.
Und dann in DoCollision die genaue Behandlung.(if sprite is ... etc.)
Genau dies mache ich auch, muss ich für Kollisionen eventuell irgendwelche Befehle ich die Idle procedure schreiben?
mfG
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Sep 2009
Jetzt hab ich aber eine weitere Frage.
Eine Klasse wurde von TImageSprite abgeleitet.
im DoMove dieser rufe ich ganz am Ende:
Collision;
auf.
An diese Stelle komme ich immer, allerdings wird die DoCollision procedure niemals ausgeführt. Muss ich für Kollisionen noch etwas beachten?
Danke mfG
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
3. Sep 2009
Hat sich erledigt, konnte das Problem lösen.
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
2. Sep 2009
kleine ergänzung:
Aim wird so gesetzt:
procedure TEinheit.Gehen(P: TPoint);
begin
FYSpeed := 0;
FXSpeed := 0;
Aim := p;
p.X := p.X - round(X);
p.Y := p.Y - round(Y);
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
2. Sep 2009
Hi, tatsächlich hast du Recht, ich weiß auch nicht, was da vorhin falsch war.
Allerdings, bei folgender DoMove procedure
procedure TEinheit.DoMove(TimeGap: Double);
var A, B, AB, BB: Integer;
begin
inherited DoMove(TimeGap);
A := round(X);
B := round(X+200);
AB := round(Y);
BB := round(Y+200);
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
2. Sep 2009
Hi Andreas, vielen Dank für deine Antwort.
zu 1.:
Das bekomme ich wohl vorerst nicht hin.
zu 2.:
Da viel mir jetzt was auf.
mit
p := Mouse.CursorPos;
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
1. Sep 2009
Weiß das niemand? Nichtmal der gute Igel? :gruebel:
mfG :dp: trotzdem
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
30. Aug 2009
Ahso, sehr schön :)
Ich hab dann auch mal eine Frage:
Kann man einem Sprite mehrere Bilder zuweisen?
mfG
EDIT: Eine Weitere Frage:
Wenn ich mit der Maus wohin klicke, auf einem Andorra Fenster mit 800 mal 600 als abmessungen, dann kanns z.B. 50,200 sein. Aber wie bekomme ich den angeklickten Punkt in AdDraw Koordinaten raus, diese können ja z.B. 5000,20000 sein...
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
26. Aug 2009
Hi, ich hab schon wieder eine Frage:
Mit einem BackgroundSprite kann man sich ja einen Untergrund sinnvoll aufbauen.
KAnn ich damit aber auch bewerkstelligen, dass sich an einem bestimmten Ort z.B. Wasser befindet?
Wisst ihr was ich meine?
mfG :dp:
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
24. Aug 2009
Danke Andreas, damit gehts :)
Zu dir fui-tak, da fällt mit wirklich nichts dazu ein... :pale:
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
24. Aug 2009
Danke, war eigentlich logisch, stand ich mal wieder auf dem Schlauch...
Aber da erhalte ich den Fehler:
in folgender Zeile:
AdGUIImage.Picture.LoadFromGraphic(bmp);
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
24. Aug 2009
Vielen Dank für die schnelle Antwort, aber was ist in deinem Bespiel
AdImage
?
Danke, mfG.
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
24. Aug 2009
Hallo ihr Experten,
ich hab mal wieder eine Frage.
Mit
AdGUIImage.Picture.LoadFromFile(path+'Bild',true,clFuchsia);
kann ich einem AdGUIImage ein Bild aus einer Datei zuweisen... Aber ich komme einfach nicht darauf, wie ich das aus einer AdImageList rausholen kann...?!
Könnt ihr mir helfen.
mfG :cheers:
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
23. Aug 2009
var Point: TPoint;
...
GetCursorPos(Point);
ScreenToClient(Point);
oder z.B.
Point := TPoint(50,60);
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
23. Aug 2009
wenn du i-wo TPoint verwendest kannst du bei ScreenToClient in die Klammer die Variable einfügen...
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
22. Aug 2009
Ich hab jetzt nicht den ganzen Quelltext gelesen, aber wenn ich mich nicht irre, könnte
ScreenToClient(TPoint);
helfen...?! :gruebel:
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
10. Aug 2009
Ah, vielen Dank.
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
10. Aug 2009
Hallo, ich habe eine Klasse (TEinheit) von TImageSprite abgeleitet und dort einige Eigenschaften hinzugefügt.
Gibt es irgendeine Möglichkeit, dass das folgende funktioniert?:
AdSpriteEngine2.GetSpriteAt(p.x, p.y).angeklickt := true;
angeklickt ist eine der neuen Eigenschaften(Boolean) aber da GetSpriteAt ein Sprite liefert, kennt er das nicht.
Kann mir jemand helfen?
Danke und mfG
...
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Aug 2009
Danke, werd ich probieren.
-
Forum: Software-Projekte der Mitglieder
by Vasco da Gama,
5. Aug 2009
Hallo, wie kann ich AdFont anpassen?(Schriftart, Größe etc.)