gis

一个不错的做图软件

<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-5.994611,-9,6.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="N"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 78
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBU" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.994611,-9,7.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="O"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 79
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBV" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-8.494611,-9,8.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="P"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 80
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBW" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-7.494611,-9,7.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="Q"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 81
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBX" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-7.494611,-9,7.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="R"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 82
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBY" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-5.994611,-9,6.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="S"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 83
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolBZ" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.994611,-9,7.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="T"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 84
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolCA" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.494611,-9,6.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="U"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 85
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolCB" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.494611,-9,6.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="V"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 86
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolCC" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.494611,-9,6.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="W"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 87
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolCD" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-5.994611,-9,6.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="X"/>
<programe>
<!--
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function GetSymbolColor()
return Text2.FontColor
end function
private function Initialize(Sender)
FSymbol = 88
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function
private function SetSymbolColor(AValue)
Text2.FontColor = AValue
end function
property Symbol read FSymbol write SetSymbol
property SymbolColor read GetSymbolColor write SetSymbolColor editor Color
-->
</programe>
</sheet>
<sheet name="SymbolCE" selectmode="1" visible="false" protect="512">
<text name="text1" origin="12.530798,2" bounds="8.530798,-8,12.530798,8" locked="true" autosize="true" border="0" fontname="瀹嬩綋" fontsize="12" textalign="1"/>
<line name="line1" origin="0.005389,0">
<points>
0,0,6
</points>
</line>
<text name="text2" origin="14.005389,3.5" bounds="-6.994611,-9,7.005389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="Y"/>
<progra