[Erledigt]Hässlicher Effekt beim Scrollen

[Perlsau]

Zitat von Woodman:

Kennt jemand einen Trick, wie ich ein sauberes Scrollen hinbekomme?

In einigen Anwendungen mache ich im Grunde auch nichts anderes als du, hatte jedoch noch nie diesen Effekt, daß Grafiken verzerrt dargestellt werden. Der Unterschied meiner Vorgehensweise besteht darin, daß ich keine Panels als Grundlage nehme, sondern TImage. Genauer gesagt habe ich eine Klasse angelegt, die mir ein Objekt erzeugt, das aus einem TImage und einer TCheckBox besteht, das man aber auch genauso gut mit einem TEdit oder einem TLabel kombinieren kann.

Delphi-Quellcode:

UNIT UnitBilder;

INTERFACE

USES
  ExtCtrls, StdCtrls, Forms;

Type
 TBild = Class

  PRIVATE
    FBild    : TImage;
    FTitel   : TCheckBox;
    FTempIdx : Integer;
    FTest    : Boolean;

    Procedure SetFBild(Const Value: TImage);
    Function  GetFBild: TImage;
    Procedure SetFTitel(Const Value: TCheckBox);
    Function  GetFTitel: TCheckBox;
    Procedure SetFTempIdx(Const Value: Integer);
    Function  GetFTempIdx: Integer;

  PUBLIC

   Property Bild    : TImage    read GetFBild    write SetFBild;
   Property Titel   : TCheckBox read GetFTitel   write SetFTitel;
   Property TempIdx : Integer   read GetFTempIdx write SetFTempIdx;

   Constructor Create();
   Destructor  Destroy; override;

 End;

IMPLEMENTATION

{ TBild }

Procedure TBild.SetFBild(Const Value: TImage);
begin
  FBild.Assign(Value);
end;

Function TBild.GetFBild: TImage;
begin
  Result := FBild;
end;

Procedure TBild.SetFTitel(Const Value: TCheckBox);
begin
  FTitel.Assign(Value);
end;

Function TBild.GetFTitel: TCheckBox;
begin
  Result := FTitel;
end;

Procedure TBild.SetFTempIdx(Const Value: Integer);
begin
  FTempIdx := Value;
end;

Function TBild.GetFTempIdx: Integer;
begin
  Result := FTempIdx;
end;

Constructor TBild.Create;
begin
  inherited;

  FBild  := TImage.Create(Nil);
  FTitel := TCheckBox.Create(Nil);
  FTitel.Checked := False;
end;

Destructor TBild.Destroy;
begin
  FTitel.Free;
  FBild.Free;

  inherited;
end;

end.

Mit Hilfe dieser Klasse kann ich nun Objekte erzeugen, die ein TImage und eine TCheckbox enthalten. Die Objekte werden nach dem Erzeugen in einer TOBjectList gespeichert, die im Private-Abschnitt meiner Darstellungs-Form folgendermaßen deklariert ist:

Delphi-Quellcode:

  ...
  PRIVATE { Private-Deklarationen }
     BList    : Generics.Collections.TObjectList<TBild>;
  ...

Für deine Zwecke kannst du dem TBild-Objekt noch Koordinaten- und GrößenVariablen hinzufügen, in die du dann die linke obere Ecke (Top und Left) und die Größe (Width und Height) speicherst. Beim Neuzeichnen werden die dann von dir einfach abgerufen, ebenso beim Verschieben bzw. Vergrößern neu gesetzt. Wenn du diesen Weg gehen möchtest und dazu weitere Unterstützung benötigst, sag einfach Bescheid.

Also wie gesagt, bei mir flackert da weder was noch werden Grafiken verzerrt dargestellt.

[rwalper]

Hi, ich hatte einen ähnlichen Effekt (Paintbox auf Scrollbox). Mir hat dabei Folgendes geholfen:

Delphi-Quellcode:

var
  ExStyle: DWORD;
  ...
  Scrollbox.DoubleBuffered := false;

  ExStyle := GetWindowLong(Scrollbox.Handle, GWL_EXSTYLE);
  ExStyle := ExStyle or WS_EX_COMPOSITED
  SetWindowLong(Scrollbox.Handle, GWL_EXSTYLE, ExStyle);

[Woodman]

@Perlsau: Ich brauch aber das Panel, da ich darauf noch verschiedenes anderes platziere (Z.B. Label, Checkbox und natürlich das Image) und für ein komplettes Redesign habe ich jetzt keine Lust.

Zitat von rwalper:

Hi, ich hatte einen ähnlichen Effekt (Paintbox auf Scrollbox). Mir hat dabei Folgendes geholfen:

Delphi-Quellcode:

var
  ExStyle: DWORD;
  ...
  Scrollbox.DoubleBuffered := false;

  ExStyle := GetWindowLong(Scrollbox.Handle, GWL_EXSTYLE);
  ExStyle := ExStyle or WS_EX_COMPOSITED
  SetWindowLong(Scrollbox.Handle, GWL_EXSTYLE, ExStyle);

Na das ist aber ein tiefer Griff in die Trickkiste.
Ich habe keine Ahnung, was es bedeutet, aber es funktioniert.
Dieser Trick bewirkt, dass das Verschieben des Scrollbalkens gebremst wird, aber damit kann ich Leben. Besonders in Verbindung mit dem vorher beschrieben Trick mit dem Scroll-Rad der Maus.

Ich Danke Euch für Eure Beiträge und betrachte die Sache für mich erledigt.

[Perlsau]

Zitat von Woodman:

@Perlsau: Ich brauch aber das Panel, da ich darauf noch verschiedenes anderes platziere (Z.B. Label, Checkbox und natürlich das Image) und für ein komplettes Redesign habe ich jetzt keine Lust.

Deinen ersten Einwand habe ich bereits mit dem Hinweis, daß du in das Objekt TBild bei Bedarf noch weitere Komponenten aufnehmen kannst, widerlegt. Gegen den zweiten Einwand ist natürlich nichts zu sagen: Wenn du keine Lust dazu hast, kann dir selbige auch niemand verschaffen oder gar aufzwingen. Viel Erfolg.

[himitsu]

Es wird einfach nur in GWL_EXSTYLE das Flag WS_EX_COMPOSITED aktiviert. (aktuelle Flags auslesen, das eine Flag setzen und dann zurückschreiben)

Und was das macht, das kann man natürlich im MSDN nachlesen.
https://msdn.microsoft.com/en-us/lib.../ff700543.aspx

[Woodman]

Vielen Dank für die erhellende Worte.

[EWeiss]

Zitat:

Dieser Trick bewirkt, dass das Verschieben des Scrollbalkens gebremst wird, aber damit kann ich Leben.

Auch wen von dir schon als erledigt angesehen.

Warum wohl?
Schon mal auf die Auslastung deiner CPU geschaut?

Aktiviere DoubleBuffer in deiner Anwendung und dem Panel.
Hat das Panel kein DoubleBuffer dann erstell dir einen.

Zitat:

Die betreffenden Komponenten sind auf "DoubleBuffered=True" gesetzt.

Na ja ok hast du ja anscheinend schon.

Destotrotz WS_EX_COMPOSITED ist keine gute Lösung.

gruss