2 x Windows side-by-side, how ?

[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

[andyglezl]

See this...

https://www.hmgforum.com/viewtopic.php? ... a&start=10

[AUGE_OHR]

hi,

See this...
https://www.hmgforum.com/viewtopic.php? ... a&start=10

thx, i will look at those Sample

[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

Code: Select all

ACTIVATE WINDOWS ALL

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

[Claudio Ricardo]

Hi... See HMG Ide code, he open 3 window after splash at start.

[AUGE_OHR]

hi,

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 1292 times

[edk]

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

Code: Select all

ACTIVATE WINDOWS ALL

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