Upside Down Window III - Jose

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#Include "Win32API.inc"
Global hDlg,hChild As Dword, MinX As Long
 
Function PBMain() As Long
   Dialog New Pixels, 0, "",400,200,200,100,%WS_ThickFrame Or %WS_Popup To hDlg  'no caption, allow resizig
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local Style,w,h,ww,hh As Long, pt As Point, MM As MinMaxInfo Ptr
   Select Case Cb.Msg
      Case %WM_InitDialog
      Case %WM_NCPaint
         Function = 1
   End Select
End Function
 
'gbs_00763
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm