gis

一个不错的做图软件

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="SymbolBI" 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="C"/>
<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 = 67
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="SymbolBJ" 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="D"/>
<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 = 68
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="SymbolBK" 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="E"/>
<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 = 69
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="SymbolBL" 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="F"/>
<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 = 70
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="SymbolBM" 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.494611,-9,5.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="G"/>
<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 = 71
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="SymbolBN" 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.494611,-9,5.505389,9" locked="true" autosize="true" border="0" fontname="Wingdings" fontsize="12" text="H"/>
<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 = 72
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="SymbolBO" 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="I"/>
<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 = 73
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="SymbolBP" 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="J"/>
<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 = 74
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="SymbolBQ" 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="K"/>
<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 = 75
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="SymbolBR" 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="L"/>
<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 = 76
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="SymbolBS" 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="M"/>
<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 = 77
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="SymbolBT" 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"/>