<?xml version="1.0" encoding="utf-8"?>
<vg version="723" gridsize="16" range="0,0,1024,708" caption="鐐瑰嚮鍥懼艦鍒囨崲鑳屾櫙" pattern="255" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="sheet1" bounds="15,16,549,472">
<roundrect name="roundrect1" origin="160,160" bounds="20,12,512,512" locked="true" Offset="10" pattern="1"/>
<element name="element1" origin="88,88" bounds="48,48,144,144" Picture="..\..\pictures\plaid002.jpg">
<rect name="rect1" origin="116,116" bounds="48,48,144,144" pattern="1" picture="..\..\pictures\plaid002.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element2" origin="200,88" bounds="160,48,256,144" Picture="..\..\pictures\plaid006.jpg">
<rect name="rect1" origin="228,116" bounds="160,48,256,144" pattern="1" picture="..\..\pictures\plaid006.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element3" origin="312,88" bounds="272,48,368,144" Picture="..\..\pictures\plaid015.jpg">
<rect name="rect1" origin="340,116" bounds="272,48,368,144" pattern="1" picture="..\..\pictures\plaid015.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element4" origin="424,88" bounds="384,48,480,144" Picture="..\..\pictures\plaid016.jpg">
<rect name="rect1" origin="452,116" bounds="384,48,480,144" pattern="1" picture="..\..\pictures\plaid016.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element5" origin="88,200" bounds="48,160,144,256" Picture="..\..\pictures\plaid019.jpg">
<rect name="rect1" origin="116,228" bounds="48,160,144,256" pattern="1" picture="..\..\pictures\plaid019.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element6" origin="200,200" bounds="160,160,256,256" Picture="..\..\pictures\plaid020.jpg">
<rect name="rect1" origin="228,228" bounds="160,160,256,256" pattern="1" picture="..\..\pictures\plaid020.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element7" origin="312,200" bounds="272,160,368,256" Picture="..\..\pictures\plaid025.jpg">
<rect name="rect1" origin="340,228" bounds="272,160,368,256" pattern="1" picture="..\..\pictures\plaid025.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element8" origin="424,200" bounds="384,160,480,256" Picture="..\..\pictures\plaid026.jpg">
<rect name="rect1" origin="452,228" bounds="384,160,480,256" pattern="1" picture="..\..\pictures\plaid026.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element9" origin="88,312" bounds="48,272,144,368" Picture="..\..\pictures\plaid027.jpg">
<rect name="rect1" origin="116,340" bounds="48,272,144,368" pattern="1" picture="..\..\pictures\plaid027.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element10" origin="200,312" bounds="160,272,256,368" Picture="..\..\pictures\plaid028.jpg">
<rect name="rect1" origin="228,340" bounds="160,272,256,368" pattern="1" picture="..\..\pictures\plaid028.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element11" origin="312,312" bounds="272,272,368,368" Picture="..\..\pictures\plaid029.jpg">
<rect name="rect1" origin="340,340" bounds="272,272,368,368" pattern="1" picture="..\..\pictures\plaid029.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element12" origin="424,312" bounds="384,272,480,368" Picture="..\..\pictures\plaid030.jpg">
<rect name="rect1" origin="452,340" bounds="384,272,480,368" pattern="1" picture="..\..\pictures\plaid030.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element13" origin="88,424" bounds="48,384,144,480" Picture="..\..\pictures\plaid032.jpg">
<rect name="rect1" origin="116,452" bounds="48,384,144,480" pattern="1" picture="..\..\pictures\plaid032.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element14" origin="200,424" bounds="160,384,256,480" Picture="..\..\pictures\plaid034.jpg">
<rect name="rect1" origin="228,452" bounds="160,384,256,480" pattern="1" picture="..\..\pictures\plaid034.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element15" origin="312,424" bounds="272,384,368,480" Picture="..\..\pictures\plaid035.jpg">
<rect name="rect1" origin="340,452" bounds="272,384,368,480" pattern="1" picture="..\..\pictures\plaid035.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<element name="element16" origin="424,424" bounds="384,384,480,480" Picture="..\..\pictures\plaid036.jpg">
<rect name="rect1" origin="452,452" bounds="384,384,480,480" pattern="1" picture="..\..\pictures\plaid036.jpg"/>
<programe>
<!--
private function Initialize(Sender)
FPicture = ""
end function
published function OnMouseEnter(Sender)
Sender.Alpha = 10
ox = Sender.Left + Sender.Width / 2
oy = Sender.Top + Sender.Height / 2
Sender.SetBounds( ox - 48, oy - 48, 96, 96 )
end function
published function OnMouseExit(Sender)
SetTimer( 50 )
end function
property Picture read FPicture write SetPicture editor Picture
private function SetPicture(AValue)
FPicture = AValue
Rect1.Picture = FPicture
end function
-->
</programe>
</element>
<programe>
<!--
private function Initialize(Sender)
CurUnit = 0
end function
private function OnClick(Sender)
if CurUnit <> 0 then
  Owner.Picture = CurUnit.Picture
end if
end function
private function OnLButtonDown(Sender,X,Y)
d = UnitAtCursor( roundrect1 )
if d <> 0 then
  CurUnit = d
  CurUnit.MoveBy( 4, 4 )
end if
end function
private function OnLButtonUp(Sender,X,Y)
if CurUnit <> 0 then
  CurUnit.MoveBy( -4, -4 )
  CurUnit = 0
end if
end function
private function OnTimer(Sender)
n = 0
i = 0
while i < UnitCount
  d = Units[i]
  if d.Alpha <> 100 then
    d.Alpha = d.Alpha + 30
    d.SetBounds( d.Left + 2, d.Top + 2, d.Width - 4, d.Height - 4 )
    n = n + 1
  end if
  i = i + 1
wend
if n = 0 then
  SetTimer( 0 )
end if
UpdateWindow()
end function
-->
</programe>
</sheet>
</vg>