Hallo,

Aufgabe:
Ich habe ein TForm mit TPaintBox, TScrollBox und versuche einen MarkierungsRectangle mit dem Maus vom Koordinaten (StartPlace.X/Y bis EndPlace.X/Y) über den TPaintBox zu zeichnen und genau diesen Rectangle versuche ich je nach Größe der Höhe oder Breite an dem TForm.Client anzupassen und zentriert ausgeben. Um den TPaintBox bis zum TFormRänder gebe ich einen Rahmen (cAbstRahmen=10) aus.

Problem:
wenn ich cAbstRahmen=0 setze, wird mit dem nachfolgenden DelphiSource der MarkierungsRectangle genau zentriert ausgegeben. Wenn ich (cAbstRahmen=10) setze, wird mit dem nachfolgenden DelphiSource der MarkierungsRectangle nicht zentriert sondern mit einem Abstand ±links/rechts oder ±oben/unten ausgegeben, was ich gar nicht verstehen.

Frage ?:
wie kann ich mit (cAbstRahmen=10) MarkierungsRectangle zentriert ausgeben ?

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TfrmPrintPreview.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (StartPlace.X<>EndPlace.X) and (StartPlace.Y<>EndPlace.Y) then
    begin
      // SkalierungBrechnen
      if ((EndPlace.X-StartPlace.X)>(EndPlace.Y-StartPlace.Y)) then iScal:= frmPrintPreview.ClientWidth div (EndPlace.X-StartPlace.X){+(frmPrintPreview.ClientWidth mod (EndPlace.X-StartPlace.X)) div 2} // BreiteGroß, ZoomFaktorX
      else iScal:= Trunc(frmPrintPreview.ClientHeight/(EndPlace.Y-StartPlace.Y)); // HöheGröß, ZoomFaktorY

      PaintBox1.Visible:= False;
        // Skalierung
        PaintBox1.Width := PaintBox1.Width *iScal;
        PaintBox1.Height:= PaintBox1.Height*iScal;
        // Rahmen
        PaintBox1.Left:= cAbstRahmen;
        PaintBox1.Top := cAbstRahmen;
      PaintBox1.Visible:= True;

      // Rectanglemitte zum Zentrieren
      iX:= iSca*Trunc(StartPlace.X+cAbstRahmen+(EndPlace.X-StartPlace.X) div 2+(EndPlace.X-StartPlace.X) mod 2);
      iY:= iSca*Trunc(StartPlace.Y+cAbstRahmen+(EndPlace.Y-StartPlace.Y) div 2+(EndPlace.Y-StartPlace.Y) mod 2);
      // ScrollBox Steuerung zum Zentrieren
      ScrollBox1.HorzScrollBar.Position:= Abs(iX)-ScrollBox1.ClientWidth div 2-ScrollBox1.ClientWidth mod 2; //
      ScrollBox1.VertScrollBar.Position:= Abs(iY)-ScrollBox1.ClientHeight div 2-ScrollBox1.ClientHeight mod 2; //
   end
end;

mfg

Ich habe deinen Code ein wenig vereinfacht, um erst einmal die eigentliche Funktion zu erkennen:

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TfrmPrintPreview.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  dx, dy: Integer;
begin
  dx := EndPlace.X - StartPlace.X;
  dy := EndPlace.Y - StartPlace.Y;
  if (dx <> 0) and (dy <> 0) then
  begin
    // Skalierung berechnen
    if dx > dy then
      iScal := frmPrintPreview.ClientWidth div dx // BreiteGroß, ZoomFaktorX
    else
      iScal := frmPrintPreview.ClientHeight div dy; // HöheGröß, ZoomFaktorY

    PaintBox1.Visible := False;
    // Skalierung
    PaintBox1.Width := PaintBox1.Width * iScal;
    PaintBox1.Height := PaintBox1.Height * iScal;
    // Rahmen
    PaintBox1.Left := cAbstRahmen;
    PaintBox1.Top := cAbstRahmen;
    PaintBox1.Visible := True;

    // Rectanglemitte zum Zentrieren
    iX := iSca * (StartPlace.X + cAbstRahmen + dx div 2 + dx mod 2);
    iY := iSca * (StartPlace.Y + cAbstRahmen + dy div 2 + dy mod 2);
    // ScrollBox Steuerung zum Zentrieren
    ScrollBox1.HorzScrollBar.Position := Abs(iX) - ScrollBox1.ClientWidth div 2 - ScrollBox1.ClientWidth mod 2;
    ScrollBox1.VertScrollBar.Position := Abs(iY) - ScrollBox1.ClientHeight div 2 - ScrollBox1.ClientHeight mod 2;
  end;
end;

Wo wird StartPlace und EndPlace zugewiesen?
Warum wird einmal mit iScal und dann mit iSca gerechnet?
Beim Zentrieren wird cAbstRahmen mit dem Faktor iSca multipliziert, Paintbox.Left und .Top sind aber konstant cAbstRahmen.