procedure TFirmasForm.btSiguienteClick(Sender: TObject);
Var
pRecDoc: Integer;
B: TBitMap;
begin
if TOSVersion.Platform = pfWindows then
begin
B:= TBitMap.Create(1920,1080);
if RoundRect1.Canvas.BeginScene = True
then
try
RoundRect1.PaintTo(B.Canvas, RectF(0 , 0, 1920, 1080));
finally
RoundRect1.Canvas.EndScene;
end;
Image1.BitMap:= B;
B.SaveToFile('Firma'+InttoStr(Random(1000))+'.png');
B.Free;
end
else
begin
Image1.Bitmap.Assign(RoundRect1.MakeScreenshot);
B:= TBitMap.Create(1920,1080);
B.Assign(RoundRect1.MakeScreenshot);
ShowMessage(' SCREENSHOT');
end;
pRecDoc:= 93423;
DataModule1.SQLConnection1.Close;
DataModule1.SQLConnection1.Open;
DataModule1.CDS_Firma.ParamByName('NOREGDOC_CFDI').Value := pRecDoc;