Xbase++ :lockUpdate() -> Fivewin ?

[Jimmy]

hi,

when "resize" i use this under Xbase++

Code: Select all  Expand view  RUN

PROCEDURE MyResize(aOldSize, aNewSize, oSelf)
   ...
   oSelf:lockUpdate(.T.)

   aChild := oSelf:Childlist()
   FOR ii := 1 TO LEN(aChild)
      // for all Controls
   NEXT

   oSelf:lockUpdate(.F.)
   oSelf:invalidateRect()

RETURN

Question :
a.) how can i suppress Screen "Output" while resize Control under Fivewin
b.) under Xbase++ all Controls are "repaint" using invalidateRect() but under Fiverwin EACH Control need it

---

i do have search for "LockWindowUpdate" but not found under Fivewin
https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-lockwindowupdate

i use this under HMG

Code: Select all  Expand view  RUN

#include "DLL.CH"
#define DLL_STDCALL                 0x20
STATIC PROCEDURE DoResize( oMain, ...)
   ...
   DLLCall( "user32.dll", DLL_STDCALL, "LockWindowUpdate", oMain:Hwnd )
   // resize Controls
   DLLCall( "user32.dll", DLL_STDCALL, "LockWindowUpdate", 0 )
   oMain:refresh()

[Antonio Linares]

Dear Jimmy,

Code: Select all  Expand view  RUN

HB_FUNC( LOCKWINDOWUPDATE )
{
   hb_retl( LockWindowUpdate( ( HWND ) hb_parnll( 1 ) );
}

[Jimmy]

hi Antonio,

   

Code: Select all  Expand view  RUN

hb_retl( LockWindowUpdate( ( HWND ) hb_parnll( 1 ) );

thx

typo, must be

Code: Select all  Expand view  RUN

hb_retl( LockWindowUpdate( ( HWND ) hb_parnll( 1 ) )  ) ;

[Antonio Linares]

Dear Jimmy,

you are right

thanks!

[karinha]

Duda: para que sirve este comando LOCKWINDOWUPDATE() ?

Gracias.

Regards, saludos.

[Jimmy]

hi,

have a look at https://learn.microsoft.com/de-de/windows/win32/api/winuser/nf-winuser-lockwindowupdate

i use it e,g, when "re-size" a Window and do NOT want "paint" until all is finish

[Antonio Linares]

Nuevo método en la Clase TWindow de FWH:

METHOD LockUpdate( lOnOff ) INLINE LockWindowUpdate( If( Empty( lOnOff ) .or. lOnOff, ::hWnd, 0 ) )

Code: Select all  Expand view  RUN

HB_FUNC( LOCKWINDOWUPDATE )
{
   hb_retl( LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) );
}

[Antonio Linares]

This seems a simpler version: Jimmy could you please try it with your code ? No need to supply a parameter

METHOD LockUpdate() INLINE LockWindowUpdate( ::hWnd )

Code: Select all  Expand view  RUN

HB_FUNC( LOCKWINDOWUPDATE )
{
   if( ! LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) )
      LockWindowUpdate( ( HWND ) 0 );
}

https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-lockwindowupdate

[xmanuel]

Antonio yo la dejaría como al principio pero usando hb_parptr:

Code: Select all  Expand view  RUN

HB_FUNC( LOCKWINDOWUPDATE )
{
   hb_retl( LockWindowUpdate( ( HWND ) hb_parptr( 1 ) ) );
}
 

hb_parptr() devuelve NULL si no se pasa nada que exactamente. lo que se quiere.

[Jimmy]

hi Antonio,

i try to find HB_FUNC( LOCKWINDOWUPDATE ) but did not found it in my FWH Source ... hm
but i found it in "C" Files as "External" ... hm

so i try

Code: Select all  Expand view  RUN

%HBDIR%\bin\hbmk2 -find LOCKWINDOWUPDATE

but "no match" ... hm

---

in my FWH i have

Code: Select all  Expand view  RUN

PROCEDURE DoDBFResize( oWnd ... )

   LOCKWINDOWUPDATE( oWnd:Hwnd )
   FOR ii := 1 TO nMax
      oObj := aParts[ ii ]

      oObj:SetSize( nPart, 48 )
      oObj:SetPos( 0, nPart * ( ii - 2 ) )
   NEXT
   LOCKWINDOWUPDATE( 0 )

RETURN

which work as expect

[Antonio Linares]

Dear Jimmy,

using :
Adding this to Class TWindow: METHOD LockUpdate() INLINE LockWindowUpdate( ::hWnd )

Code: Select all  Expand view  RUN

HB_FUNC( LOCKWINDOWUPDATE )
{
   if( ! LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) )
      LockWindowUpdate( ( HWND ) 0 );
}

Your code could be changed this way:

Code: Select all  Expand view  RUN

PROCEDURE DoDBFResize( oWnd ... )

   oWnd:LockUpdate()
   FOR ii := 1 TO nMax
      oObj := aParts[ ii ]

      oObj:SetSize( nPart, 48 )
      oObj:SetPos( 0, nPart * ( ii - 2 ) )
   NEXT
   oWnd:LockUpdate()

RETURN