win w=window ("Program Manager", "Progman", -1); // окно, с которого получить скрин
int persent=33; // масштаб вывода в %

win dialog;
int desktop_c, desktop_w, desktop_h;
getdisplay(desktop_c, desktop_w, desktop_h); // получить разрешение экрана
int count_image=pow((100 / persent), 2) + 1; // количество картинок в зависимости от масштаба вывода
new int screen_[count_image][desktop_w+1][desktop_h+1]; // массив для скринов

createdialog(2);
showdialog(2, "Диалог",0, 0, desktop_w, desktop_h, 1, 1);

int z=0;
for(int i=0; i<desktop_w-desktop_w*persent/100; i=i+desktop_w*persent/100)
{
for(int j=0; j<desktop_h-desktop_h*persent/100; j=j+desktop_h*persent/100)
{
screen (#screen_[z][0][0], 0, 0, desktop_w, desktop_h, w); // скрин
visualwindow(dialog, z, 0, 0, desktop_w, desktop_h, i, j, persent, #screen_[z][0][0]); // вывод изображения
z++;
sleep(200);
}
}

sleep(3000);


function getmessage(2, WM_CREATE)
{
dialog=formatiw(gethwnd(2));
}