Starkes Flimmern/Flackern

[holle]

Hallo, ich hab eine Ampelkreuzung erstellt. Die Kreuzung wird auf eine Paintbox gezeichnet, darüber befinden sich die shapes für die ampeln. wenn ich das programm starte, dann flimmert die ampeln sehr stark. wo dran liegt das?

mfg holle
(STARTEN: Programm starten => AutoErstellen => AutoFahren => AmpelAn);

[Matze]

Hi,

ich denke, hier würde ein DoubleBuffered := true; auf dem ParentControl (Form1) wahrscheinlich schon ausreichen.

Wenn nicht, dann zeichne alles intern auf ein Bitmap und gib es mit BitBlt auf der PaintBox aus.

Edit: Da ist ja der Source dabei, sorry, du machst es ja genau so. :wall:

Edit 2: Du könntest versuchen, die Ampeln auch manuell zu zeichnen und keine Shapes verwenden, dann würden die ganzen BringToFronts auch wegfallen.

[holle]

ich würde die shapes aber gerne behalten. gibt es keine andere lösung?

mfg holle

[Sunlight7]

Das Problem liegt an TImage oder TPaintBox, sehe ich das richtig, das die über die ganze Form liegen?
Leider kann ich das Projekt mit D5 nicht öffnen.

Ein Tip am Rande: Dateien mit .~xx brauchst Du nicht mit Zippen.

[Hawkeye219]

Hallo Marcel,

bei der Verwendung einer PaintBox ist zu beachten, daß alle Zeichenoperationen in der Behandlungsroutine für TPaintBox.OnPaint durchgeführt werden. Wenn du die eigentlichen Zeichenbefehle aus der Methode Redraw in diese Behandlungsroutine verschiebst, kannst du auf die Aufrufe .BringToFront verzichten:

Delphi-Quellcode:

procedure TFrmMain.PaintBoxPaint(Sender: TObject);
begin
  BitBlt(PaintBox.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SrcCopy);
  bitmap.canvas.Draw(0,0,image1.Picture.Graphic);
end;

procedure tFrmMain.ReDraw;
  var R : TRect;
begin
  // Neuzeichnen der Paintbox auslösen
  PaintBox.Invalidate;
{
  // nicht mehr notwendig...
  vgrn.bringtofront;
  :
  hlgw.bringtofront;
}
end;

Ein kleiner Fehler ist mir noch aufgefallen: wenn man die Autos fahren läßt, bevor sie erstellt werden, dann biegen sie an den Ampeln etwas zu früh ab. Ansonsten ist das Programm sehr schön gemacht.

Gruß Hawkeye

[holle]

danke, funktioniert.