TrackBar Zoomen in einer Paintbox

[DeddyH]

Prinzipiell ist das mit ein wenig Prozentrechnung einigermaßen einfach zu realisieren. Beispiel mit einer PaintBox (align = alClient):

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
const
  Prozent = 95;
var
  Hoehe, Breite, Links, Oben: integer;
  pb: TPaintBox;
begin
  pb := Sender as TPaintBox;
  pb.Canvas.Pen.Color := clRed;
  pb.Canvas.Pen.Width := 3;
  //Höhe und Breite der Ellipse sollen jeweils 95% des Clientbereichs betragen
  Hoehe := trunc(pb.ClientHeight / 100 * Prozent);
  Breite := trunc(pb.ClientWidth / 100 * Prozent);
  Links := trunc((pb.ClientWidth - Breite) / 2);
  Oben := trunc((pb.ClientHeight - Hoehe) / 2);
  pb.Canvas.Ellipse(Links, Oben, Links + Breite, Oben + Hoehe);
end;

[Blubbel]

hmmm... sieht ja ganz gut aus... sollen es aber mit einer Trackbar realisieren. Also ganz hinter dem geheimniss bin ich noch nicht gekommen aber es wird schon mal größer... naja gezoomt wirds nicht gerade aber naja ich probiere weiter

[DeddyH]

Ich reagiere lediglich auf Änderungen der Größe der PaintBox. Ob das nun durch Ändern der Formulargröße oder per Code mittels TrackBar geschieht, spielt doch keine Rolle.

[Blubbel]

Ja gut denn versuche ich mal mein bestes