Category : Pascal Source Code
Archive   : TVGR70.ZIP
Filename : GWINDOW.TPU

TPUQâ`+ÃS ‹ ‹ ‹ õ 


 (À`~”
pó¿Òw
ðd
Ù

Œ
ö·<¡

Ò
`RSGWindowƒöŒ
SSystem
Ä

SCRTâÕ
ö
SDOS'ç)


SMCursor2xe>


SGAppªO
)


SMyGraph3õ.d
>

SGViewsM‰w
O

SGObjects¼Œ
d

SGDrivers¯¾w

OGVersionº
G1.01OcmScreenShiftedR

0ò)
OcmShiftScreenDownR

1ò>
OcmShiftScreenUpR

2òQ
ScrnShiftX
>

Q
ScrnShiftY
>

ï
O
NormalModeR

P
PShiftViewdí
R‚í#P
TShiftView‚í4p¨º n
`ÿÿ



‘@lÜQScreenIsShiftedDown1‚Ür

QScreenIsShiftedUp2‚ür

QMessageDisplayed3‚r

ºRInit1‚
@
2ƒ
RHandleEvent‚8
l
˜
üRLoad1‚
‘
ƒ
RStore ‚

ƒ
O
Q ShiftViewPtr
dí·
P
PSubWindowäí
ÒíP
TSubWindowíZð(:,/n
ˆÿÿ‚



:R
GetPalette(4
|n
P
PPanWindowrí
`íP
TPanWindowíc~¶È,/n
ˆ ÿÿ



¹ãöÚ”6dQ InteriorSizeZã̓
QMode^ö

Q
ScrnShiftSize_Íƒ
RInit10
K2ƒ
cn
*

̓
̓
ÈR CurAtEdge8`
r

 ˜
̓
r

KRHandleEvent@8
«
˜
RGetFullPanSizeHh
Ú
̓
RShiftScreenPp
r

 ˜
̓
RShiftViewUpdateX
6RSetState`P
d>

r

«R
SetVOffsethl
”*

*

RLoad1p
¹
ƒ
RStorex

ƒ
PPWinBackgroundõí
ßíPTWinBackgroundí1
=O n
`(ÿÿ



OtRInit1€
t
2ƒ
RDrawˆ
~RRegisterWindows

QRgShiftView
0÷ƒ
ßQRgSubWindow
0÷ƒ
QRgPanWindow
0÷ƒ
âQRgWinBackground
*0÷ƒ
ÿÿÿÿL (08H@PX`hpx€ˆ4HÿÿNÿÿËÈÿÿvÿÿeÿÿ‹(ÿÿ’ÿÿ€Hÿÿ#ÿÿÐ0ÿÿ×0ÿÿoÿÿ8ÿÿ^0ÿÿvÿÿeÿÿBÿÿÞPÿÿ`°‚ˆ
ˆ
`°8`GWindowGViewsGObjectsSystemMCursor2GAppGMENU6GDriversMyGraph3ŽPGGWINDOW.PAS#U‰å1Àš¿Wš¿Wš¿Wš¿Wš]ËU‰å1Àš1ÿšt2Ä~ W1ÀPÄ~WšÄ~&‹E/

&‰E/&ÆE1&ÆE2&ÆE3ÄFŒÂ]Ê
" PRESS ENTER TO PAN SCREEN UP ( ~CLICK RIGHT BUTTON TO PAN SCREEN~ U‰å¸0šƒì0Ä~
&=uL&}0òuD&€}Tu
Ä~&ÆE2
ëÄ~&ÆE2Ä~
&€}Tu
Ä~&ÆE1
ëÄ~&ÆE1Ä~
WÄ~WšÄ~&€}1u
&€}2ué
ÆFúÆFûÄ~
&ƒ=uw~üW¿WšÄ~
&}Hu*ƒ~þ
$~ÖW¿WšÄ>WšÄ~&ÆE3
ëÄ~&€}3tÄ>W&‹=ÿ]Ä~&ÆE3Ä~
&}
u
ƒ~þuÆFú
Ä~
&ƒ=té&ƒ}u
Ä~&€}2u.Ä~&€}1tW¡tNÄ~
&ÿu&ÿuÄ>W&‹=ÿ]@Àt3Ä~
WÄ~Wš~ÐW¿WšÄ>WšÄ~&ÆE3
ëÄ~&€}3tÄ>W&‹=ÿ]Ä~&ÆE3Ä~
&ƒ=
téÑ&€}téÇ&ƒ}t€~útHÄ~
WÄ~WšÄ~
&Ç
&ÇE1òWÄ~W&‹=ÿ]DÄ~&€}3tÄ>W&‹=ÿ]Ä~&ÆE3¡tÄ~
&ÿu&ÿuÄ>W&‹=ÿ]@Àu€~ûtHÄ~
WÄ~WšÄ~
&Ç
&ÇE2òWÄ~W&‹=ÿ]DÄ~&€}3tÄ>W&‹=ÿ]Ä~&ÆE3‰ì]ÊU‰å1Àš1ÿštZÄ~ W1ÀPÄ~WšÄ~Ç1W¸
PÄ~ W&‹=ÿ]Ä~Ç2W¸
PÄ~ W&‹=ÿ]Ä~Ç3W¸
PÄ~ W&‹=ÿ]ÄFŒÂ]Ê
U‰å1ÀšÄ~
WÄ~WšÄ~Ç1W¸
PÄ~
W&‹=ÿ](Ä~Ç2W¸
PÄ~
W&‹=ÿ](Ä~Ç3W¸
PÄ~
W&‹=ÿ](]ÊU‰å¸šƒì¸ŒÚ‹È‹ÚÄ~&Ä}&‹ŒÚ;Óu;Át:¸ŒÚ‹È‹ÚÄ~&Ä}&‹ŒÚ;Óu;Át¸ŒÚ‹È‹ÚÄ~&Ä}&‹ŒÚ;Óu;Áu
1À‰Fü‰FþëÄ~Wš‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰å¸^šƒì^ŒÓŽÃŒÛü~®Åv¬ t¸PWšÀt3Ä~&ƒ} ~)&‹E &;Ea~&‹Ea÷ØÄ~ &‰EëÄ~&‹E ÷ØÄ~ &‰E¡u¡+Fô;Fü~)¸PÄ~WšÀts‹FðÄ~&;E}¡+Fô;Fü\Ä~&ŠE"0ä‹Ð&‹E‹ÊÓà&E &;E\}?&‹E &E‹Ð&‹E\+ÂÄ~ &‰E&ƒ}1À&‰EÄ~ &‹EÄ~&;Ea~&‹EaÄ~ &‰E¡+Fô;FúIÄ~&ŠE"0ä‹Ð&‹E‹ÊÓà&E&;EZ},&‹E&E‹Ð&‹EZ+ÂÄ~ &‰&‹Ä~&;E_~
&‹E_Ä~ &‰¡Fô;Fú|1Ä~&ƒ}~'&‹E&;E_~&‹E_÷ØÄ~ &‰ëÄ~&‹E÷ØÄ~ &‰Ä~ &ƒ=u&ƒ}tÆFÿ
ëÆFÿŠFÿ‰ì]ÊU‰å1ÀšÄ~&‹EZ&‹U\Ä~
&‰&‰U]ÊU‰å¸šƒìÄ~
WÄ~WšÄ~
&ƒ=t&=
uA&}1òt&}2òu1Ä~
W~üW°
PÄ~W&‹=ÿ]`ÀtÄ~
W~üWÄ~W&‹=ÿ]pÄ~
&=
uR&ƒ}u°PÄ~WšÄ~
WÄ~WšÄ~
&ƒ}u%Ä~&ÿuT&ÿuR&Ä}5WšÄ~
WÄ~Wš‰ì]ÊU‰å¸šƒìÆFñ
ŠFñˆFÿ€~ñué­Ä~&‹EÄ~
&PÄ~&‹E Ä~
&EPÄ~W&‹=ÿ]lÄ~
&ƒ}t Ä~WèÄ~W&‹=ÿ]Ä~&=
u~úW¿WšëÄ~&‹E&‹U‰Fú‰Vü‹FúÄ~
&+‰Fú‹Fü&+E‰FüÄ~&Ç‹Fú‹Vü&‰E&‰U~úW¿WšŠFÿ‰ì]Ê U‰å¸šƒìÇFøÇFú0ò1À‰FüÄ~&ƒ} ~ÇFüTëÇFüFÄ~&‹E &E&;E\}‹FüT‰Füë ‹FüF‰Fü~øWÄ>W&‹=ÿ]8‰ì]ÊU‰å1Àš€~
t‹F % Àt Ä~Wèÿv ŠF
PÄ~Wš]ÊU‰å1Àš 0ä‹Ø 0ä‹È‹F ™÷ù÷ã‰F  0ä‹Ø 0ä‹È‹F
™÷ù÷ã‰F
Ä~&€}"vƒn
ÿv ÿv
Ä~Wš]ÊU‰å1Àš1ÿštZÄ~ W1ÀPÄ~WšÄ~ÇZW¸PÄ~ W&‹=ÿ]Ä~Ç^W¸
PÄ~ W&‹=ÿ]Ä~Ç_W¸PÄ~ W&‹=ÿ]ÄFŒÂ]Ê
U‰å1ÀšÄ~
WÄ~WšÄ~ÇZW¸PÄ~
W&‹=ÿ](Ä~Ç^W¸
PÄ~
W&‹=ÿ](Ä~Ç_W¸PÄ~
W&‹=ÿ](]ÊU‰å1Àš1ÿšt&Ä~ W1ÀPÄ~WšÄ~&ÆE' 1À&‰E/&ÇEÿÿÄFŒÂ]Ê
U‰å¸
šƒì
¿Wš~öWÄ~&Ä}WšÄ~&‹E

Fö&‹E
Fø‹Fö&E‰Fú‹Fø&E‰Fü&‹E+% ÀuÇFþ

ëÄ~&‹E+%€ ÀtÇFþëÇFþÿvþÄ~Wš‰FþÄ~&ƒ}ÿuÿvþWš0ä‰Fþë
Ä~&‹E‰Fþ¸
Pÿvþšÿvöÿvøÿvúÿvüš¿Wš‰ì]ÊȖ4ÌÿZ¦ÿcÿ1Ïÿ0ò1ò2ò3ò$0 
Ð00¨Ð00¨Ð00¨$Ð0*)0¨.$0 
$00
0!$0 
S 0H¬/Û/08àPû$0X
<Ð 
E0(
<Ð %
<Ð t
<Ð
x
<Ð ‰
0H¢
P#¬
$0X±
<Ð ·
E0(¼
<Ð Ö
0H<Ð A<Ð T<Ð
X<Ð i 0Hˆ<Ð ³$0 
$00
0 !$0 
 0$0 
 Ð8Ð ,ÐI 0 u$0 
$00- 0xI$0 
 0
ù<Ð 5
<Ð
9
/
>
0
R
/
g
/Î
/"$0 
$0 
 0¸ 0Ȉ 0H— 0¨
· 0HÆ$0 
XZ/w/08|/Å/0@Ê$0 
Ð_$0 
X! 0È0$0 
PÐPÐPÐ
$PÐ
+ 0ðV$0 
$00
0€!$0 
 0à$0 
$00
0!$0 
//0  0
' 0¸… 0øœ]0°
¹]0€
Ê/Ï/0Ô08 0( 08 0@ 0X 0p 0ˆ 0˜ 0 $ 0È( 0Ð, 0à0 0è4 0`
< 0p
@ 0 
D 0¸
H 0à
L 0è
P 0T 0X 0 \0(4 0ˆ 0t 0˜ 0¨x 0°| 0¸8 0À€ 0ÈP 0ÐT 0è„ 0` 0 0  08 0@d 0P 0x( 0€0 0ˆh 0àL 0ðl 0p 0\ 0hH 08 0 $ 0Ð, 0`
< 0p
@ 0 
D 0X08`0@80Hh0Pp0`P0hl 0ˆ 0t 0˜ 0 4 0¨x 0°| 0À€ 0ÐT 0è„ 0 0  08 0@d 0P 0x( 0€0 0àL 0\ 0hH 08 0 $ 0Ð, 0`
< 0p
@ 0 
D 0X0ˆ 0( 08 0@ 0X 0ˆ 0˜ 0 $ 0È( 0Ð, 0à0 0è4 0(
8 0`
< 0p
@ 0 
D 0¸
H 0à
L 0è
P 0T 0X 0 \Ð00 Ð 0€ 0àÐ 0p 0x$Ð(, 0 . 02