Grafikfehler bei Verschieben

[Admirandis]

Hi Leute!

Ich hab folgendes Problem: Ich bin also noch ein ziemlich Anfänger in Sachen Delphi... Also, ich will ein Bild von der Seite "einfliegen" lassen, aber wenn ich das mache, kommen so paar nervige Striche auf das Bild... Kann man da vielleicht irgendwas mit DirectX oder mit Canvas machen?

Grüße

Admirandis

[fkerber]

Hi!

Was denn für nervige Striche?
Zeig doch mal etwas Code!
Hast du DoubleBuffered gesetzt?

Ciao Frederic

[XeRo]

wie lässt du das bild den einfließen, kannst uns code geben?

[edit]verdammt 2ter[/edit]

[Admirandis]

also entweder dass ich die Breite änder, also:

\\beim Formcreate:
image1.width := 0;


\\und dann wenn ichs brauch:
image1.width := image1.width+1;

ODER:

\\Beim Formcreate:
image1.left := -200;

\\und dann wenn ichs brauch:
image1.left := image1.left +1 until ...

Thomy

[fkerber]

Hi!

mit kann man den Code richtig formatieren.

Wann rufst du das auf? Und wie?
Wie sehen diese Streifen aus?

Ciao Frederic

[fred.reichbier]

Hi!

mach es mit einem Timer:

Ins FormCreate:
Image1.Left := -100; //zum Beispiel Einen Timer(unter "System") aufs Formular,
in die Timer1Timer:

Delphi-Quellcode:

Image1.Left := Image1.Left + 1;
if Image1.Left >= 200 Then //Obergrenze
begin
Timer1.Enabled := False;
end;

MfG,
fred

[turboPASCAL]

Hi, versuch mal DoubleBuffered

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoubleBuffered := True;
  ...
  ...

Wozu ist das image1.width := 0; ?

[Admirandis]

ja, soweit ist es schon klar, aber da kommen ja diese bescheidenen Streifen im Bild... So wäre das ja kein Problem, aber das geht ja irgendwie mit der grafikdarstellung nicht...
Thomy

[turboPASCAL]

Ein Bild sagt mehr als 1000 Worte. (ein bissel Code auch)

[jfheins]

Oder ruf' nach jedem verschieben ein Form1.Repaint (oder war .Refresh ?) auf