Как сделать скриншот полной страницы в Delphi ⇐ Android

[Anonymous]

Как «MakeScreenshoot» FullPage на TListBox или VertScrollbox?
Я пишу такой код, но результат не полный. Некоторые компоненты не сохраняются при использовании Makescreenshoot

Код: Выделить всё

    var ABitmap : TBitmap;
var OldHeight := vsReceipt.Height;
var AAlign := vsReceipt.Align;
var AAnchor := vsReceipt.Anchors;
try
vsReceipt.Align := TAlignLayout.None;
vsReceipt.Anchors := [TAnchorKind.akLeft, TAnchorKind.akTop, TAnchorKind.akRight];
vsReceipt.Height := lbReceipt.ContentBounds.Size.cy + 24;
ABitmap := lbReceipt.MakeScreenshot;
if Assigned(ABitmap) then begin
ABitmap.SaveToFile('bfaprintreceipt.png');
ABitmap.DisposeOf;
end;
finally
vsReceipt.Align := AAlign;
vsReceipt.Height := OldHeight;
vsReceipt.Anchors := AAnchor;
end;

И результат такой

[img]https://i. stack.imgur.com/J71m6.png[/img]


Мне нужен такой результат





Подробнее здесь: https://stackoverflow.com/questions/782 ... -on-delphi