readonly.gpr-ro

GM5621原代码

<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="bmp_colorinfo">
<BitmapColorInfo File="" Upgr="true">
<ClrState Name="Unselected"/>
<ClrState Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
</ClrState>
</BitmapColorInfo>
</Variable>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawBitmap( Obj.Colors.FileName );
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawBitmap">
<Function-Object Name="Draw" UID="{DBA57F9C-A094-4fd5-8F96-531453A3E836}"/>
</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="DrawBitmap">
<Function-Object Name="Unselect" UID="{4BE70201-174D-4f0d-9B62-148BF9D934E1}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadBitmap">
<Function-Object Name="Load" UID="{E57843A4-E224-4c63-AAAF-3D66E4439F82}"/>
</Action>
</Actions>
</Class>
<Class Name="ThreeColorBitmapButton" UID="{0079C554-950B-4e70-911C-F95A15CADCB2}" Desc="Three Color Bitmap Button" Group="ImageControls" Image="Bitmap Button.bmp" Virtual="false" Parentage="2" Base="{D16A5481-3CD8-437e-B697-CAA53BD21FCE}">
<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="bmp_colorinfo">
<BitmapColorInfo File="" Upgr="true">
<ClrState Name="Unselected"/>
<ClrState Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
</ClrState>
<ClrState Name="ColorState2"/>
</BitmapColorInfo>
</Variable>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawBitmap( Obj.Colors.FileName );
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawBitmap">
<Function-Object Name="Draw" UID="{DBA57F9C-A094-4fd5-8F96-531453A3E836}"/>
</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="SelectBitmapButton">
<Function-Object Name="Select" UID="{4C5EEC0B-CCEF-4f32-BA9F-2A4F12D7BFE2}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{05C3C85A-2A49-403c-A244-A3697FD8EB0C}" AutoCreationIntoParent="false" Alias="DrawBitmap">
<Function-Object Name="Unselect" UID="{4BE70201-174D-4f0d-9B62-148BF9D934E1}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadBitmap">
<Function-Object Name="Load" UID="{E57843A4-E224-4c63-AAAF-3D66E4439F82}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="Disable" UID="{40488161-A1B3-40de-B031-EF988F27F2F3}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="DrawBitmap">
<Function-Object Name="Enable" UID="{3B2FE5EF-5057-45e0-91E0-D348DB5C1DB3}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton" UID="{15E88473-46F4-4e0d-8C7C-4A20777CE0B0}" Desc="Slider Button" Group="SliderControls" Image="SliderButton.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="0x0"/>
</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="SliderCharSet1Bpp.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="{59BECDCA-33F8-430a-AAB5-916EF3CE3DBB}"/>
</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="DrawSlider">
<Function-Object Name="Unselect" UID="{66322429-78E1-40d5-A977-29EEF9947A0B}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{45EA689D-F94C-4e23-A4E6-2972CD118260}"/>
</Action>
</Actions>
</Class>
<Class Name="RectangleButton" UID="{14C3B720-7875-48ac-9505-6BEFB4B09CCD}" Desc="Rectangle Button" Group="FrameControls" Image="Rectangle.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="true"/>
</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>
<Variable Name="ColorSizeFixed" Type="byte" Value="1"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Colors" Type="colorinfo">
<ColorInfo>
<color_state Name="Unselected">
<Entries Background="0xFFFFFF"/>
</color_state>
<color_state Name="Selected">
<Flags>
<Flag Name="Selected" Value="true"/>
</Flags>
<Entries Background="0xFFFFFF"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect(ObjRect);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawRectangle">
<Function-Object Name="Draw" UID="{833A19FB-72E7-4428-821B-843D37C4E513}"/>
</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="DrawRectangle">
<Function-Object Name="Unselect" UID="{BD88BA5F-6C8E-4511-8823-422030A33E2E}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButton" UID="{AD1EB1D3-60F6-4075-A3AD-7A4BBA72412E}" Desc="Number Button" Group="TextControls" Image="LongValueButton.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="UsedGlyphs" Type="used_glyphs" Value="48,49,50,51,52,53,54,55,56,57,32,43,45,37"/>
</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="3"/>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect();
	DrawText(&quot;\u0030&quot;);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{EC201C84-3AE5-4221-8477-5F1797AEE941}" AutoCreationIntoParent="true" Alias="DrawLongValue">
<Function-Object Name="Draw" UID="{1D57B791-08E9-4f02-B5DA-F69E57A426AE}"/>
</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="DrawLongValue">
<Function-Object Name="Unselect" UID="{890ADCB7-BCF9-40dd-9B89-17168BCDCDCB}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButtonHex" UID="{B4861DAE-0528-4ba7-8B26-FF12F38D6F99}" Desc="Number Button" Group="TextControls" Image="LongValueButton.bmp" Virtual="false" Parentage="2" Base="{AD1EB1D3-60F6-4075-A3AD-7A4BBA72412E}">
<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=""/>