- Purebasic window outer size full#
- Purebasic window outer size portable#
- Purebasic window outer size software#
- Purebasic window outer size code#
- Purebasic window outer size Pc#
SetWindowLongPtr_(WindowID(0), #GWL_STYLE,GetWindowLongPtr_(WindowID(0), #GWL_STYLE) &~ 0) ProcedureReturn #PB_ProcessPureBasicEvents SendMessage_(hwnd, #WM_NCLBUTTONDOWN, #HTCAPTION, 0) Imgtmp = CreateImage(#PB_Any, wr\right-wr\left,wr\bottom-wr\top,24,GetSysColor_(#COLOR_BTNFACE))īitBlt_(hdcDest,0,0,wr\right-wr\left, wr\bottom-wr\top,hdcSrc,0,0,#SRCCOPY) Hrgn2 = CreateRectRgn_(gFrameW,gCaptionH,wr\right-wr\left-gFrameW,wr\bottom-wr\top-gCaptionH) Hrgn = CreateRectRgn_(0,0,wr\right-wr\left, wr\bottom-wr\top) If msg = #WM_NCACTIVATE And wparam = #False ProcedureReturn #WVR_VALIDRECTS | #WVR_REDRAW Procedure winproc(hwnd, msg, wParam, lParam) Global gFrameW = GetSystemMetrics_(#SM_CXSIZEFRAME), gCaptionH = GetSystemMetrics_(#SM_CYSIZEFRAME)
SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)Ĭode: Select all Structure NCCALCSIZE_PARAMS2 If IsMouseOver(GadgetID(0)) = 0 And IsMouseOver(GadgetID(1)) = 0 If OpenWindow (0,0,0,400,300, "get off, you ugly border", #PB_Window_BorderLess| #WS_SIZEBOX |#PB_Window_ScreenCentered ) Procedure WndProc(hwnd, uMsg, wParam, lParam)
Purebasic window outer size code#
Until GetAsyncKeyState_(#VK_ESCAPE) & $8000 = 32768Īnother solution I used in the past was drawing (and redrawing) a CanvasGadget into the bottom right corner and watching mouse activity there (using the same flag system)ītw: The Steam Window seems to be a modified html? (With rightclick you can open the code window) Something like that? Ĭode: Select all Procedure IsMouseOver(hWnd) ResizeWindow(0, #PB_Ignore, #PB_Ignore, WindowWidth(0)+WinX-OldWindowMouseX, WindowHeight(0)+WinY-OldWindowMouseY) WinX-OldWindowMouseX If WinX WindowWidth(0)-15 And WinY > WindowHeight(0)-15
SetWindowLongPtr_(WindowID(0),#GWL_STYLE,GetWindowLongPtr_(WindowID(0),#GWL_STYLE)&~ #WS_CAPTION) OriginProc = SetWindowLongPtr_(WindowID(0), #GWLP_WNDPROC, "OriginProc", OriginProc)Īnyone knows a trick to achieve sizable borderless or at least ownerdrawn border?Ĭode: Select all If OpenWindow (0,0,0,300,250, "get off, you ugly border", #PB_Window_ScreenCentered|#PB_Window_BorderLess ) If OpenWindow (0,0,0,322,275, "get off, you ugly border", #PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_Invisible ) ProcedureReturn CallWindowProc_(OriginProc, hWnd, Msg, wParam, lParam) SetWindowLongPtr_(hWnd, #GWLP_WNDPROC, OriginProc) RedrawWindow_(hWnd,Rect,wParam,#RDW_UPDATENOW) Rectangle_(hdc,0,0,rect\right - Rect\left,Rect\bottom - Rect\top) Hdc=GetDCEx_(hwnd,wParam,#DCX_WINDOW|#DCX_CACHE|#DCX_INTERSECTRGN|#DCX_LOCKWINDOWUPDATE)īrush = CreateSolidBrush_(RGB(0,180,180)) Protected OriginProc.i, HDC, Rect.Rect, brush, Pen There are no bottlenecks like a virtual machine or a code translator, the generated code produces an optimized executable.Code: Select all Procedure NouvelleProc(hWnd.i, Msg.l, wParam.i, lParam.i)
Purebasic window outer size full#
This means that the same code can be compiled natively for the OS and use the full power of each.
Purebasic window outer size portable#
PureBasic is a portable programming language which currently works on AmigaOS, Linux, MacOS X and Windows computer systems. For the experienced coder, there are no problems gaining access to any of the legal OS structures or Windows API objects. The syntax is easy and the possibilities are huge with the ”advanced” functions that have been added to this language like pointers, structures, procedures, dynamic linked-lists and much more. We have put a lot of effort into its realization to produce a fast, reliable and system-friendly language.
Purebasic window outer size software#
This software has been developed for the Windows operating system. Learning PureBasic is very easy! PureBasic has been created for beginners and experts alike.
Purebasic window outer size Pc#
It is mostly compatible with any other ”BASIC” compiler, whether it’s for the Amiga or PC format. PureBasic is an ”high-level” programming language based on established ”BASIC” rules.
0 kommentar(er)
