readonly.gpr-ro

LCD MONITOR源码,GENESIS GM5621

</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawHex">
<Function-Object Name="Draw" UID="{8C0C902E-202A-4f32-B65D-A6F638CBDE0E}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1B3340AC-ADBD-4b40-A111-C583B2104FCD}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="false" Alias="SelectHex">
<Function-Object Name="Select" UID="{2000A1D0-7878-4d7c-99BE-612244EB0CBE}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawHex">
<Function-Object Name="Unselect" UID="{0948DD5D-258A-4689-964A-6A0B13EA1998}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="SelectHex" UID="{E19BD5A6-1EF0-4bec-A06E-F1DEFA50EEE2}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButtonHexLowerCase" UID="{5FE0C200-12C1-450a-9613-40AC6AAB2169}" Desc="Number Button" Group="TextControls" Image="LongValueButton.bmp" Virtual="false" Parentage="2" Base="{F876E749-8EF5-4748-A60A-ADD8037F978C}">
<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="16" YSize="16"/>
</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawHex">
<Function-Object Name="Draw" UID="{8C0C902E-202A-4f32-B65D-A6F638CBDE0E}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1B3340AC-ADBD-4b40-A111-C583B2104FCD}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="false" Alias="SelectHex">
<Function-Object Name="Select" UID="{2000A1D0-7878-4d7c-99BE-612244EB0CBE}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawHex">
<Function-Object Name="Unselect" UID="{0948DD5D-258A-4689-964A-6A0B13EA1998}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="SelectHex" UID="{E19BD5A6-1EF0-4bec-A06E-F1DEFA50EEE2}"/>
</Action>
</Actions>
</Class>
<Class Name="NonPropLongValueButton" UID="{C0DAEEA7-2553-492c-9CC6-87D87D0E8B80}" Desc="Non Proportional Numerical Value Button" Group="TextControls" Image="SNonPropLongValue.bmp" Virtual="false" Parentage="2" Base="{178B1D03-6D86-479e-8930-A18AE02D8D00}">
<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="16" YSize="16"/>
</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawNonPropLongValue">
<Function-Object Name="Draw" UID="{0D1DD91C-0812-4832-9BE4-BF1703CC49DB}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1B3340AC-ADBD-4b40-A111-C583B2104FCD}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="Select" UID="{97AC9988-6E2E-4b81-876D-ABE16F978EA4}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawNonPropLongValue">
<Function-Object Name="Unselect" UID="{C352F003-F2A1-4d0f-900D-AB89F135C4C6}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{58855E5E-6218-4cbe-9AE2-D75BDBECB0B2}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton2Bpp" UID="{62C62F78-B72C-4f54-9D70-B9D5330C1DA5}" Desc="3D Slider Button (2bpp)" Group="SliderControls" Image="SliderButton2bpp.bmp" Virtual="false" Parentage="2" Base="{178B1D03-6D86-479e-8930-A18AE02D8D00}">
<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="16" 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="0xCECECE" Foreground="0x0" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawSlider">
<Function-Object Name="Draw" UID="{46B68F36-A270-43df-BC84-532C3CB4CAB3}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{1B3340AC-ADBD-4b40-A111-C583B2104FCD}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="false" Alias="SelectSliderButton">
<Function-Object Name="Select" UID="{CE662A81-6CA7-4dce-B67A-032CD1192AB4}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawSlider">
<Function-Object Name="Unselect" UID="{3351A2C3-47A2-477c-B203-E6ECBA8644C0}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{F83FA7D5-0B4E-4571-AE69-B84185BB170A}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton" UID="{CCF21B23-B159-41e6-8A45-4C42EB420799}" Desc="Vertical Slider Button" Group="SliderControls" Image="VerticalSliderButton.bmp" Virtual="false" Parentage="2" Base="{178B1D03-6D86-479e-8930-A18AE02D8D00}">
<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=""/>