; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1373&highlight= ; Author: Danilo (updated for PB3.93 by Donald) ; Date: 16. June 2003 ; OS: Windows ; Demo: No #Window_Width = 1024 #Window_Height = 768 Image = CreateImage(1,#Window_Width,#Window_Height) ; make ScreenShot hDC = StartDrawing(ImageOutput()) BitBlt_(hDC,0,0,#Window_Width,#Window_Height,GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY) StopDrawing() ; paint on ScreenShot StartDrawing(ImageOutput()) Locate(10,50) DrawingMode(1) DrawingFont(LoadFont(1,"Arial",57)) FrontColor($FF,$FF,$00) DrawText("PureBasic") StopDrawing() OpenWindow(1,0,0,#Window_Width,#Window_Height,#WS_POPUP,"") CreateGadgetList(WindowID()) ImageGadget(1,0,0,#Window_Width,#Window_Height,Image) ButtonGadget(2,10,10,100,30,"QUIT") DisableGadget(1,1) Repeat Select WaitWindowEvent() Case #PB_EventCloseWindow : End Case #PB_EventGadget Select EventGadgetID() Case 2 : End EndSelect EndSelect ForEver ; ExecutableFormat=Windows ; FirstLine=1 ; DisableDebugger ; EOF