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.