Before the teacher's code, around how to splice, thank you-CodePudding

P1=NewObject (' gpBitmap 'Home (1) +' FFC \ _gdiplus)
P1. CreateFromFile (GetPict (', 'image reproduction (& amp; N) : '))
P2=NewObject (' gpBitmap 'Home (1) +' FFC \ _gdiplus)
P2. CreateFromFile (GetPict (', 'overlapping pictures (& amp; N) : '))
Og=NewObject (' gpGraphics' Home (1) + 'FFC \ _gdiplus)
Og. CreateFromImage (p1)
Og. DrawImageAt (p2, Max (0, p1. Imagewidth - p2. Imagewidth)/2, Max (0, p1. Imageheight - p2. Imageheight)/2)
P1. SaveToFile (Putfile (' save as (& amp; N) : ', 'synthetic images',' BMP '), "image/BMP")