PaintBox in ScrollBox nach JPG

**cltom**

Hallo,

folgende Prozedur verwende ich, um aus den Inhalt einer PaintBox in eine JPG zu speichern (siehe unten). Das Ding hab ich ziemlich sicher irgendwo hier auf der DP gefunden. Sie funktioniert auch bestens. Allerdings nicht so ganz, sich die PaintBox innerhalb einer ScrollBox befindet. Da hab ich nämlich dann die ScrollBalken der ScrollBox mit drauf (nebst einem schwarzen Rand).

Woher kommt das und hat jemand eine idee, wie ich es abstellen kann?

danke, grüße
cltom

zusammenfalten · markieren

Delphi-Quellcode:

			
{*******************************************************************}

procedure TUserInterfaceOps.PaintBoxToJPGClip(apbx : TPaintBox; filename : string; toclip : boolean);

{*******************************************************************}

var

  img_jpg : TImage;

  jpg : TJpegImage;

  jpgformat       : word;

  adata           : THandle;

  apalette        : HPalette;

begin

  img_jpg := TImage.Create(nil);

  img_jpg.Visible := false;

  img_jpg.Width := apbx.Width;

  img_jpg.Height := apbx.Height;

  if assigned(img_jpg.Picture.Graphic) then

  begin

    img_jpg.Picture.Graphic.Width:= apbx.Width;

    img_jpg.Picture.Graphic.Height:= apbx.Height;

  end;

  img_jpg.Canvas.CopyRect(Bounds(0,0,img_jpg.Width, img_jpg.Height),apbx.Canvas, apbx.ClientRect);

  jpg := TJpegImage.Create;

  with jpg do

    begin

      Assign(img_jpg.Picture.Graphic);

      if toclip then

        begin

          jpg.SaveToClipboardFormat(jpgformat, adata, apalette);

          ClipBoard.SetAsHandle(jpgformat,adata);

        end

      else

        SaveToFile(filename);

      Free;

    end;

  img_jpg.free;

end;

PaintBox in ScrollBox nach JPG

PaintBox in ScrollBox nach JPG

Forumregeln