亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? menu.tbl

?? 一個不錯的做圖軟件
?? TBL
字號: 
<?xml version="1.0" encoding="utf-8"?>
<vg version="722" activesheetIndex="3" range="0,0,1024,712" backcolor="$8000000F">
<page name="Page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="MenuItem" visible="false">
<rect name="Rect1" origin="77,15.5" bounds="0,0,153,22" linetype="0" backcolor="$80000004" pattern="1"/>
<text name="Text1" origin="25,2.75" bounds="21,3,91,19" backcolor="$8000000A" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000007" wordwrap="false" textalign="4" text="MenuItem(M)"/>
<line name="Line1" origin="152.25,4" visible="false" backcolor="$0" pattern="1">
<points>
144,8,6
144,14,2
147,11,3
</points>
</line>
<line name="Line2" origin="1,1" selectmode="0" linetype="0" backcolor="$C0C0C0" picture="Checkbox.bmp">
<points>
1,1,6
1,21,2
21,21,2
21,1,3
</points>
</line>
<rect name="rect2" origin="76,10" bounds="0,0,153,22" linetype="0" pattern="254">
<programe>
<!--
published function OnClick(Sender)
if Line2.Alpha = 100 then
  i = 0
  while i < ActiveSheet.UnitCount
    d = ActiveSheet.Units[i]
    if UCase( d.Type ) = "MENUITEM" then
      d.HideSubMenu()
    end if
    i = i + 1
  wend
  this.OnClick( this )
end if
end function
-->
</programe>
</rect>
<programe>
<!--
property Caption read GetCaption write SetCaption
property Checked read FChecked write SetChecked editor Bool
property Enable read GetEnable write SetEnable editor Bool
property Focused read GetFocused write SetFocused editor Bool
private function GetCaption()
return Text1.Text
end function
private function GetEnable()
return Line2.Alpha = 100
end function
private function GetFocused()
return Rect1.BackColor = $8000000D
end function
private function GetItems()
if Doc <> 0 then
  return Doc.ActiveSheet
else
  return 0
end if
end function
public function HideSubMenu()
if Doc <> 0 then
  Doc.Hide()
  i = 0
  while i < Doc.ActiveSheet.UnitCount
    d = Doc.ActiveSheet.Units[i]
    if UCase( d.Type ) = "MENUITEM" then
      d.HideSubMenu()
    end if
    i = i + 1
  wend
end if
end function
private function Initialize(Sender)
Doc=0
FChecked = false
FPicture = ""
FSubMenu=""
end function
property Items read GetItems
published function OnClick(Sender)
end function
private function OnDestroy(Sender)
if Doc <> 0 then
  Doc.Free()
end if
end function
public function OnKeyDown(Sender,Key)
if ( Key = 13 ) and ( Line2.Alpha = 100 ) then
  OnClick( this )
else if Key = 27 then
  Close( 0 )
else if Key = 37 then
  if ActiveSheet.HasProperty( "MainMenu" ) then
    HideSubMenu()
    Close( 1 )
  end if
else if Key = 38 then
  i=0
  prior = 0
  last = 0
  t = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d.Visible and d.Type = Type then
      if d = this then
        prior = t
      else
        t = d
      end if
      last = d
    end if
    i = i + 1
  wend
  if prior <> 0 then
    prior.Focused = true
  else
    last.Focused = true
  end if
else if Key = 39 then
  if Doc <> 0 then
    OnMouseEnter( Sender )
  else if ActiveSheet.HasProperty( "MainMenu" ) then
    Close( 2 )
  end if
else if Key = 40 then
  i=0
  first = 0
  next = 0
  t = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d.Visible and d.Type = Type then
      if d = this then
        t = d
      else if t <> 0 then
        next = d
        t = 0
      end if
      if first = 0 then
        first = d
      end if
    end if
    i = i + 1
  wend
  if next <> 0 then
    next.Focused = true
  else
    first.Focused = true
  end if
else if Line2.Alpha = 100 then
  s = '(' + chr( Key ) + ')'
  if At( s, Caption ) > 0 then
    OnClick( Sender )
  end if
end if
end function
private function OnLoad(Sender)
if Len( SubMenu ) > 0 then
  Sheet = SheetByName( SubMenu )
  if Sheet <> 0 then
    Line1.Visible = true
    Doc = Create( Handle, "", true, false )
    Doc.CopySheet( Sheet )
    Doc.DeleteSheet( Doc.Sheet1 )
    Doc.BorderStyle = 1
    Doc.ScrollBars = 0
    Doc.ActiveSheet.Visible = true
    Doc.SelectAll()
    Doc.RangeLeft = Doc.ActiveSheet.Selection.Left
    Doc.RangeTop = Doc.ActiveSheet.Selection.Top
    Doc.RangeRight = Doc.ActiveSheet.Selection.Right + 1
    Doc.RangeBottom = Doc.ActiveSheet.Selection.Bottom + 1
    Doc.ActiveSheet.Selection.Clear()
    Doc.ActiveSheet.SetPropertyValue( "MainMenu", Parent )
    OnLoadSubMenu( Sender, Doc.ActiveSheet )
  else
    Line1.Visible = false
  end if
else
  Line1.Visible = false
end if
end function
published function OnLoadSubMenu(Sender,ASheet)
end function
private function OnMouseEnter(Sender)
Focused = true
if Doc <> 0 and Line2.Alpha = 100 then
  extern int=GetSystemMetrics( int ) in User32.dll
  SM_CXSCREEN = 0
  SM_CYSCREEN = 1
  ScreenWidth = GetSystemMetrics( SM_CXSCREEN )
  ScreenHeight = GetSystemMetrics( SM_CYSCREEN )
  p = Point( Right, Top )
  ViewToClient( p )
  ClientToScreen( p )
  if p.x + Doc.RangeRight - Doc.RangeLeft > ScreenWidth then
    p.x = p.x - Width - Doc.RangeRight + Doc.RangeLeft + 4
  else
    p.x = p.x - 4
  end if
  if p.y + Doc.RangeBottom - Doc.RangeTop > ScreenHeight then
    p.y = p.y - Doc.RangeBottom + Doc.RangeTop + Height
  end if
  firstfocused = 0
  i = 0
  while i < Doc.ActiveSheet.UnitCount
    d = Doc.ActiveSheet.Units[i]
    if d.Type = Type then
      if d.Focused then
        firstfocused = 0
        break
      else if firstfocused = 0 then
        firstfocused = d
      end if
    end if
    i = i + 1
  wend
  if firstfocused <> 0 then
    firstfocused.Focused = true
  end if
  Doc.Popup( p.x, p.y )
end if
end function
private function OnMouseExit(Sender)
Focused = false
end function
private function OnResize(Sender)
Height = Rect1.Height
Rect1.SetBounds( Left, Top, Width, Rect1.Height )
Line1.Left = Rect1.Left + Rect1.Width - Line1.Width - 4
Text1.Width = Line1.Left - Text1.Left
Rect2.SetBounds( Left, Top, Width, Rect2.Height )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetCaption(AValue)
Text1.Text = AValue
Text1.AutoSize = true
if Text1.Right > Line1.Left then
  n = Text1.Left + Text1.Width - Line1.Left
  Line1.Left = Line1.Left + n
  Rect1.Width = Rect1.Width + n
  Refresh()
end if
Text1.AutoSize = false
end function
private function SetChecked(AValue)
FChecked = AValue
if FChecked then
  Line2.Picture = SystemParams.DefaultPath + "checkbox.bmp"
else
  Line2.Picture = 0
  if VarType( FPicture ) = 1 then
    Line2.Picture = 0
  else
    Line2.Picture = SystemParams.DefaultPath + FPicture
  end if
end if
end function
private function SetEnable(AValue)
if AValue then
  if Focused then
    Text1.FontColor = $8000000E
  else
    Text1.FontColor = $80000007
  end if
  Line2.Alpha = 100
else
  Text1.FontColor = $80000011
  Line2.Alpha = 20
end if
end function
private function SetFocused(AValue)
if AValue then
  Rect1.BackColor = $8000000D
  if Line2.Alpha = 100 then
    Text1.FontColor = $8000000E
  else
    Text1.FontColor = $80000011
  end if
  i = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if LCase( d.Type ) = "menuitem" then
      if d <> this then
        d.Focused = false
        d.HideSubMenu()
      end if
    end if
    i = i + 1
  wend
else
  Rect1.BackColor = $80000004
  if Line2.Alpha = 100 then
    Text1.FontColor = $80000007
  else
    Text1.FontColor = $80000011
  end if
end if
UpdateWindow()
end function
private function SetPicture(AValue)
FPicture = AValue
SetChecked( FChecked )
end function
private function SetSubMenu(AValue)
FSubMenu = AValue
if Doc <> 0 then
  Doc.Free()
  Doc = 0
end if
if IsLoaded() then
  OnLoad( this )
end if
end function
property submenu read FSubMenu write SetSubMenu
-->
</programe>
</sheet>
<sheet name="MainMenuItem" visible="false" submenu="">
<rect name="rect1" origin="148,123" bounds="72,107,126,127" backcolor="$8000000D" pattern="1"/>
<text name="Text1" origin="76,99.25" bounds="76,109,122,125" backcolor="$8000000F" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000012" textalign="4" text="File(F)"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
property Enable read GetEnable write SetEnable editor Bool
property Focused read GetFocused write SetFocused editor Bool
private function GetCaption()
return Text1.Text
end function
private function GetEnable()
return Enabled
end function
private function GetFocused()
return Text1.BackColor = $8000000D
end function
private function GetItems()
if Doc <> 0 then
  return Doc.ActiveSheet
else
  return 0
end if
end function
public function HideSubMenu()
if Doc <> 0 then
  Doc.Hide()
  i = 0
  while i < Doc.ActiveSheet.UnitCount
    d = Doc.ActiveSheet.Units[i]
    if UCase( d.Type ) = "MENUITEM" then
      d.HideSubMenu()
    end if
    i = i + 1
  wend
end if
end function
private function Initialize(Sender)
Doc=0
end function
property Items read GetItems
private function OnDestroy(Sender)
if Doc <> 0 then
  Doc.Free()
end if
end function
public function OnKeyDown(Sender,Key)
if Key = 37 then
  i=0
  prior = 0
  last = 0
  t = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d.Type = Type then
      if d.Enable then
        if d = this then
          prior = t
        else
          t = d
        end if
        last = d
      end if
    end if
    i = i + 1
  wend
  if prior <> 0 then
    prior.Focused = true
  else
    last.Focused = true
  end if
else if Key = 39 then
  i=0
  first = 0
  next = 0
  t = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d.Type = Type then
      if d.Enable then
        if d = this then
          t = d
        else if t <> 0 then
          next = d
          t = 0
        end if
        if first = 0 then
          first = d
        end if
      end if
    end if
    i = i + 1
  wend
  if next <> 0 then
    next.Focused = true
  else
    first.Focused = true
  end if
else if Key = 40 then
  if Doc <> 0 then
    PopDoc()
  end if
else
  s = '(' + chr( Key ) + ')'
  if At( s, Caption ) > 0 then
    PopDoc()
  end if
end if
end function
private function OnLButtonDown(Sender,X,Y)
Focused = true
PopDoc()
end function
private function OnLoad(Sender)
if Len( SubMenu ) > 0 then
  Doc = Create( Handle, SubMenu + '.tbl', true, false )
  Doc.ActiveSheet.SetPropertyValue( "MainMenu", Parent )
  OnLoadSubMenu( Sender, Doc.ActiveSheet )
end if
end function
published function OnLoadSubMenu(Sender,ASheet)
end function
private function OnMouseEnter(Sender)
i = 0
while i < Parent.UnitCount
  d = Parent.Units[i]
  if d <> this and d.Type = "MainMenuItem" then
    if d.Shown() then
      Focused = true
      PopDoc()
      return
    end if
  end if
  i = i + 1
wend
Focused = true
end function
private function OnMouseExit(Sender)
Focused = false
end function
private function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Height )
Text1.SetBounds( Left + 4, Top + 2, Width - 8, Height - 4 )
end function
public function PopDoc()
if ( Doc <> 0 ) then
  p = Point( Left, Bottom + 1 )
  ViewToClient( p )
  ClientToScreen( p )
  firstfocused = 0
  i = 0
  while i < Doc.ActiveSheet.UnitCount
    d = Doc.ActiveSheet.Units[i]
    if LCase( d.Type ) = "menuitem" then
      if d.Focused then
        firstfocused = 0
        break
      else if firstfocused = 0 then
        firstfocused = d
      end if
    end if
    i = i + 1
  wend
  if firstfocused <> 0 then
    firstfocused.Focused = true
  end if
  n = Doc.Popup( p.x, p.y )
  if n = 1 then
    OnKeyDown( this, 37 )
  else if n = 2 then
    OnKeyDown( this, 39 )
  else
    Focused = false
    if ActiveSheet.HasProperty( "CurSheet" ) then
      if ActiveSheet.CurSheet <> 0 then
        ActiveSheet.CurSheet.Owner.Focused = true
      end if
    end if
  end if
  if n = 1 or n = 2 then
    i = 0
    while i < ActiveSheet.UnitCount
      d = ActiveSheet.Units[i]
      if d.Type = "MainMenuItem" then
        if d.Focused then
          d.PopDoc()
          break
        end if
      end if
      i = i + 1
    wend
  end if
end if
end function
private function SetCaption(AValue)
Text1.Text = AValue
end function
private function SetEnable(AValue)
Enabled = AValue
if AValue then
  Text1.FontColor = $80000012
else
  Text1.FontColor = $80000011
end if
end function
private function SetFocused(AValue)
if AValue then
  rect1.Visible = true
  Text1.BackColor = $8000000D
  Text1.FontColor = $8000000E
  i = 0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d.Type = "MainMenuItem" then
      if d <> this then
        d.Focused = false
        d.HideSubMenu()
      end if
    end if
    i = i + 1
  wend
else
  rect1.Visible = false
  Text1.BackColor = $8000000F
  if Enabled then
    Text1.FontColor = $80000012
  else
    Text1.FontColor = $80000011
  end if
end if
UpdateWindow()
end function
public function Shown()
if Doc <> 0 then
  return Doc.IsShown()
end if
return false
end function
-->
</programe>
</sheet>
<sheet name="MenuPanel" visible="false">
<rect name="Rect1" origin="88,48" bounds="0,0,172,215" backcolor="$80000004" pattern="1"/>
<line name="Line1" origin="89,49" linecolor="$80000014">
<points>
1,214,6
1,1,2
171,1,2
</points>
</line>
<line name="Line2" origin="89,49" linecolor="$80000010">
<points>
1,214,6
171,214,2
171,1,2
</points>
</line>
<programe>
<!--
private function OnResize(Sender)
if Width < 3 then
  Width = 3
end if
if Height < 3 then
  height = 3
end if
Rect1.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
end function
-->
</programe>
</sheet>
<sheet name="Separator" visible="false">
<line name="Line3" origin="78.909091,0.545455" linecolor="$80000010" backcolor="$8000000A">
<points>
0,0,6
152,0,2
</points>
</line>
<line name="Line4" origin="78.909091,1.545455" linecolor="$80000014" backcolor="$8000000A">
<points>
0,1,6
152,1,2
</points>
</line>
</sheet>
</vg>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
男女视频一区二区| 韩国成人精品a∨在线观看| 一本到不卡精品视频在线观看| 18欧美乱大交hd1984| av中文字幕在线不卡| 国产精品国产三级国产普通话蜜臀 | 亚洲欧洲一区二区在线播放| 91浏览器入口在线观看| 免费成人av在线播放| 国产精品萝li| 久久先锋资源网| 欧美日韩国产首页| 99久久精品免费看| 精品在线播放免费| 日韩制服丝袜av| 最新久久zyz资源站| 久久色在线视频| 日韩一区二区影院| 欧美日韩国产经典色站一区二区三区| 九九九精品视频| 美女被吸乳得到大胸91| 亚洲一区二区三区视频在线| 国产精品免费丝袜| 国产午夜三级一区二区三| 日韩一区二区三免费高清| 欧美日韩精品一区二区三区| 欧美在线播放高清精品| 91麻豆国产自产在线观看| 国产91精品久久久久久久网曝门| 韩国理伦片一区二区三区在线播放| 午夜在线成人av| 日韩高清在线观看| 美女视频黄久久| 国产成人av福利| 国产成人精品亚洲777人妖 | 一区二区三区中文免费| 亚洲图片另类小说| 亚洲一区二区三区视频在线| 亚洲成人中文在线| 蜜桃一区二区三区四区| 国产suv一区二区三区88区| av午夜一区麻豆| 欧美日韩一区二区在线观看| 欧美一级视频精品观看| 国产亚洲欧美激情| 日韩福利视频网| 成人国产精品视频| 日韩一级黄色大片| 亚洲日本电影在线| 麻豆一区二区三区| 欧洲一区二区三区免费视频| 精品精品国产高清一毛片一天堂| 欧美国产一区二区在线观看| 亚洲第一综合色| 欧洲一区在线电影| 亚洲欧洲精品一区二区精品久久久| 亚洲成人手机在线| 色噜噜久久综合| 国产精品国产三级国产a| 激情亚洲综合在线| 91精品国产欧美一区二区18| 亚洲男人的天堂在线观看| 国产不卡在线视频| 久久久久久97三级| 国产不卡在线一区| 欧美激情中文不卡| 国产精品一卡二| 久久精品亚洲国产奇米99 | 国产真实乱对白精彩久久| 欧美日韩成人在线一区| 婷婷丁香久久五月婷婷| 91精品福利在线一区二区三区| 亚洲国产美国国产综合一区二区| 色88888久久久久久影院野外| 亚洲综合一二三区| 日韩三级视频在线观看| 久久91精品久久久久久秒播 | 日韩美女视频一区二区 | 日本高清视频一区二区| 亚洲自拍偷拍综合| 日韩女优毛片在线| 国产精品一二三四五| 一区免费观看视频| 欧美男人的天堂一二区| 国产一区二区三区在线观看精品 | 亚洲精品高清在线观看| 欧美喷水一区二区| 国产69精品久久久久毛片 | 自拍偷自拍亚洲精品播放| 欧美亚洲综合网| 国产99久久久国产精品免费看| 国产精品女同一区二区三区| 欧美一区日韩一区| 一本一道波多野结衣一区二区| 午夜精品福利在线| 久久九九久久九九| 色婷婷精品久久二区二区蜜臂av | 26uuu国产在线精品一区二区| 91色在线porny| 久久国产视频网| 日日夜夜免费精品| 一区二区三区**美女毛片| 国产亚洲成av人在线观看导航 | 国产人成一区二区三区影院| 欧美日韩国产美女| 欧美三级一区二区| 欧美性色黄大片手机版| 在线观看国产日韩| 在线影视一区二区三区| 99这里只有久久精品视频| 粉嫩欧美一区二区三区高清影视| 另类人妖一区二区av| 日本vs亚洲vs韩国一区三区二区| 亚洲精品国产精品乱码不99 | 日本亚洲一区二区| 男人的j进女人的j一区| 久久精品国产澳门| 国产一区999| 91麻豆免费看| 在线不卡免费欧美| 久久人人超碰精品| 国产精品伦理一区二区| 一级日本不卡的影视| 秋霞av亚洲一区二区三| 久久精品国产久精国产爱| 国产91露脸合集magnet| 色系网站成人免费| 日韩一级二级三级| 国产精品乱码妇女bbbb| 亚洲国产精品天堂| 国产成人啪午夜精品网站男同| 国产91对白在线观看九色| 欧美色偷偷大香| 久久久高清一区二区三区| 亚洲四区在线观看| 国内国产精品久久| 欧美性极品少妇| 国产精品毛片高清在线完整版| 亚洲已满18点击进入久久| 国产一区二区免费看| 欧美日韩不卡一区二区| 国产精品久久久久婷婷二区次| 午夜久久福利影院| 91麻豆自制传媒国产之光| 国产日韩v精品一区二区| 日本中文字幕不卡| 欧美美女视频在线观看| 亚洲男同1069视频| 99精品国产91久久久久久| 国产精品久久久久久久久晋中| 久久99国产精品免费| 欧美成人在线直播| 精品夜夜嗨av一区二区三区| 欧美xxxxxxxxx| 极品少妇xxxx精品少妇| 精品国产不卡一区二区三区| 精品影视av免费| 久久综合色8888| 成人毛片老司机大片| 国产精品成人免费在线| 欧美综合天天夜夜久久| 亚洲成a人在线观看| 欧美美女一区二区在线观看| 美美哒免费高清在线观看视频一区二区| 欧美日韩国产另类不卡| 久久精品国产99久久6| 欧美国产乱子伦| 欧美在线观看视频一区二区 | 欧美剧情电影在线观看完整版免费励志电影 | 美女网站在线免费欧美精品| 久久亚洲精精品中文字幕早川悠里| 国产一区欧美二区| 成人欧美一区二区三区| 欧美日韩精品一区二区三区| 久久成人综合网| 亚洲麻豆国产自偷在线| 337p粉嫩大胆色噜噜噜噜亚洲| 国产 日韩 欧美大片| 亚洲成av人片在线| 国产精品视频一区二区三区不卡| 不卡的av在线| 国产一区在线观看麻豆| 亚洲国产精品久久一线不卡| 国产亚洲精品aa午夜观看| 91麻豆精品国产91久久久使用方法 | 一区二区三区四区精品在线视频| 欧美一区二区三区在线观看 | 精品一区二区三区久久| 亚洲成人午夜影院| 亚洲午夜三级在线| 亚洲欧美激情视频在线观看一区二区三区| 欧美成人精品福利| 91麻豆精品久久久久蜜臀| 9191久久久久久久久久久| 国产69精品久久久久毛片| 国产精品77777| 丁香激情综合五月| 成人av电影在线观看| 成人av午夜影院| 99国产精品久久久|