 | ...файла и загрузка в канвас
file$ = OpenFileRequester("Open File","","*.PNG|*.PNG*|*.GIF|*.GIF*|*.JPG|*.JPG*|*.BMP|*.BMP*|All files|*.*",1)
Debug file$
LoadImage(0, file$)
SetGadgetAttribute(Canvas_id, #PB_Canvas_Image, ImageID(0))
hdc=StartDrawing(CanvasOutput(Canvas_id))
BitBlt_(hdc, 0, 0, imgW, imgH, hDC, 0, 0, #SRCCOPY)
StopDrawing()
EndProcedure
If OpenWindow(0, 0, 0,1200, 600, "CustomCanvas", #PB_Window_SystemMenu | #PB_Window_ScreenCentered... purebasic.mybb.ru — 2023-12-05 23:58 |