Cursor Flickert über TImage

[Memnarch]

Tag allerseits.
Hab gerade nochn Nebenprojekt angefangen. Folgendes:
Um eine Animation darzustellen, zeichne ich ca 20Mal pro sekunde auf ein Timage.
Damit der alte Hintergund verschwindet, nutze ich FillRect und zeichne dann neu.

Problem:
Während die Darstellung auf dem TImage einwandfrei ist, Flickert der mouse Cursor wenn er sich darüber befindet o.O.
Hab schon versucht die EraseBackground message abgzufangen, aber das brachte auch nichts(Sowohl bei TImage, als auch bei meiner Form). Form auf DoubleBuffered zu stellen brachte auch keine veränderung...außer das die CPU gequält wird >.<

Überlappt ein Menü das TImage, wird das Menü normal angezeigt. Einziges sorgenkind ist der Cursor.

Jemand eine Idee?

MFG
Memnarch

[patti]

Ein TImage ist eigentlich nicht dafür gedacht, das dargestellte Bild ständig zu ändern. Zeichne doch lieber auf ein Paintbox-Canvas. In Kombination mit DoubleBuffered könnte das dein Problem beheben.

mfg
Patti

[Memnarch]

Nein leider nicht.
TPaintBox selbst hat kein DBuffered und das setzten von DBuffered bei der Form bringt leider auch nichts.

Noch schlimmer: Dann flackert sogar der inhalt der paintbox.


MFG
Memnarch

[stahli]

DoubleBuffered macht zwar ähnliches, aber vielleicht kannst Du in ein Bitmap zeichnen und das Ergebnis auf Deinen PaintBox.Canvas kopieren (ohne FillRect). Einen Versuch ist es vielleicht wert...

[himitsu]

Zitat:

Zitat von stahli (Beitrag 1065900)

aber vielleicht kannst Du in ein Bitmap zeichnen und das Ergebnis auf Deinen PaintBox.Canvas kopieren (ohne FillRect). Einen Versuch ist es vielleicht wert...

Das ist eigentlich die angesehene vorgehensweise, wenn man den Hintergrund immer wieder löscht.

Wenn du es schaffst alles neu zu zeichnen, ohne den Hintergrund vorher zu löschen und ohne Pixel mehrfach umzufärben, wärend eines Zeichenvorgangs, dann kannst du auch direkt auf das Canvas zeichnen ... also bei dieser hohen Bildwiederholungsrate und in dem letzen Sonderfall würde sich das Bitmap nicht wirklich lohnen.

[Memnarch]

Wie egsagt, darstellung des Bildes ist tadellos, aber der CURSOR flackert. Auf den habe ich keinen einfluss. Das macht garkeinen sinn *HEUL*

Ich fange die message zum löschen des hintergrundes ab und setze

Message.result := 1;

Aber trotzdem flackert der cursor, was bedeutet dass wohl doch gelöscht wird >.<.

Ich versteh es schon deshalb nicht, weil die from, ihr inhalt und alles normal gezeichnet wird, ohne flackern, selbst wen elemente(menü) ins TImage ragen beim aufklappen.
Nur der Cursor is auf lsd v.v

EDIT: Oder kann ich den windows Cursor Unsichtbar machen? Dann würd ich meinen eigenen zeichnen.
EDIT2: Mit der paintbox hatte ich es schon ausprobiert. Hab BitBlt genutzt. Trotzdem flackerte der cursor wieder.
EDIT3: ja Cursor kann man wohl unsichtbar machen...aber mir fällt gerade ein ich hab ja auch noch ne MainMenu bar :stupid:


MFG
Memnarch

[turboPASCAL]

Zitat:

Zitat von patti (Beitrag 1065883)

Ein TImage ist eigentlich nicht dafür gedacht, das dargestellte Bild ständig zu ändern.

Dito.

Verwende Eine PaintBox in Zusammenhang mit einem Bitmap und das Flackern der Maus hört auf.

bzw. suche mal nach Offscreenbitmap

[Memnarch]

Ich hatte breits ausprobiert paintbox zu nutzen.

Dabei hatte ich zum schnellen Test die PaintBox verkleinert, und immerwieder eine bitmap selbiger größe hineingezeichnet, die maus flackerte.

ich nutze BitBlt, oder sollte man was anderes in dem fall nutzen?

MFG
Memnarch

[himitsu]

Um welches Betriebssystem handelt es sich denn eigentlich?

Unter Win98 würde sich vermutlich das Image neu zeichnen und sich danach der Cursor neu drübermalen ... das Ergebnis wäre ein starkes Flackern.
Wärend unter Win7 eventuell der WindowsDesktopManager eine puffernde Wirkung haben könnte und es dort nicht blinkt




Das TImage macht nunmal ganz viel im Hintergrund.
Und es ist eben nicht auf so schnelle Veränderungen ausgelegt (die ist sogar verhältnismäßig langsam und resourcenfressend) ... hierfür gibt es nicht grundlos die TPaintbox.

Hier kann es z.B. sein, daß das TImage beim Neuzeichnen auf den Cursor zugreift und diesen eventuell ganz kurz ändert. (z.B. für eine Microsekunde die Sanduhr, falls es länger dauert)

[edit]
hmmmmm?

[Memnarch]

Es Handelt sich um WinXP.

EDIT: ich hab ne Idee, jemand von euch schreibt ne DemoApp mit ner TPAintBOx, bei der der Cursor nicht flackert. Packts für mich inen rar und läds hoch.
Dann könnte ich mal austesten ob mein prog oder windows drans chuld ist.

MFG
Memnarch

[Memnarch]

eije, hat den keiner mehr ne Idee:oops:

[Memnarch]

Entschuldigt dass ich nocheinmal Pushe, aber ich habe jetzt etwas wirklich merkwürdiges festgestellt.

Als erstes mal bin ich auf PaintBox umgestiegen. Ich geb mich geschlagen, dass ding ist schneller^^.

Zu meinem Cursorflackern(Jetzt wirds komisch):

Nutze ich crDefault /crArrow / crHandPoint(bei der form eingestellt) dan flackert es.

Nutze ich irgendeinen anderen Cursor flackert es nicht:?::!:

Das will mir gerade überhaupt nicht in den Kopf.

PS: Nutze Delphi 2010 (und wie bereits erwähnt XP)

Kann sich einer erklären wie dass jetzt kommt? Eventuel sollte ich mal nen ganz eigenen cursor ausprobieren ob der flackert o.O

EDIT: OK ich korrigiere mich, von den anderen geht auch nicht jeder aber als schönes beispiel: crDrag/crMultidrag funzen ohne Flackern o.O.

EDIT2: Kann es sein das sich gerade meinen eigenen Beitrag gemeldet habe?(>.<..verklickt)

MFG
Memnarch

[Blup]

Zitat:

Zitat von Memnarch (Beitrag 1065914)

EDIT: ich hab ne Idee, jemand von euch schreibt ne DemoApp mit ner TPAintBOx, bei der der Cursor nicht flackert. Packts für mich inen rar und läds hoch.
Dann könnte ich mal austesten ob mein prog oder windows drans chuld ist.

Hab eine bessere Idee, du stellst uns den Quelltext einer Minianwendung bereit, die bei dir dieses Flackern hervorruft. Wir schauen ob das bei uns auch auftritt und was man dagegen tun kann.

[Memnarch]

das ist natürlich auch eine idee.
Kümmer mich drum wenn ich morgen wieder an Delphi sitze(Arbeitsplatz).

[Memnarch]

So hier wie versprochen der quelltext(mini TestProgramm).
Verzeit wenn ich alles hier reinkopiere, aber muss so sein ;).

Unit1.Pas

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FBuffer: TBitMap;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled := False;
  FBuffer.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FBuffer := TBitMap.Create;
  FBuffer.Width := PaintBox1.Width; //1280
  FBuffer.Height := PaintBox1.Height; //720
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FBuffer.Canvas.Brush.Color := clWhite;
  FBuffer.Canvas.FillRect(FBuffer.Canvas.ClipRect);
  FBuffer.Canvas.Brush.Color := clGreen;
  FBuffer.Canvas.Rectangle(20, 20, 100, 100);
  BitBlt(PaintBox1.Canvas.Handle, 0, 0, PaintBox1.Width, PaintBox1.Height, FBuffer.Canvas.Handle, 0, 0, SRCCOPY);
end;

end.

PS: source datei selbst darf nicht raus, die zeilen hier zum nachstellen des problems ausnahmsweise mal. Ansonsten müsst ihr für gewöhnlich auf testcode meinerseits verzichten bis ich auch zuhause delphi habe :P

EDIT: und hat nebenbei einer ne Idee warum eine Cursors flackern und manche nicht?!

EDIT2: Timer löst 20 mal pro sekunde aus.

MFG
Memnarch

[Bummi]

Bei mir Delphi XE, Server 2008 R2, I7-920 , GTX 280M
flackert nichts.

[Memnarch]

Merkwürdig o.O.

Aber wie gesagt: ES gibt auch Cursor symbole die NICHT flackern...und dass ist so richtig komisch >.<
Ich nutze Imo crDrag als Cursor, flackert auch nicht.


MFG
Memnarch

[turboPASCAL]

Delphi-Quellcode:

/// ... ///

// ohne Paintbox lässr sich recht gut machen
// Mouseevents haben dann halt das nachsehen...

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  PaintIdx := 0;

  FBuffer[0] := TBitMap.Create;
  try
    FBuffer[0].PixelFormat := pf24Bit;
    FBuffer[0].Width  := 320;
    FBuffer[0].Height := 320;

    // Width := 1280;  // mit grossen "Bildern" wird es immer mehr Probleme
    // Height := 720;  // geben da die GDI immer mehr Zeit benötigen wird
                       // um diese auf den "Bildfschirm" zu kopieren .
                       // Hier währe es besser auf OpenGL oder DirectX
                       // auszuweichen.

    FBuffer[1] := TBitMap.Create;
    try
      FBuffer[1].Assign(FBuffer[1]);


      if ASSIGNED(Timer1) then
      begin
        Timer1.Interval := 25;    // weniger 25 ms lohnt nicht ! Gab schon mal ein
                                  // Thread zu diesem Thema...
        Timer1.Enabled := True;
      end;
    except
      raise Exception.CreateFmt('Zong ! %s', ['Fehler meim erz. des Bitmaps II']);
    end;

  except
    raise Exception.CreateFmt('Zong ! %s', ['Fehler meim erz. des Bitmaps I']);
  end;


  // --- setup - "move the Quad" ---
  x := FBuffer[0].Width div 2;
  y := FBuffer[0].Height div 2;
  vx := 5;
  vy := 4;
  // -------------------------------
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i: integer;
begin
  Timer1.Enabled := False;

  for i := 0 to 1 do
    if ASSIGNED(FBuffer[i]) then FBuffer[i].Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // swap the Paintindex
  PaintIdx := 1 - PaintIdx;


  // Paint your Stuff to the Offscreenbitmap
  PaintToBitmap;


  // draw your work //

  // ohne Paintbox...
  Self.Canvas.Draw(0,0, FBuffer[PaintIdx]);
  // ...möglicher weise muss ohne Paintbox noch 'n invalidate hier her...


  // oder mit Paitbox:
  // PaintBox1.Canvas.Draw(0,0, FBuffer[PaintIdx])

  Self.Caption := format('Paint to: %d - View %d', [PaintIdx, 1-PaintIdx]);
end;

procedure TForm1.PaintToBitmap;
begin
  // --- move the Quad ---
  inc(x, vx);
  inc(y, vy);

  if (x < 0) or (x+100 > FBuffer[0].Width) then vx := vx * -1;
  if (y < 0) or (y+100 > FBuffer[0].Height) then vy := vy * -1;
  // ---------------------

  with FBuffer[1-PaintIdx] do
  begin
    Canvas.Brush.Color := clWhite;
    Canvas.FillRect(FBuffer[0].Canvas.ClipRect);
    Canvas.Brush.Color := clGreen;
    Canvas.FillRect(RECT(x, y, x+ 100, y+100));
  end;
end;

end.

:gruebel:

[Memnarch]

@tURBOpASCAL:
Flackert leider :(
Liegt wohl am PC beziehungsweise KÖNNTE daran liegen dass dieser rechner eine relativ geringe taktrate hat(3GHZ Hyper dingensbummens, also wahrscheinlich pro virtueller kern 1.5GHZ) oder an XP.

Aber auch hier wieder: wenn ich den Cursor auf crDrag umstelle in Delphi, klappt wieder alles wunderbar >.<

Aber danke :)

EDIT: auf meinem Homerechner(Win7 64BIt) flackert dein Prog nicht :P


MFG
Memnarch