How to detect resize event of screen ?

[viettla]

Hi,
I want to resize child form when screen is rezized. How can do this ?
thank's

Viet

 

[baltman]

If I understand your question correctly, wcgs has posted an example of this in thread184-687849.

Brian

 

[Mike Lewis]

Viet,

In addition to Wcgs' method, if you have VFP 8.0, you can use the new BindEvent() function to tie the screen's resize to the form's resize. For more details, see Bindevent() in the Help.

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[viettla]

Thank to Brian, Mike
I found best answer from Wcgs's example.
Viet

Viet

 

[ChrisRChamberlain]

viettla

If you are looking to resize a child form when _SCREEN is resized, and you don't have VFP 8,0, you need to add a resize method to _SCREEN.

Perhaps you could confirm which of the options offered so far suits?

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.com

http://www.pdfcommander.co.uk

 

[Mike Lewis]

Chris,

you need to add a resize method to _SCREEN

How would he do that? I can't see any way of gettng at the code in _SCREEN methods.

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[ChrisRChamberlain]

Mike

In the root of main.prg put

DO ScreenResizeClass

Then create a procedure :-

* *********************************
* Procedure: ScreenResizeClass
* Syntax: DO ScreenResizeClass
* *********************************
PROC ScreenResizeClass

DEFINE CLASS Resizer AS Custom
oScreen = _SCREEN

PROCEDURE oScreen.Resize
WITH _SCREEN
.LockScreen = .T.
&& Code
.LockScreen = .F.
ENDW

IF VARTYPE(oMain) = [O]
WITH oMain
.LockScreen = .T.
&& Code
.LockScreen = .F.
ENDW
ENDI

IF VARTYPE(oStatusBar) = [O]
WITH oMain
.LockScreen = .T.
&& Code
.LockScreen = .F.
ENDW
ENDI
ENDPROC
ENDDEFINE

In the .Load() event of your main form put :-

WITH _SCREEN
.AddObject([oResizer],[Resizer])
&& .AddObject([oScreenMoved],[ScreenMoved])
ENDW

As you can see, you can also add a .Moved() method which enables you to write the coordinates of _SCREEN to a table so that the app always starts in the last position.

In the .SCREEN.Resize() method, you can also write the coordinates of the child forms to a table for the same reason.

FAQ184-2483 - the answer to getting answered.​

Chris

http://www.pdfcommander.com

http://www.pdfcommander.co.uk

 

[Mike Lewis]

Chris,

Thanks for that code. I should have guessed that's what you had in mind. I thought you meant that he should somehow write code directly into the _SCREEN event handler.

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk