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;