forum.clarionlife.net

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

CapScreen            PROCEDURE  (hWindow_)                 ! Declare Procedure
Loc:SaveFile         STRING(255)                           !
Loc:Text             STRING(120)                           !
theImage    cfiImageControl

Window WINDOW,AT(,,1,1),SYSTEM,GRAY,MDI
       region,AT(0,0),USE(?ImageControl),FULL
     END
     
  CODE
  Open(Window)
  Window{Prop:Hide} = True

  If theImage.iImageControl.Init(?ImageControl) <> False

     theImage.iImage.CaptureScreen(Int(hWindow_))
     theImage.iImage.SetSaveOption(JPEG_QUALITYSUPERB)

     Loc:SaveFile = Clip(GetRAMPath()) & Clip(GetGUID()) & '.jpg' !'.bmp'
     If Exists(Clip(Left(Loc:SaveFile))) then Remove(Clip(Left(Loc:SaveFile))).

     If theImage.iImage.SaveAs(Clip(Left(Loc:SaveFile))) = False
        Message(' Ошибка при сохранении файла с изображением: ' & Clip(LongPath(Loc:SaveFile)),'Сообщение',Icon:Exclamation,'&1. Закрыть')
        Display
     else
        Loc:Text = 'Снимок экрана от ' & Clip(Left(Format(GetCurDate(),@d06.))) & ' г. (' & Clip(Left(Format(Clock(),@t04))) & ')'
        !If ImageCard(Loc:SaveFile,Loc:Text,True,0,0,0). это просто просмотр файл с картинкой
     end

     If (Clip(Left(Loc:SaveFile)) <> '') and Exists(Clip(Left(Loc:SaveFile))) then Remove(Clip(Left(Loc:SaveFile))).
  end

  Close(Window)