PowerBuilder à Donf ! / [ASTUCE] Rendre redimensionnable une fenetre de type RESPONSE

pick ouic · 29-05-2006 11:26:49

Suivez bien les démarches et tout se passera bien
Code testé sur la version de pb6, pb7 et pb8.

Code: pb

Function long GetWindowLongA (long hWindow, integer nIndex) Library "user32.dll"
Function long SetWindowLongA (long hWindow, integer nIndex, long dwNewLong) Library "user32.dll"


ulong  lu_style
int   li_WL_STYLE    = -16
long    ll_WS_THICKFRAME   = 262144
long   ll_WS_SYSMENU   = 524288

lu_style = GetWindowLongA(handle(this), li_WL_STYLE)

IF lu_style <> 0 THEN
  if SetWindowLongA(handle(this), li_WL_STYLE, lu_style + ll_WS_THICKFRAME + ll_WS_SYSMENU ) <> 0 then
    this.hscrollbar = false
    this.vscrollbar = false      
  end if      
END IF

Pas de problème (pb), que du PowerBuilder (PB) ^^

Annonce

#1 29-05-2006 11:26:49

[ASTUCE] Rendre redimensionnable une fenetre de type RESPONSE

Code: pb

Pied de page des forums