SetVisible in Dockable form

[Marco Jacinto]

The atached file shows a problem with dockable forms, the rectangle should hide when clicked the button but it doesn't.

Code Select Expand

(defun c:prueba ()
  (dcl_Project_Import
    '("YWt6A3AIAADPHOgjBuK76kcRLT9q+7HN/f3i2l5cbNtb/D58NUiwNPt+L35fblaW8mlsPOI7L371"
      "+Gj3WGvB/Fs2Umts3PzwYT49+bqoL7jiCUPtB5hmdhfmFkKNwEcNGUVJfX4k5VMhTVUmuzMiPWtr"
      "OmIFoXWKRDPUo3AxnFY5VVYvSbgAYG2oZR0Res2aax3N5hriQjinVdywJN/EtiQ8/x3IGFXwRrCv"
      "VBnq1lNMKKDcq9NJHNWrp9VMsFaZu8NkuZyLlWhR2I8kFxqjIJ3DTQj1c4ikd1ylwWt0hDAd5zkj"
      "mh9lcsH0BwBpM4Zo/YY19xuRRJxnBP0jwdR4E1koIDkTikxe0QTfli4+ZRCcDStDLYp/Z4lrhwPL"
      "aqMvCjWvEzvRivKX1rkBOHCzPi4tHZOhsO2GaTPNs0SLn1BRRA78jEuoW02wG6jYA8khy8Edh11L"
      "Yj2slRsKIcPyoflTHeSKWouNip38x08glPfgiu/cufRgVCSmxLa2IQk9r3M7tfSQFYa7U4E6QeZT"
      "TzQfCYwPCeBzJ4u+4W3afsvAPTVjn4XZDndHqJXCjXiBDEa7oUft4HHNkce6x26u9D1pbQeXqOZw"
      "lvQtc3sKotdwekqfrn1Dljg+gN4xK+uHaX0xF9ThLXqzu83URN2W3hCR1cCXCeOGJyvlZJU1BQm3"
      "971EjyWZy4eqob3Isc/fEIGyGQYpS6CrOaCj4hvOwcuBmZjVbklJY8RlrlnpC0NfKLTXbDggKV3R"
      "PfLCcRya/GRHaffvA5wTsRxFjO1RQX/AJ5hb"
     )
  )
  (dcl_Form_Show prueba_Formulario1)
)

(defun c:prueba_Formulario1_BotondeTexto1_OnClicked (/)
  (if (= (dcl_Control_GetVisible prueba_Formulario1_Rectángulo1)
T
      )
    (dcl_Control_SetVisible prueba_Formulario1_Rectángulo1 nil)
    (dcl_Control_SetVisible prueba_Formulario1_Rectángulo1 t)
  )
)

[owenwengerd]

The problem is that the background does not get repainted after the control is hidden. This is now fixed in Alpha 13.

[Marco Jacinto]

thanks Owen