HTBasic Help
×
Menu
Index

Example: HPGL View Widget in Panel

 
10     ! *********************************************************************
20     ! Example: HPGL VIEW Widget in PANEL
30     !
40     ! This program first displays a mechanical drawing and
50     ! then displays a "Parts Dimension" display of the drawing.
60     ! You can use the scrollbars to look at any part of the
70     ! drawing.
80     !
90     ! **********************************************************
100   !
110   INTEGER Screen(1:4),S_width,S_height,Width,Height
120   GESCAPE CRT,3;Screen(*)
130   ASSIGN @Panel TO WIDGET "PANEL";SET ("X":0,"Y":0,"WIDTH":Screen(3)+1,"HEIGHT":Screen(4)+1,"TITLE":" Part Dimensions")
140   CONTROL @Panel;SET ("SYSTEM MENU":"Quit")
150   ON EVENT @Panel,"SYSTEM MENU" GOTO Finis
160   STATUS @Panel;RETURN ("INSIDE WIDTH":S_width,"INSIDE HEIGHT":S_height)
170   ASSIGN @Hpgl1 TO WIDGET "HPGL VIEW";SET ("BACKGROUND":0,"X":0,"Y":0,"WIDTH":S_width,"HEIGHT":S_height,"BORDER":0,"HPGL FILE":"MECH.GL","RETAIN RASTER":1),PARENT @Panel
180   Width=(Screen(3)+1)/3
190   Height=(Screen(4)+1)/3
200   CONTROL @Panel;SET ("X":(Screen(3)-Width)/2,"Y":(Screen(4)-Height)/2,"WIDTH":Width,"HEIGHT":Height)
210   CONTROL @Panel;SET ("BACKGROUND":0,"SIZE CONTROL":"SCROLLABLE","SCROLL WIDTH":S_width,"SCROLL HEIGHT":S_height)
220   ON EVENT @Panel,"RESIZED" GOTO Looping
230 Looping: LOOP
240     WAIT FOR EVENT
250   END LOOP
260 Finis: END