;Codeschnipsel geschrieben von Falko 
;Windowsgröße ohne SizeGadget 
;Zusätzlich API mit Cursorfunktion. 
;Constanten MouseCursor 
#IDC_APPSTARTING = 32650 
#IDC_HAND = 32649 
#IDC_ARROW = 32512 
#IDC_CROSS = 32515 
#IDC_IBEAM = 32513 
#IDC_ICON = 32641 
#IDC_NO = 32648 
#IDC_SIZE = 32640 
#IDC_SIZEALL = 32646 
#IDC_SIZENESW = 32643 
#IDC_SIZENS = 32645 
#IDC_SIZENWSE = 32642 
#IDC_SIZEWE = 32644 
#IDC_UPARROW = 32516 
#IDC_WAIT = 32514 
Global mousek 
Procedure MouseCursor(CursorType.l) 
lngRet.l 
lngRet=LoadCursor_(0,CursorType) 
IngRet=SetCursor_(lngRet) 
EndProcedure 
Procedure callback(WindowID, Message, wParam, lParam) 
Select Message 
Case #WM_LBUTTONDOWN 
Debug "Linker Mausbutton gedrückt" 
  mousek=1 
Case #WM_LBUTTONUP 
Debug "Linker Mausbutton losgelassen" 
mousek=0 
EndSelect 
ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 


If OpenWindow(0, 100, 200, 195, 260,#PB_Window_TitleBar , "Owner_ResizeWindow") 
SetWindowCallback(@callback()) 
  Repeat 
    EventID = WaitWindowEvent() 
    
      
    If EventID = #PB_Event_CloseWindow  ; Beenden? 
      Quit = 1 
    EndIf 
    ;If EventID=#PB_Image_Border And WindowMouseX()=WindowWidth()+2; Position erreicht, dann waagerechter Doppelpfeil 
     If WindowWidth()-WindowMouseX()<10; Position erreicht, dann waagerechter Doppelpfeil 
      MouseCursor(#IDC_SIZEWE) 
    EndIf 
    If WindowHeight()+30-WindowMouseY()<10; Bei dieser Position senkrechten Doppelpfeil anzeigen 
      MouseCursor(#IDC_SIZENS) 
    EndIf 
    

    If mousek=1 And WindowWidth()-WindowMouseX()<10    
      Repeat 
       WindowEvent() 
       MouseCursor(#IDC_SIZEWE) 
       ResizeWindow(WindowMouseX(),WindowHeight()) 
      Until  mousek=0  
   EndIf 
    
    If mousek=1 And WindowHeight()+30-WindowMouseY()<10 
      Repeat 
       WindowEvent() 
       MouseCursor(#IDC_SIZENS) 
       ResizeWindow(WindowWidth(),WindowMouseY()-26) 
      Until mousek=0 
    EndIf    
    

  Until Quit = 1 
  
EndIf
; ExecutableFormat=
; EOF