helpframe.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 21 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" borderstyle="1" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<programe>
<!--
property CurSheet read FCurSheet write FCurSheet
private function Initialize(Sender)
FCurSheet = 0
end function
private function OnMouseWheel(Sender,Forward)
if Forward then
  CurSheet.VScrollBar1.Pos = CurSheet.VScrollBar1.Pos - 1
else
  CurSheet.VScrollBar1.Pos = CurSheet.VScrollBar1.Pos + 1
end if
end function
-->
</programe>
</sheet>
</vg>