He is just another follower to some one we do not know his purpose
Finally everyone is free to do what he wants(Go back to XP it is safe

To clarify your (personal assessment?) post RASHAD, I am a follower of the most high.RASHAD wrote:I just noticed that everyone said Never 10 he did not try it at all
He is just another follower to some one we do not know his purpose
That may or may not be true about XP's safety,Finally everyone is free to do what he wants(Go back to XP it is safe)
Code: Select all
EnableExplicit
Global.w BorderThickNessX, BorderThickNessY, FrameThicknessX, FrameThicknessY, FrameCaptionY
BorderThickNessX = GetSystemMetrics_(#SM_CXBORDER) * 2
BorderThickNessY = GetSystemMetrics_(#SM_CYBORDER) * 2
FrameThicknessX = GetSystemMetrics_(#SM_CXFRAME) / 2
FrameThicknessY = GetSystemMetrics_(#SM_CYFRAME) / 2
FrameCaptionY = GetSystemMetrics_(#SM_CYCAPTION)
Debug "BorderThickNessX->" + Str(BorderThickNessX)
Debug "FrameThicknessX ->" + Str(FrameThicknessX)
Debug "BorderThickNessY->" + Str(BorderThickNessY)
Debug "FrameThicknessY ->" + Str(FrameThicknessY)
Debug "FrameCaptionY ->" + Str(FrameCaptionY)
Global.l ResX, ResY
Global.i PrimaryWindowHandler, PrimaryWindowEvent
PrimaryWindowHandler = OpenWindow(#PB_Any, 20,20,1024 - BorderThickNessX - FrameThicknessX ,720 - BorderThickNessY - FrameThicknessY - FrameCaptionY,"Test", #PB_Window_SystemMenu)
ResX = WindowWidth(PrimaryWindowHandler, #PB_Window_FrameCoordinate)
ResY = WindowHeight(PrimaryWindowHandler, #PB_Window_FrameCoordinate)
SetWindowTitle(PrimaryWindowHandler, Str(ResX) + "/" + Str(resy))
Repeat
PrimaryWindowEvent = WindowEvent()
Select PrimaryWindowEvent
Case #PB_Event_CloseWindow
Break
EndSelect
Delay(1)
ForEver
CloseWindow(PrimaryWindowHandler)