Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
inc\CreateNewWindow.bas
| Uploader: |  Eternal_Pain |
| Datum/Zeit: | 19.03.2014 04:39:13 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts Windows Easy Gui (WEG), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Sub Item_Window.Destroy()
ID = "" : Title = ""
DestroyWindow(whwnd)
whwnd = 0
End Sub
Function CreateNewWindow(byval w as Integer, byval h as Integer, byval t as String = "", byval x as integer = 0, byval y as integer = 0, byval s as UInteger = 0, byval se as UInteger = 0) as Item
Dim ExStyle as UInteger = IIF(se, se, WS_EX_CLIENTEDGE OR WS_EX_CONTROLPARENT)
Dim Style as UInteger = IIF(s , s , WS_GROUP OR WS_VISIBLE OR WS_CLIPSIBLINGS OR WS_CLIPCHILDREN OR WS_CAPTION OR WS_OVERLAPPED OR WS_SYSMENU OR WS_MINIMIZEBOX)
Dim as Integer wWidth, wHeight
Dim as RECT WindowRect
WindowRect.left = x
WindowRect.top = y
WindowRect.right = x+w
WindowRect.bottom = y+h
AdjustWindowRectEx(@WindowRect, Style, NULL, ExStyle)
wWidth = WindowRect.right -WindowRect.left
wHeight = WindowRect.bottom-WindowRect.top
Dim NewWindow as Item_Window ptr = NEW Item_Window
Dim whwnd as HWND = CreateWindowEx(ExStyle, strptr(Globals.ClassName), t, Style, _
WindowRect.left, WindowRect.top, wWidth, wHeight, _
NULL, NULL, Globals.hInstance, NewWindow)
If (whwnd = 0) Then
Delete NewWindow
LOGSTRING(Time & " | ERROR | Failed to create " & WindowID & " " & t)
MessageBox(NULL,"Failed to create " & WindowID & " " & t, "Error", NULL)
Return 0
End If
SetWindowLongPtr(whwnd, GWLP_USERDATA, Cast(LONG_PTR, NewWindow))
LOGSTRING(Time & " | INFO | " & WindowID & " " & t & " created.")
NewWindow -> ID = WindowID
NewWindow -> Title = t
NewWindow -> whwnd = whwnd
SendMessage(whwnd, WM_SETFONT, Cast(WPARAM, Globals.hFont), Cast(LPARAM,TRUE))
Globals.ItemList.AddItem(NewWindow)
'- center
Dim DesktopWidth as Integer = GetSystemMetrics(SM_CXSCREEN)
Dim DesktopHeight as Integer = GetSystemMetrics(SM_CYSCREEN)
Dim as Integer ww
Dim as Integer wh
Dim as Integer px
Dim as Integer py = DesktopHeight*0.5 - wh*0.5
If GetWindowRect(whwnd, @WindowRect) <> 0 Then
ww = WindowRect.right - WindowRect.left
wh = WindowRect.bottom - WindowRect.top
If x=0 and y=0 then
px = DesktopWidth*0.5 - ww*0.5
py = DesktopHeight*0.5 - wh*0.5
MoveWindow(whwnd, px, py, ww, wh, TRUE)
End if
End If
'-
ShowWindow(whwnd,SW_SHOW)
PostMessage(whwnd, WM_ACTIVATE, 1, 0)
'Globals.TabStopHandle = whwnd
Return NewWindow
End Function