print TScrollBox

[trifid]

Habe immer noch keine richtige Lösung gefunden
Ich hab's auch mal probiert die Scrollbox in ein Bild umzuwandeln, aber hier fehlen dann
auch controls wie TEdit, TComboBox, etc.

Delphi-Quellcode:

    
bmp := TBitmap.Create;
try
   bmp.Width  := scrollbox.HorzScrollBar.Range;
   bmp.Height := scrollbox.VertScrollBar.Range;
   bmp.Canvas.Lock;
   SetMapMode (bmp.Canvas.Handle, MM_ISOTROPIC);
   SetWindowExtEx (bmp.Canvas.Handle, bmp.Width, bmp.Height, nil);
   SetViewportExtEx (bmp.Canvas.Handle, bmp.Width, bmp.Height, nil);
   scrollbox.Perform (WM_PAINT, bmp.Canvas.Handle, 1);
   bmp.SaveToFile ('C:\irgendwas.bmp');
   bmp.Canvas.Unlock;
finally
   bmp.Free;
end;

Also bin ich immer noch auf der Suche nach einer Lösung