readonly.gpr-ro

GM5621原代码

<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="0x0"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF" Foreground="0x52FEF"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xFFFFFF" Foreground="0x0"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="VerticalSliderCharSet1Bpp.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()
{
	height = ObjRect.Height/Zoom;
	yEnd = ((height - CharY)/CharY) * CharY;
	var yMid = yEnd/2;

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

	DrawRect(ObjRect, Background, Background);
	DrawChar(1, 0, 0);
	for (i = CharY; i &lt; yMid; i += CharY)
		DrawChar(2, 0, i);
	for (; i &lt; yEnd; i += CharY)
		DrawChar(10, 0, i);
	DrawChar(0, 0, yEnd);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{1014493A-CC9C-4bb8-B82A-0EAEC3E485A0}"/>
</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="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{229B904C-D454-4caa-89BA-326D996347D4}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{17F96761-DE2D-4c1e-B2B9-35B3569F0EED}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton2Bpp" UID="{35AFD91F-11F5-4543-85D9-2AAC353ECDF5}" Desc="3D Vertical Slider Button (2bpp)" Group="SliderControls" Image="VerticalSliderButton2bpp.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="0xAAAAAA" Foreground1="0xFF" Foreground2="0x0"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xCECECE" Foreground="0x1B1B1B" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0x646464" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="VerticalSliderCharSet2Bpp.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()
{
	height = ObjRect.Height/Zoom;
	yEnd = ((height - CharY)/CharY) * CharY;
	var yMid = yEnd/2;

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

	DrawRect(ObjRect, Background, Background);
	DrawChar(1, 0, 0);
	for (i = CharY; i &lt; yMid; i += CharY)
		DrawChar(2, 0, i);
	for (; i &lt; yEnd; i += CharY)
		DrawChar(10, 0, i);
	DrawChar(0, 0, yEnd);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{B45951AB-BF8F-4eb5-8DF1-902C62CF1D44}"/>
</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="SelectVerticalSliderButton">
<Function-Object Name="Select" UID="{C5C1BCDE-0D68-4dc5-8920-7B2A03892C07}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{42A3A7FE-F50A-4603-9315-C96931651191}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton4Bpp" UID="{760A6C44-7F7F-4f5d-9664-791E634F221A}" Desc="3D Slider Button (4bpp)" Group="SliderControls" Image="SliderButton4bpp.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="0xCECECE" Foreground="0x20202" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0x616161" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="SliderCharSet4Bpp.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="{00D9D417-8652-4527-96C8-80E3582FFEDE}"/>
</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="{AA371A92-49C1-4523-B4D2-50E801B1D128}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawSlider">
<Function-Object Name="Unselect" UID="{58249C96-4E07-424e-9500-2099D339CFEB}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{4F5A54EC-3384-46ef-86DB-E076E8A4AC28}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton4Bpp" UID="{7B172625-A555-4123-AD92-4A18157C8AB9}" Desc="3D Vertical Slider Button (4bpp)" Group="SliderControls" Image="VerticalSliderButton4bpp.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="0xAAAAAA" Foreground1="0xFF" Foreground2="0x0"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xCECECE" Foreground="0x383838" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0x7B7B7B" Foreground1="0xE12111" Foreground2="0x51DEF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property Persist="true">
<Variable Name="ControlCharSet" Type="control_chars" Value="VerticalSliderCharSet4Bpp.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()
{
	height = ObjRect.Height/Zoom;
	yEnd = ((height - CharY)/CharY) * CharY;
	var yMid = yEnd/2;

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

	DrawRect(ObjRect, Background, Background);
	DrawChar(1, 0, 0);
	for (i = CharY; i &lt; yMid; i += CharY)
		DrawChar(2, 0, i);
	for (; i &lt; yEnd; i += CharY)
		DrawChar(10, 0, i);
	DrawChar(0, 0, yEnd);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{7C6DB39C-87DA-43ac-B01E-9C274EC0476E}"/>
</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="SelectVerticalSliderButton">
<Function-Object Name="Select" UID="{0B198F2C-B16C-4c5a-AA2F-A3409036D68F}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{6A467ED5-85CB-4797-80DE-2D1BB293B49E}"/>
</Action>
</Actions>
</Class>
<Class Name="StaticText" UID="{77122816-BF33-481d-A4D7-4FFFFB278B39}" Desc="Static Text" Group="TextControls" Image="Static Text.bmp" Virtual="false" Parentage="2" Base="{F924557F-A0B1-43ab-84B2-CD8509DCBB9D}">
<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=""/>