Cursor Flickert über TImage

[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

[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 von Memnarch:

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

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