Page 1 of 1
2 x Windows side-by-side, how ?
Posted: Sat Jan 02, 2021 3:33 am
by AUGE_OHR
hi,
i´m search for a Sample how to "bind" 2nd Window when moving.
1st Windows MAIN show Video and 2nd Window a Listbox with Filename.
when move MAIN Windows 2nd Windows should "follow" on Side
under Xbase++ i have Parent and Owner for a Control so how under harbour HMG
Re: 2 x Windows side-by-side, how ?
Posted: Sat Jan 02, 2021 5:59 am
by andyglezl
Re: 2 x Windows side-by-side, how ?
Posted: Sat Jan 02, 2021 8:02 am
by AUGE_OHR
hi,
thx, i will look at those Sample
Re: 2 x Windows side-by-side, how ?
Posted: Tue Jan 05, 2021 10:53 pm
by AUGE_OHR
open 4 Windows at Start
hi,
i have read about 2 Windows but now i want to open 4 Windows, in different *.PRG, at Start
each Window have a ACTIVATE so i try
or
Code: Select all
ACTIVATE WINDOWS Form_1, Form_2, Form_3, Form_4
but as it is in different *.PRG it fail
---
now i use 4 x Timer
Code: Select all
DEFINE TIMER internal_timer_1 INTERVAL 200 ACTION CrePlaylist()
DEFINE TIMER internal_timer_2 INTERVAL 200 ACTION CreEditmark()
DEFINE TIMER internal_timer_3 INTERVAL 200 ACTION CreWMPinfo()
DEFINE TIMER internal_timer_4 INTERVAL 300 ACTION DoWMPOnce()
Code: Select all
STATIC PROCEDURE CrePlaylist()
DoMethod( "Form_1", "internal_timer_1", "RELEASE" )
CreaChild( Form_1.Col, Form_1.Row, Form_1.Width, Form_1.Height )
RETURN
Code: Select all
STATIC PROCEDURE CreEditmark()
DoMethod( "Form_1", "internal_timer_2", "RELEASE" )
EditMark( Form_1.Col, Form_1.Row, Form_1.Width, Form_1.Height )
RETURN
Code: Select all
STATIC PROCEDURE CreWMPinfo()
DoMethod( "Form_1", "internal_timer_3", "RELEASE" )
WMPinfo( Form_1.Col, Form_1.Row, Form_1.Width, Form_1.Height )
RETURN
Code: Select all
STATIC PROCEDURE DoWMPOnce()
DoMethod( "Form_1", "internal_timer_4", "RELEASE" )
...
this seems to work.
is there another Way to open 4 Windows at Start
Re: 2 x Windows side-by-side, how ?
Posted: Wed Jan 06, 2021 12:03 am
by Claudio Ricardo
Hi... See HMG Ide code, he open 3 window after splash at start.
Re: 2 x Windows side-by-side, how ?
Posted: Wed Jan 06, 2021 1:12 am
by AUGE_OHR
hi,
Claudio Ricardo wrote: ↑Wed Jan 06, 2021 12:03 am
Hi... See HMG Ide code, he open 3 window after splash at start.
it work when "load Window" (*.FMG)
Code: Select all
LOAD WINDOW rep_build_step_1
LOAD WINDOW rep_build_step_2
LOAD WINDOW rep_build_step_3
LOAD WINDOW reportsummaryoptions
LOAD WINDOW reporttitlesoptions
LOAD WINDOW ReportFormatOptions
LOAD WINDOW groupingOptions
ACTIVATE WINDOW Building , Loading , Properties , Project , rep_build_step_1 , rep_build_step_2 , rep_build_step_3 , reportsummaryoptions , reporttitlesoptions , ReportFormatOptions , groupingoptions , Form_Main
*.FMG have no ACTIVATE ( and no RETURN ) where it "wait" for Event.
Question : how can i "simulate *.FMG" using *.PRG
- hbwmp_4win.JPG (120.2 KiB) Viewed 1293 times
Re: 2 x Windows side-by-side, how ?
Posted: Thu Jan 07, 2021 10:43 am
by edk
AUGE_OHR wrote: ↑Tue Jan 05, 2021 10:53 pm
open 4 Windows at Start
hi,
i have read about 2 Windows but now i want to open 4 Windows, in different *.PRG, at Start
each Window have a ACTIVATE so i try
or
Code: Select all
ACTIVATE WINDOWS Form_1, Form_2, Form_3, Form_4
but as it is in different *.PRG it fail
Use DECLARE WINDOW <WindowName>
http://hmgforum.com/hmgdoc/data/declarewindow.htm