1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
PROCEDURE TimerProc()
IF gP.IsIconize THEN RETURN
IF gP.hPlayer THEN
IF IsWindow(gP.hPlayer) THEN
rM is RECT
rP is RECT
GetWindowRect(gP.hMain, rM)
GetWindowRect(gP.hPlayer, rP)
IF Height(rP) >= Height(rM) THEN
IF IsWindowVisible(gP.hMain) THEN ShowWindow(gP.hMain, SW_HIDE)
ELSE
IF IsWindowVisible(gP.hMain) = 0 THEN
ShowWindow(gP.hMain, SW_SHOW)
ResizeWindow(gP.hPlayer)
BringWindowToTop(gP.hPlayer)
END
END
IF gP.duration THEN ReadSeekerPos()
ELSE // FFplayer has been closed ...
gP.hPlayer = 0
IF BTN_Pause..Visible THEN BTN_Pause..Visible = False
IF BTN_Step..Visible THEN BTN_Step..Visible = False
IF BTN_Mute..Visible THEN BTN_Mute..Visible = False
IF BTN_Quit..Visible THEN BTN_Quit..Visible = False
LIB_Duration = DURATION_NUL; LIB_Seeker = DURATION_NUL; gP.duration = 0; gP.seeker = 0; Gauge..Value = 0
BringWindowToTop(gP.hMain)
END
END
FocusChange(0,0,0)
CenterDialog() |
Partager