gis

一个不错的做图软件

private function Initialize(Sender)
FSymbol = 55
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="SymbolAX" 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="8"/>
<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 = 56
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="SymbolAY" 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="9"/>
<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 = 57
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="SymbolAZ" 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=":"/>
<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 = 58
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="SymbolBA" 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=";"/>
<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 = 59
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="SymbolBB" 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="&lt;"/>
<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 = 60
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="SymbolBC" 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="="/>
<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 = 61
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="SymbolBD" 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="&gt;"/>
<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 = 62
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="SymbolBE" 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="?"/>
<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 = 63
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="SymbolBF" 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="@"/>
<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 = 64
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="SymbolBG" 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="A"/>
<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 = 65
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="SymbolBH" 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="B"/>
<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 = 66
end function
private function SetCaption(AValue)
Text1.Text = AValue;Refresh()
end function
private function SetSymbol(AValue)
FSymbol = AValue
Text2.Text = Chr( FSymbol )
end function