PaintBox in ScrollBox nach JPG

[cltom]

Auweh, und ich war noch froh, dass das Ding funktioniert hat. Danke für die ausführliche Antwort.

Aber Du hast natürlich Recht, das war ein Gefrickel. Irgendwie bin ich immer dabei hängen geblieben, direkt auf die PaintBox zu zeichnen. Ich hab die Zeichenroutinen auf die TBitmap umgelenkt und siehe da, es klappt auch. Komisch, ich hab das immer vermieden, weil ich dachte, das würde mit den GDI+ Aufrufen nicht klappen. Geht aber anstandslos.

Fehlt noch das Kopieren der TBitmap in die TPaintBox. Das hier ist im OnPaint der PaintBox, das angezeigt Bild stimmt aber noch nicht (es ist verzerrt, offenbar wird die gesamte (große) Bitmap in den sichtbaren Bereich der PaintBox geschrieben. Und weil die Bitmap größer ist als der sichtbare Bereich der PaintBox kommt dabei ein Holler heraus.

Delphi-Quellcode:

  ClipRect := Rect(0,0,DestinationB.Width,DestinationB.Height);
  DestinationPB.Canvas.CopyRect(DestinationPB.Canvas.ClipRect, DestinationB.Canvas, DestinationB.Canvas.ClipRect);

DestinationB ist eine TBitMap
DestinationPB ist eine TPaintBox.
Die Größen der beiden sind gleich, aber irgendwas stimmt noch nicht ganz (oder, wahrscheinlicher: ich hab irgendwas noch nicht verstanden)

Falls jemand später über diesen Thread stolpert, stelle ich hier noch eine (hoffentlich) korrekt(ere) Lösung rein (wieder aus der DP selber):

Delphi-Quellcode:

procedure SaveBitmapAsJPG(Sender: TObject);
var
  jpg: TJpegImage;
begin
  with dlg_save do
  begin
    DefaultExt := '*.jpg';
    Filter := 'Jpg (*.jpg) | *.jpg';
    if Execute then
      begin
        jpg := TJpegImage.Create;
        Try
          jpg.Assign(myBitmap);
          jpg.SaveToFile(ChangeFileExt(dlg_save.FileName, '.jpg'));
        Finally
          jpg.Free;
        end;
      end;
  end;
end;

[cltom]

Also, hier noch die Antwort zu meiner eigenen Frage, nur für's Archiv, fall jemand über den Thread stolpert:

so sieht jetzt das OnPaint der PaintBox aus:

Delphi-Quellcode:

procedure Tfrm_main.pbx_mainPaint(Sender: TObject);
begin
// Größe der Bitmap setzen
  myDrawClass.SetSize(fDestinationPaintBox.Width,fDestinationPaintBox.Height);
//zeichnen
  myDrawClass.Draw;
// Bitmap nach Paintbox kopieren
  BitBlt(fDestinationPaintBox.Canvas.Handle, 0, 0, myDrawClass.Destination.Width, myDrawClass.Destination.Height, myDrawClass.Destination.Canvas.Handle, 0, 0, SRCCOPY);
end;

SetSize ruft seinerseits nur das SetSize der TBitmap auf.

[richnessnotes]

Thanks for sharing this thing about the PaintBox in a ScrollBox. I have read every detailed post. At first, I had no idea on how to do the procedure. It is good that I have learned something new here.