home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win95 / Qxvzm10 / QXVZM10.LZH / QVZ4.MAC < prev    next >
Text File  |  1996-12-22  |  1KB  |  55 lines
  1. 'VZ カーソル移動
  2. '*QMVZ.HLP
  3.  
  4. proc ChangeTopLine
  5.     if @hwnd = 0 then exit proc
  6.     dim line
  7.     dim topline
  8.  
  9.     line = @Line
  10.     topline = @TopLine
  11.     if @LastLine <= @ScreenHeight then exit proc
  12.     if @ScreenHeight <= 5 then exit proc
  13.     if topline = line-1 then
  14.         topline = line - @ScreenHeight/2
  15.     elseif topline = line - @ScreenHeight/2 then
  16.         topline = line - @ScreenHeight + 2
  17.     else
  18.         topline = line - 1
  19.     end if
  20.     if topline<0 then topline = 0
  21.     @TopLine = topline
  22. end proc
  23.  
  24. proc ChangeTab
  25.     if @hwnd = 0 then exit proc
  26.     if @Tab = 8 then
  27.         @Tab = 4
  28.     else
  29.         @Tab = 8
  30.     end if
  31. end proc
  32.  
  33. '最大化 → 縦に並べる → 横に並べる を繰り返す
  34. proc Window_Max_Tile
  35.     if @hwnd = 0 then exit proc
  36.     dim a$
  37.     if @@EditCount2 < 2 then
  38.         @WindowMaximize
  39.         exit proc
  40.     end if
  41.     a$ = @@Global$("bunkatsumode")
  42.     if a$ = "1" or a$ = "" then
  43.         a$ = "2"
  44.         @WindowTileTate2
  45.     elseif a$ = "2" then
  46.         a$ = "3"
  47.         @WindowTileYoko2
  48.     else
  49.         a$ = "1"
  50.         @WindowMaximize
  51.     end if
  52.     @@Global$("bunkatsumode") = a$
  53. end proc
  54.  
  55.