+

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" backcolor="$E49C77" papervisible="false">
<sheet name="sheet1" visible="false">
<Item name="element1" origin="92,55.2" bounds="0,0,184,104" Caption="绯荤粺浠诲姟" Enable="true" Expand="true" Focused="false">
<element name="element1" origin="92,11.2" bounds="0,0,184,22" Expand="true">
<line name="line1" origin="72,10.4" linecolor="$FFFFFF" backcolor="$F7D3C7" frontcolor="$FFFFFF" pattern="242" points="0,22,6 0,6.285714,2 0,3.142857,4 3.142857,0,4 6.285714,0,4 177.714286,0,2 180.857143,0,4 184,3.142857,4 184,6.285714,4 184,22,3"/>
<element name="element1" origin="172.8,9.4" bounds="165.6,3,180,17.4">
<circle name="circle1" origin="172.8,9.4" bounds="165.6,3,180,17.4" backcolor="$FFFFE0" pattern="1"/>
<line name="line2" origin="172.8,7.2" linecolor="$A53C00" backcolor="$FFFFE0" points="169.92,9.66,6 172.8,6.78,2 175.68,9.66,2"/>
<line name="line3" origin="172.8,10.4" linecolor="$A53C00" backcolor="$FFFFE0" points="169.92,12.54,6 172.8,9.66,2 175.68,12.54,2"/>
</element>
<text name="text1" origin="18,13.2" bounds="16,3,72,19" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" fontstyle="1" fontcolor="$C65D21" textalign="1" text="绯荤粺浠诲姟"/>
<rect name="rect2" origin="92,12" bounds="4,3,180,19" visible="false" linetype="15" linewidth="0"/>
<element name="element2" origin="172.8,11" bounds="165.6,3,180,17.4" visible="false">
<circle name="circle1" origin="172.8,11" bounds="165.6,3,180,17.4" backcolor="$FFFFE0" pattern="1"/>
<line name="line2" origin="172.8,13.2" linecolor="$A53C00" backcolor="$FFFFE0" points="169.92,10.74,6 172.8,13.62,2 175.68,10.74,2"/>
<line name="line3" origin="172.8,10" linecolor="$A53C00" backcolor="$FFFFE0" points="169.92,7.86,6 172.8,10.74,2 175.68,7.86,2"/>
</element>
<programe>
<!--
property Expand read FExpand write SetExpand editor Bool
private function Initialize(Sender)
FExpand = true
end function
published function OnClick(Sender)
Expand = not Expand
end function
private function OnMouseEnter(Sender)
Text1.Alpha = 60
end function
private function OnMouseExit(Sender)
Text1.Alpha = 100
end function
private function OnResize(Sender)
Line1.SetBounds( Left, Top, Width, 22 )
Line1.X[3] = Line1.Left + ( Line1.Y[2] - Line1.Top )
Line1.X[4] = Line1.X[3] + ( Line1.Y[1] - Line1.Y[2] )
Line1.X[6] = Line1.Right - ( Line1.Y[2] - Line1.Top )
Line1.X[5] = Line1.X[6] - ( Line1.Y[1] - Line1.Y[2] )
Rect2.SetBounds( Left + 4, Top + 3, Width - 8, 16 )
Text1.SetBounds( Left + 16, Top + 3, Text1.Width, 16 )
Element1.MoveTo( Rect2.Right - Element1.Width, Rect2.Top )
Element2.MoveTo( Element1.Left, Element1.Top )
end function
private function SetExpand(AValue)
FExpand = AValue
Element1.Visible = FExpand
Element2.Visible = not FExpand
end function
-->
</programe>
</element>
<rect name="rect1" origin="72,70.4" bounds="0,22,184,104" linecolor="$FFFFFF" backcolor="$F7DFD6" pattern="1"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
property Enable read GetEnable write SetEnable editor Bool
property Expand read GetExpand write SetExpand editor Bool
property Focused read GetFocused write SetFocused editor Bool
private function GetCaption()
return Element1.UnitByName( 'Text1' ).Text
end function
private function GetEnable()
return Enabled
end function
private function GetExpand()
return Rect1.Visible
end function
private function GetFocused()
return Element1.UnitByName( "Rect2" ).Visible
end function
private function Initialize(Sender)
Items=Array( 5 )
end function
published function OnExpandChange(Sender)
if IsLoaded() then
  Element2.SlideBy( - Element2.Top + Sender.Bottom + 8 )
  Element3.SlideBy( - Element3.Top + Element2.Bottom + 8 )
end if
end function
private function OnLButtonDown(Sender,X,Y)
Focused = true
end function
private function OnLoad(Sender)
i = 0
while i < Parent.UnitCount
  d = Parent.Units[i]
  if d.Left >= Rect1.Left and d.Top >= Rect1.Top and d.Right < Rect1.Right and d.Bottom < Rect1.Bottom then
    Items.Add( d )
  end if
  i = i + 1
wend
end function
private function OnResize(Sender)
Element1.SetBounds( Left, Top, Width, Element1.Height )
Rect1.SetBounds( Left, Element1.Bottom, Width, Height - Element1.Height )
end function
private function SetCaption(AValue)
Element1.UnitByName( 'Text1' ).Text = AValue
end function
private function SetEnable(AValue)
Enabled = AValue
end function
private function SetExpand(AValue)
i = 0
while i < Items.Count
  d = Items[i]
  d.Visible = AValue
  i = i + 1
wend
Rect1.Visible = AValue
Rect1.Locked = not AValue
Refresh()
Element1.Expand = AValue
if IsLoaded() then
  OnExpandChange( this )
end if
end function
private function SetFocused(AValue)
Element1.UnitByName( "Rect2" ).Visible = AValue
if AValue then
  i=0
  while i < Parent.UnitCount
    d = Parent.Units[i]
    if d <> this and d.HasProperty( 'Focused' ) then
      if d.Focused then
        d.Focused = false
      end if
    end if
    i = i + 1
  wend
end if
end function
public function SlideBy(Y)
MoveBy( 0, Y )
i = 0
while i < Items.Count
  Items[i].MoveBy( 0, Y )
  i = i + 1
wend
end function
-->
</programe>
</Item>
<element name="element6" cursor="7" origin="66,82" bounds="16,72,116,92">
<rect name="rect5" origin="26,82" bounds="16,72,36,92" linetype="0" backcolor="$F7DFD6" picturedata="07TBitmap424D76060000000000003600000028000000140000001400000001002000000000004006000000000000000000000000000000000000F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600EED7CE00C5B2AA008D807B00827570008E817B00A1918B00B8A69F00D0BCB400E2CCC400EDD6CE00F4DCD300F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600C0ADA5008B5028006F3F280052342700473932004C4543005F5652007B6F6B009B8C8600B9A7A000D7C2BA00EFD8CF00F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600B19E9400AA4A0800DEA07700E6B18A00C37B4F0099522A0061362000443630004A444100645A570096888200DCC7BF00F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600AB988C00AD4E0E00E5BB9C00FFF4D800FFE7C600FFDBB200F1B78900CA804D009E55280050372A0074696500D0BCB400F5DDD400F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600A5938700B4551400E8C1A600FFECD400FFE3C400F2DCBF00FFE1BD00FFD18600FBAD5D00753E1D0071676400D2BEB600F5DDD400F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600A08D8100B85C1B00EDCDB600FFF3DB00CCD7CC004EAECA00FADBB100FFC25B00F5B67900663D25006C615D00BBA9A200E4CEC500F0D9D000F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD6009B867800BD611F00F6D9C500D8E7DF004DB0CD003DACD100BABDA70091917500D49A62008146180054484200766B6600A2928C00C4B1AA00DDC7BF00EDD6CE00F7DFD600F7DFD600F7DFD600F7DFD6009A837200C3672500F8E5D70073C4DC00BCD7D600A7D0D40077BACA00A89B8200EAB68000FAC99300C8844400935F3200715F52007469650096888200C9B5AE00F7DFD600F7DFD600F7DFD600F7DFD600957E6B00C76D2C00F6EAE300F7F6EE00FFF6E400D7E2D90074BFD100FFEBCA00E2AA7600C6874F00F3C69600F8C69200BC94670059557B00695F6E00AC9C9500F7DFD600F7DFD600F7DFD600F7DFD600987E6800CE773800F9F2F000FFFDF700FFF6EB00FCF2E30095CAD400F6EEDD00EAB89100663615008F715B00D69C6B00AB9C98003059D100494DA500CEBAB300F7DFD600F7DFD600F7DFD600F7DFD6009F806900CF7C4200FCFBFB00FFFFFF00FFF8F200FFF9EC00A8D3DC00CCE2E000F4BD930056372500877A7500DBC6BE00E9D0C5009D94BB00C5B2C400F0D9D000F7DFD600F7DFD600F7DFD600F7DFD600A0806600CF7E4700FAF8FA00FFFFFF00FFFFFF00FFFFFE00D4EAEC00C3E5E800F0B68A00563A2300897B7600DCC7BF00F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600AC8B6B00CA641000C3713B00D1946800DCB39700E8CEC100F7E9E000FFFEFB00E9BA9300583C25008A7C7700DCC7BF00F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600B19B7D00E4892E00D1670600CA5B0000C4530000BF510000C05D1000C87B4800CC7839005E422C0093858000DFC9C100F6DED500F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600B9A9A200A89C8900A9957800B3936A00BD8F5600CB8D4500D2833000D7731000D66B04006F574400B5A49D00E8D1C900F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F3DCD300EAD4CB00CFBDB600BDAFA800B1A59B009E918100A18D71009D8E8400E7D0C800F3DCD300F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600F7DFD600"/>
<text name="text2" origin="42,84" bounds="40,74,116,90" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" fontcolor="$C65D21" textalign="1" text="鏇存敼涓