TrackBar Zoomen in einer Paintbox

[Blubbel]

Hallo und guten Morgen,

Ich hoffe ich nerve euch nicht langsam aber jetzt habe ich ein neues Problem, wo ich im Internet nicht so recht was nützliches gefunden habe.

Ich soll eine Trackbar zum Zoomes einfügen. Habe auch schon einiges versucht, es klappt aber nichts.

Delphi-Quellcode:

rocedure TForm1.TrackBar1Change(Sender: TObject);
begin
  case TrackBar1.Position of
  0:
  begin
    PaintBox1.Width:= 100 + TrackBar1.Position;
  end;
  1:
  begin
    PaintBox1.Width:= 200 + TrackBar1.Position;
  end;
  end;

Bisher habe ich sowas versucht.

Bitte um Hilfe
Danke euch schon mal

[DeddyH]

Du setzt ja auch nur die Breite neu. Die Höhe fehlt, und nach dem Neusetzen musst Du auch neu zeichnen.

[Blubbel]

Geändert hat sich was... ich rätsel noch ma ne runde auf jeden fall gehts einiger maßen.

WEnn ich nicht weiter komme schreib ich.

Danke

[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

[Bummi]

Vielleicht kannst Du mit dieser Anregung was anfangen ...

[Blubbel]

Wenn ich den Zeiger von der Trackbar wieder zurück schiebe, wird es statt Normal noch kleiner

[Bummi]

Ist ein Demo um zu zeigen dass vergrößern und verkleinern geht, Du kannst die Parameter anpassen wie Du sie brauchst ....