On Restore Events
Moderator: Rathinagiri
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
On Restore Events
Seems is missing this event in HMG.
I mean restoring a form or window to its original size. To minimize, maximize, and restore a window or form, change the value of the WindowState OnRestore property.
Here is one C++ code
I mean restoring a form or window to its original size. To minimize, maximize, and restore a window or form, change the value of the WindowState OnRestore property.
Here is one C++ code
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: On Restore Events
See this code:
Code: Select all
#include "hmg.ch"
Function Main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
MAIN
@ 70,70 BUTTON Button_1 CAPTION "OK" ACTION MsgInfo ("OK")
END WINDOW
CREATE EVENT PROCNAME OnRestore HWND Form_1.HANDLE
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
#define WM_SYSCOMMAND 274
#define SC_RESTORE 0xF120
FUNCTION OnRestore
IF EventMSG() == WM_SYSCOMMAND .AND. EventWPARAM() == SC_RESTORE
MsgInfo ("Restore")
ENDIF
RETURN NIL
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
On Restore Events
![Surprised :o](./images/smilies/icon_e_surprised.gif)
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
This will be usefull... But what would be ideal for me in this case with FMG_Editor is able to rely on that event were available internally. Just as it has with OnMaximize and OnMinimize.
I also shall adapt this (I do not know now) for using not during the event, shall it be after this happen. Because I need when this event ended (after restored window) to call then the function that I want to insert.
Thank you Claudio for your contribution. You are great !
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: On Restore Events
Pablo César wrote:I also shall adapt this (I do not know now) for using not during the event, shall it be after this happen. Because I need when this event ended (after restored window) to call then the function that I want to insert.
Code: Select all
#include "hmg.ch"
Function Main()
PUBLIC Flag_MinMax := .F.
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
ON MINIMIZE (Flag_MinMax := .T.);
ON MAXIMIZE (Flag_MinMax := .T.);
ON SIZE OnSize();
MAIN
@ 70,70 BUTTON Button_1 CAPTION "OK" ACTION MsgInfo ("OK")
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
FUNCTION OnSize
IF Flag_MinMax == .T.
MsgInfo ("Restore")
ENDIF
Flag_MinMax := .F.
RETURN NIL
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
On Restore Events
I prepare this other example based on your one:
Claudio, is it correct the way I done ? Or _RestoreWindow ( "Form_1" ) is being executed twice ?
Code: Select all
#include "hmg.ch"
Function Main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
MAIN
@ 70,70 BUTTON Button_1 CAPTION "OK" ACTION ( Form_1.Maximize, DrawSnapGrid(5) )
END WINDOW
CREATE EVENT PROCNAME OnRestore HWND Form_1.HANDLE
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
#define WM_SYSCOMMAND 274
#define SC_RESTORE 0xF120
FUNCTION OnRestore
IF EventMSG() == WM_SYSCOMMAND .AND. EventWPARAM() == SC_RESTORE
nIndex := EventINDEX ()
EventSTOP (nIndex, .T.)
_RestoreWindow ( "Form_1" )
DrawSnapGrid (5)
EventSTOP (nIndex, .F.)
ENDIF
RETURN NIL
Function DrawSnapGrid (nPx)
Local i, j, fHandle, hDC
Local nH, nW
Default nPx := 10
fHandle := GetFormHandle( "Form_1" )
nH := GetProperty("Form_1","Height")
nW := GetProperty("Form_1","Width")
hDC := GetDC( fHandle )
For i := nPx TO nW STEP nPx
For j := nPx TO nH STEP nPx
SetPixel( hDC, i, j, RGB( 0, 0, 0 ) )
Next
Next
ReleaseDC( fHandle, hDC )
Return Nil
#pragma BEGINDUMP
#include <windows.h>
HB_FUNC( SETPIXEL )
{
hb_retnl( (ULONG) SetPixel( (HDC) hb_parnl( 1 ) ,
hb_parni( 2 ) ,
hb_parni( 3 ) ,
(COLORREF) hb_parnl( 4 ) ) );
}
#pragma ENDDUMP
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: On Restore Events
This way is better:Pablo César wrote:I prepare this other example based on your one:
Claudio, is it correct the way I done ? Or _RestoreWindow ( "Form_1" ) is being execute twice ?Code: Select all
#include "hmg.ch" Function Main() DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 200 ; HEIGHT 200 ; MAIN @ 70,70 BUTTON Button_1 CAPTION "OK" ACTION ( Form_1.Maximize, DrawSnapGrid(5) ) END WINDOW CREATE EVENT PROCNAME OnRestore HWND Form_1.HANDLE CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return #define WM_SYSCOMMAND 274 #define SC_RESTORE 0xF120 FUNCTION OnRestore IF EventMSG() == WM_SYSCOMMAND .AND. EventWPARAM() == SC_RESTORE nIndex := EventINDEX () EventSTOP (nIndex, .T.) _RestoreWindow ( "Form_1" ) DrawSnapGrid (5) EventSTOP (nIndex, .F.) ENDIF RETURN NIL Function DrawSnapGrid (nPx) Local i, j, fHandle, hDC Local nH, nW Default nPx := 10 fHandle := GetFormHandle( "Form_1" ) nH := GetProperty("Form_1","Height") nW := GetProperty("Form_1","Width") hDC := GetDC( fHandle ) For i := nPx TO nW STEP nPx For j := nPx TO nH STEP nPx SetPixel( hDC, i, j, RGB( 0, 0, 0 ) ) Next Next ReleaseDC( fHandle, hDC ) Return Nil #pragma BEGINDUMP #include <windows.h> HB_FUNC( SETPIXEL ) { hb_retnl( (ULONG) SetPixel( (HDC) hb_parnl( 1 ) , hb_parni( 2 ) , hb_parni( 3 ) , (COLORREF) hb_parnl( 4 ) ) ); } #pragma ENDDUMP
Code: Select all
#include "hmg.ch"
Function Main()
PUBLIC flag_Restore := .F.
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
ON PAINT OnPaint();
MAIN
@ 70,70 BUTTON Button_1 CAPTION "OK" ACTION MsgInfo ("Ok")
END WINDOW
CREATE EVENT PROCNAME OnRestore HWND Form_1.HANDLE
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
#define WM_SYSCOMMAND 274
#define SC_RESTORE 0xF120
FUNCTION OnRestore
IF EventMSG() == WM_SYSCOMMAND .AND. EventWPARAM() == SC_RESTORE
flag_Restore := .T.
ENDIF
RETURN NIL
PROCEDURE OnPaint (nPx)
LOCAL Width := BT_ClientAreaWidth ("Form_1")
LOCAL Height := BT_ClientAreaHeight ("Form_1")
LOCAL hDC, BTstruct
Default nPx := 10
IF flag_Restore == .T.
hDC := BT_CreateDC ("Form_1", BT_HDC_ALLCLIENTAREA, @BTstruct)
For i := nPx TO Width STEP nPx
For j := nPx TO Height STEP nPx
BT_DrawSetPixel (hDC, j, i, BLACK)
Next
Next
BT_DeleteDC (BTstruct)
ENDIF
flag_Restore := .F.
RETURN
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
On Restore Events
Thank you Claudio. You gave good lesons and more features than I needed.
- I saw event release is also sizing.
- Adding a flag to switch when is minimize, was good idea.
- Using BT_DrawSetPixel OnPaint event, keeps grid permanently as part of form.
In FMG_Editor, I would like to switch by user option when to use grids or not.
But now I learned that making OnPaint event is the best practice to keep grids without without being harmed by the events OnMaximize, OnMinimize and OnRestore.
So, I see now that was not even necessary to control the OnRestore event.
Sorry if I gave work to you, but for me is worth as learning.
I made my final test, now knowing the best way to implement Grid on forms:Perhaps the misunderstanding that happened was because I have not used our native language and the lack of greater expertise from me.
Thank you again Claudio.![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
- I saw event release is also sizing.
- Adding a flag to switch when is minimize, was good idea.
- Using BT_DrawSetPixel OnPaint event, keeps grid permanently as part of form.
In FMG_Editor, I would like to switch by user option when to use grids or not.
But now I learned that making OnPaint event is the best practice to keep grids without without being harmed by the events OnMaximize, OnMinimize and OnRestore.
So, I see now that was not even necessary to control the OnRestore event.
Sorry if I gave work to you, but for me is worth as learning.
I made my final test, now knowing the best way to implement Grid on forms:
Code: Select all
#include "hmg.ch"
Function Main()
PUBLIC flag_Restore := .F.
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
ON PAINT OnPaint();
MAIN
@ 60,50 BUTTON Button_1 CAPTION "ON" ACTION (flag_Restore:=.T.,OnPaint())
@ 90,50 BUTTON Button_2 CAPTION "OFF" ACTION (flag_Restore:=.F.,RedrawWindow(GetFormHandle("Form_1")))
END WINDOW
// CREATE EVENT PROCNAME OnRestore HWND Form_1.HANDLE
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
#define WM_SYSCOMMAND 274
#define SC_RESTORE 0xF120
FUNCTION OnRestore
IF EventMSG() == WM_SYSCOMMAND .AND. EventWPARAM() == SC_RESTORE
flag_Restore := .T.
ENDIF
RETURN NIL
PROCEDURE OnPaint (nPx)
LOCAL Width := BT_ClientAreaWidth ("Form_1")
LOCAL Height := BT_ClientAreaHeight ("Form_1")
LOCAL hDC, BTstruct
Default nPx := 10
IF flag_Restore == .T.
hDC := BT_CreateDC ("Form_1", BT_HDC_ALLCLIENTAREA, @BTstruct)
For i := nPx TO Width STEP nPx
For j := nPx TO Height STEP nPx
BT_DrawSetPixel (hDC, j, i, BLACK)
Next
Next
BT_DeleteDC (BTstruct)
ENDIF
// flag_Restore := .F.
Return Nil
Thank you again Claudio.
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: On Restore Events
Yes, and this code (BT_HDC_INVALIDCLIENTAREA) is more efficient for this purpose:Pablo César wrote:But now I learned that making OnPaint event is the best practice to keep grids without without being harmed by the events OnMaximize, OnMinimize and OnRestore.
Code: Select all
PROCEDURE OnPaint (nPx)
LOCAL Width := BT_ClientAreaWidth ("Form_1")
LOCAL Height := BT_ClientAreaHeight ("Form_1")
LOCAL hDC, BTstruct
Default nPx := 10
hDC := BT_CreateDC ("Form_1", BT_HDC_INVALIDCLIENTAREA, @BTstruct)
For i := nPx TO Width STEP nPx
For j := nPx TO Height STEP nPx
BT_DrawSetPixel (hDC, j, i, BLACK)
Next
Next
BT_DeleteDC (BTstruct)
RETURN