SCrollen ?

[mimi]

Hallo,
Wie kann ich mit einem array[0..20] of TPoint
Scrollen ? ( Mit einem array[0..MapX,0..MapY] of TGame
habe ich es geschaft)


ich arbeite mit "DelphiX" und "Delphi 5 Standart"
Kennt einer Tutors oder Dokus ?

MFG
Michael Springwald

[mimi]

keiner einer idee wie das geht ?

[NeoDeluxe]

Hör mal mimi, wie wär's wenn du dir deine blöden sprüche lässt und uns den Traffic sparst :x . Lass es doch sein wenn du keine Antwort weisst :x . Oder machts es dir Spaß solchen blöden kommentare zu lassen? :x

[mimi]

Wozu ist ein Forum da, wenn man keine Fragen stellen darf ?
könntes du mir das sagen ?
und deinen beitrag könntes du dir auch sparen weil er keine antwort auf meine Frage gibt !!!!
ich will jetzt kein Streit anfagen sondern nur eine Antwort auf meine Frage haben. Sonst nichts !

[Christian Seehase]

Moin NeoDeluxe,

:warn:

es ist absolut in Ordnung, wenn jemand nach einer gewissen Zeit, und Michael hat sich damit immerhin fast zwei Wochen Zeit gelassen, seine Frage wieder nach oben holt. Immerhin kann es ja sein, dass jemand, der diese beantworten kann den Thread übersehen hat.

Ausserdem möchte ich Dich dringend bitten derartige Postings künftig zu unterlassen.
Wenn Du denn solche Aussagen unbedingt für nötig erachtest, was ich mir eigentlich nicht vorstellen kann, dann nur per PM.

Danke.

[mimi]

Sehe ich genauso ;)
aber jetzt wider zur eigentlichen Frage:
Wie kann ich mit DelphiX Scrollen ?
und das mit so eine Array:

Code:

  Objekte:array[0..9] of TPoint ?

so habe ich es hinbekommen:

Code:

  Objekte:array[0..9,0...9] of TKarte ?

hat da einer eine idee ?

[Basti]

Wie willst du mit einem Array scrollen?

Versuch es mal mit einem Objekt, das diese Eigenschaften hat:
Engine.X := -x + (Engine.Width - Width) div 2;
Engine.Y := -y + (Engine.Height - Height) div 2;

Gruß Basti :dancer:

[mimi]

ich habe ja mehre objekte da wollte ich im array scrollen.
ich wollte den array durch gehen per for schleife, und anschließen die X und Y variablem auswertn, aber wie ?

[Basti]

Du musst gar nicht alle Objekte verschieben.
Erstellen einfach irgendein Objekt vom Typ TImageSprite, dass muss nicht mal ein Bild haben:


type TScrollObjekt = class (TImageSprite)
procedure DoMove (MoveCount: Integer);override;
end;

procedure TScrollObjekt.DoMove(MoveCount: Integer);
begin
inherited DoMove (MoveCount);
Engine.X:= -x + (Engine.Width - Width) div 2;
Engine.Y:= -y + (Engine.Height - Height) div 2;
end;

Jetzt reicht es aus, dieses ScrollObjekt zu verschieben,
alle anderen Objekte gehen in die entgegengesetzte Richtung, und
damit hättest du eine Scrolleffekt.

Gruß

Basti :dancer: