Tengo una TDMICHILD que cuando la redimensiono con el raton necesito que nunca sea menor que 400X300. Lo he solucionado con el bResized asi:
- Code: Select all Expand view
- oWin:Resized := { |S,W,H| CambSize(oWin,S,W,H) }
...
...
FUNCTION CambSize(oWin,Style,nWidth,nHeight)
IF Style = 0
IF nWidth < 400
oWin:nWidth := 400
ENDIF
IF nHeight < 300
oWin:nHeight := 300
ENIF
ENDIF
RETURN NIL
Funciona perfectamente, pero me preguntaba si no hubiera una solución más elegante porque visualmente no es muy acertda ya que al window se redibuja constantemente, parapadea, hay como interferencias, y no resulta nada bonito.
¿Hay alguna variable que impida que la ventana se redimensione más hallá de un límite, o algo así?
Lo he intentado con aMinMaxInfo. El redimensionado va perfectamente, pero después no consigo que vuelva a maximizarse normalmente ponga los valores que ponga en ese array ¿Cómo se haría?
¿Alguna idea?
Gracias.