readonly.gpr-ro

GM5621原代码

</Property>
<Property User="true" Persist="true">
<Variable Name="Rect" Type="rect">
<Rect XPos="0" YPos="0" XSize="1" YSize="1"/>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Colors" Type="colorinfo">
<ColorInfo>
<color_state Name="Unselected">
<Entries Background="0xFFFFFF" Foreground="0xB08913"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF" Foreground="0x52FEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="UsedGlyphs" Type="used_glyphs" Value="48,49,50,51,52,53,54,55,56,57,65,66,67,68,69,70,72,88"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Associate" Type="association" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Horizontal" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Vertical" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MinValue" Type="short" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MaxValue" Type="short" Value="255"/>
</Property>
<Property User="true">
<Variable Name="Font" Type="font" Value=""/>
</Property>
<Property User="true">
<Variable Name="MaxString" Type="byte" Value="6"/>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect();
	DrawText(&quot;\u0030&quot;);
}</DrawScript>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Format" Type="byte" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="NumPositions" Type="byte" Value="4"/>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawHex">
<Function-Object Name="Draw" UID="{2C18620C-1181-46af-AE4E-885D7347C296}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1342D3E3-DF9D-48bb-AECE-3105C98C352A}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="false" Alias="SelectHex">
<Function-Object Name="Select" UID="{4723A8A1-99FC-404a-ADD3-907870D9085C}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawHex">
<Function-Object Name="Unselect" UID="{A01DC5D1-BAE6-44dd-9317-5F1982CCAE61}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="SelectHex" UID="{98F9AACC-7456-4b39-A59F-9569BB4050A3}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButtonHexLowerCase" UID="{F4BEAC07-1AAF-4096-BF0D-3066C0AF09A3}" Desc="Number Button" Group="TextControls" Image="LongValueButton.bmp" Virtual="false" Parentage="2" Base="{B4861DAE-0528-4ba7-8B26-FF12F38D6F99}">
<Properties>
<Property>
<Variable Name="Configuration" Type="osd_object_flags">
<OsdObjectFlags MustBeTopmost="false" CanBeTopmost="false" IsState="true" GenerateControlData="true" QuickEditProperty="Colors" CanBeIntersected="false"/>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="TileId" Type="ctrl_tile_id" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Rect" Type="rect">
<Rect XPos="0" YPos="0" XSize="1" YSize="1"/>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Colors" Type="colorinfo">
<ColorInfo>
<color_state Name="Unselected">
<Entries Background="0xFFFFFF" Foreground="0xB08913"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF" Foreground="0x52FEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="UsedGlyphs" Type="used_glyphs" Value="48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102,104,120"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Associate" Type="association" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Horizontal" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Vertical" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MinValue" Type="short" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MaxValue" Type="short" Value="255"/>
</Property>
<Property User="true">
<Variable Name="Font" Type="font" Value=""/>
</Property>
<Property User="true">
<Variable Name="MaxString" Type="byte" Value="6"/>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect();
	DrawText(&quot;\u0030&quot;);
}</DrawScript>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Format" Type="byte" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="NumPositions" Type="byte" Value="4"/>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawHex">
<Function-Object Name="Draw" UID="{2C18620C-1181-46af-AE4E-885D7347C296}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1342D3E3-DF9D-48bb-AECE-3105C98C352A}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="false" Alias="SelectHex">
<Function-Object Name="Select" UID="{4723A8A1-99FC-404a-ADD3-907870D9085C}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawHex">
<Function-Object Name="Unselect" UID="{A01DC5D1-BAE6-44dd-9317-5F1982CCAE61}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="SelectHex" UID="{98F9AACC-7456-4b39-A59F-9569BB4050A3}"/>
</Action>
</Actions>
</Class>
<Class Name="NonPropLongValueButton" UID="{228BCC6D-FBB9-4e00-A9A0-951D5506521C}" Desc="Non Proportional Numerical Value Button" Group="TextControls" Image="SNonPropLongValue.bmp" Virtual="false" Parentage="2" Base="{EFC2738E-AD25-4b0a-84FD-EB0AD6F5E0BF}">
<Properties>
<Property>
<Variable Name="Configuration" Type="osd_object_flags">
<OsdObjectFlags MustBeTopmost="false" CanBeTopmost="false" IsState="true" GenerateControlData="true" QuickEditProperty="Colors" CanBeIntersected="false"/>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="TileId" Type="ctrl_tile_id" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Rect" Type="rect">
<Rect XPos="0" YPos="0" XSize="1" YSize="1"/>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Colors" Type="colorinfo">
<ColorInfo>
<color_state Name="Unselected">
<Entries Background="0xFFFFFF" Foreground="0xB08913"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF" Foreground="0x52FEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="LongValueCharSet1Bpp.gfn"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Associate" Type="association" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Horizontal" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Vertical" Type="alignment" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MinValue" Type="short" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="MaxValue" Type="short" Value="255"/>
</Property>
<Property User="true">
<Variable Name="MaxString" Type="byte" Value="3"/>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect();
	DrawText(&quot;\u0030&quot;, Obj.ControlCharSet);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawNonPropLongValue">
<Function-Object Name="Draw" UID="{3DABDCF7-478E-496c-9FCE-5AA0C13F5378}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1342D3E3-DF9D-48bb-AECE-3105C98C352A}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="Select" UID="{EC7D85D3-63FF-4a56-BC2D-D72956984A4C}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawNonPropLongValue">
<Function-Object Name="Unselect" UID="{031CB82D-C35E-4879-9F0A-E85F5E4200A6}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{082EC7ED-00CE-4fbe-8585-DCB1F9B93CD8}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton2Bpp" UID="{815E6AFA-F921-499c-AE76-5C7F85D1746A}" Desc="3D Slider Button (2bpp)" Group="SliderControls" Image="SliderButton2bpp.bmp" Virtual="false" Parentage="2" Base="{EFC2738E-AD25-4b0a-84FD-EB0AD6F5E0BF}">
<Properties>
<Property>
<Variable Name="Configuration" Type="osd_object_flags">
<OsdObjectFlags MustBeTopmost="false" CanBeTopmost="false" IsState="true" GenerateControlData="true" QuickEditProperty="Colors" CanBeIntersected="false"/>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="TileId" Type="ctrl_tile_id" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Rect" Type="rect">
<Rect XPos="0" YPos="0" XSize="1" YSize="16"/>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="Colors" Type="colorinfo">
<ColorInfo>
<color_state Name="Unselected">
<Entries Background="0xFFFFFF" Foreground="0xAAAAAA" Foreground1="0xFF" Foreground2="0x0"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF" Foreground="0xAAAAAA" Foreground1="0x200FF" Foreground2="0x0"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="SliderCharSet2Bpp.gfn"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Associate" Type="association" Value=""/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Direction" Type="byte" Value="0"/>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	var width = ObjRect.Width/Zoom;
	var xEnd = ((width - CharX)/CharX) * CharX;
	var xMid = xEnd/2;

	var str = Obj.ControlCharSet;
	SetSymbols(str, CharX, CharY);

	DrawRect(ObjRect, Background, Background);
	DrawChar(0, 0, 0);
	for (i = CharX; i &lt; xMid; i += CharX)
		DrawChar(10, i, 0);
	for (; i &lt; xEnd; i += CharX)
		DrawChar(2, i, 0);
	DrawChar(1, xEnd, 0);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawSlider">
<Function-Object Name="Draw" UID="{CBB15346-4C3F-483a-B479-B87A4D3872C5}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1342D3E3-DF9D-48bb-AECE-3105C98C352A}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="false" Alias="SelectSliderButton">
<Function-Object Name="Select" UID="{844C2436-295F-410f-B6B2-F73B2F3156AB}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawSlider">
<Function-Object Name="Unselect" UID="{11606D1E-50E6-42d6-933B-F7E155A21CA6}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{A4D213F4-1181-4062-A26A-6F8C8EBB1E67}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton" UID="{C4393791-355D-42b2-8464-63E0014E59EB}" Desc="Vertical Slider Button" Group="SliderControls" Image="VerticalSliderButton.bmp" Virtual="false" Parentage="2" Base="{EFC2738E-AD25-4b0a-84FD-EB0AD6F5E0BF}">
<Properties>
<Property>