🚀 go-pugleaf

> Czy ktos ma pomysl, jak moznaby zrobic taka formatke, ktora po
nacisnieciu
> klawisza Maximize "podklejala" sie pod gore ekranu, ale miala wysokosc
> tylko kilku centymetrow? 

Nie wiem, czy kogoś to interesuje prócz mnie, ale może dla zaspokojenia
ciekawości napiszę jak sobie poradziem.
Jest to rónież prowizoryczne rozwiązanie, ale z 3 problemów aż 2 są
rozwiązane. Pozostaje tylko "mignięcie" okna przy maxymalizowaniu.

Dzięki wszystkim za sugestie!

    Wrzek


Form1_Form_Resize()
-------------------

Dim i As Boolean
  
If Me.WindowState = 2 Then
  
  i = SetWindowPos(Me.hWnd, 0, 0, 0, 800, 80, 0)
  If i = 0 Then MsgBox ("Błąd!")
  
End If
    
End Sub


Module1_General_Declaration
---------------------------

Declare Function SetWindowPos Lib "User32.dll" (ByVal hWnd As Integer, 
                                                ByVal hwndInsertAfter As
Integer, 
                                                ByVal X As Integer, ByVal Y
As Integer, 
                                                ByVal cx As Integer, 
                                                ByVal cy As Integer, 
                                                ByVal fuFlags As Integer)
As Boolean