Patrice,
thanks a lot for this fantastic learning code at http://www.jose.it-berater.org/smfforum/index.php?topic=1180.0
Really a big source of learning and thinking on how to make things on UI side.
A little note: on my box (WinXP Sp2) when I minimixe and than maximixe again, there is a graphic gap un upper left side, like a graphic repetition of part of the button graphic. Can it be?
Thanks again.
Eros
Hi,
I'd like to thank too for the sample, it is simply amazing.
I can confirm this redraw problem when minimize-maximize too. But when I click to "Restore" it is again correct..
Bye,
Petr
I don't see this problem on my computer(s)
But this is typically a Windows animation behavior occuring while the form is maximized, because at the time the AnchorEnum callback is being used, the new button location (in our case %ANCHOR_CENTER) the pr RECT structure has not been yet updated.
There are several solutions to this problem, either use a small ApiSLEEP or use MoveWindow instead of CALL ShowWindow(hWnd, %SW_MAXIMIZE).
In any case the change must be done there:
'// We process our custom system buttons command there.
FUNCTION zButtonSysCommand (BYVAL hWnd AS LONG, BYVAL wParam AS LONG) AS LONG
LOCAL Done AS LONG
Done = 0
SELECT CASE LONG CINT(LOWRD(wParam))
CASE %ID_CLOSE
CALL SendMessage(hWnd, %WM_CLOSE, 0, 0)
Done = -1
CASE %ID_MAXIMIZE
CALL ShowWindow(GetDlgItem(hWnd, %ID_RESTORE), %SW_SHOW)
CALL ShowWindow(GetDlgItem(hWnd, %ID_MAXIMIZE), %SW_HIDE)
CALL zUpdateWindow(GetDlgItem(hWnd, %ID_RESTORE), 0)
CALL ShowWindow(hWnd, %SW_MAXIMIZE)
'------
CALL zDrawBackground()
CALL EnumChildWindows(hWnd, CODEPTR(AnchorEnum), 0) ' <-------
'------
Done = -1
CASE %ID_RESTORE
CALL ShowWindow(GetDlgItem(hWnd, %ID_MAXIMIZE), %SW_SHOW)
CALL ShowWindow(GetDlgItem(hWnd, %ID_RESTORE), %SW_HIDE)
CALL zUpdateWindow(GetDlgItem(hWnd, %ID_MAXIMIZE), 0)
CALL ShowWindow(hWnd, %SW_RESTORE)
CALL zDrawBackground()
CALL EnumChildWindows(hWnd, CODEPTR(AnchorEnum), 0)
Done = -1
CASE %ID_MINIMIZE
CALL ShowWindow(hWnd, %SW_MINIMIZE)
Done = -1
END SELECT
FUNCTION = Done
END FUNCTION
Please, could you try this, and tell me if it solves the problem?
In zButtonSyscomand change CASE %ID_MAXIMIZE to this:
CASE %ID_MAXIMIZE
CALL ShowWindow(hWnd, %SW_MAXIMIZE)
CALL ShowWindow(GetDlgItem(hWnd, %ID_RESTORE), %SW_SHOW)
CALL ShowWindow(GetDlgItem(hWnd, %ID_MAXIMIZE), %SW_HIDE)
CALL zDrawBackground()
CALL EnumChildWindows(hWnd, CODEPTR(AnchorEnum), 0)
Done = -1
Thank you
Patrice Terrier
www.zapsolution.com
Sorry Patrice but problem still there.
In the upper left corner of the window is is showed to lower right image of the button. It seems like when restoring the window, the middle scren button is first drawn partially in the upper left side of the window and than moved in the center of the window. Can it be?
Regards
Eros
Ok, I see it now, I did not understood first how to reproduce the behavior.
But now that I am able to reproduce it myself, consider it as solved ;)
To fix the problem.
In AnchorEnum add
IF IsIconic(zMainWindow(0)) THEN FUNCTION = %FALSE: EXIT FUNCTION like this:
'// Anchor enum callback functio.n
FUNCTION AnchorEnum (BYVAL hWnd AS LONG, BYVAL lParam AS LONG) AS LONG
IF IsIconic(zMainWindow(0)) THEN FUNCTION = %FALSE: EXIT FUNCTION
'LOCAL zChildClass AS ASCIIZ * 32
LOCAL pr AS RECT, rc AS RECT, pZP AS LONG
LOCAL x, y, xW, yH AS LONG
In zDrawBackground add
IF IsIconic(hMain) THEN EXIT SUB like this :
'// Draw our custom background there
SUB zDrawBackground()
LOCAL hMain AS LONG, hIC AS LONG, hDCmem AS LONG, rc AS RECT
hMain = zMainWindow(0)
IF IsIconic(hMain) THEN EXIT SUB
CALL GetClientRect(hMain, rc)
Please let me know?
Got it, perfect ;)
Thanks a lot
Eros
The corrupted JPEG file attached to the first post of this thread has been removed (because of the "Server Collapse").
...