readonly.gpr-ro

LCD MONITOR源码,GENESIS GM5621

</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawBitmap">
<Function-Object Name="Draw" UID="{CC10D8ED-5237-43a6-9993-AD732A383328}"/>
</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="DrawBitmap">
<Function-Object Name="Unselect" UID="{7BD19FE7-E5E1-4402-8301-923894733780}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadBitmap">
<Function-Object Name="Load" UID="{F222DC98-67BB-47d2-883F-960E0542B7EC}"/>
</Action>
</Actions>
</Class>
<Class Name="ThreeColorBitmapButton" UID="{D5D69446-F8F2-406f-BBA6-46BE2DC85320}" Desc="Three Color Bitmap Button" Group="ImageControls" Image="Bitmap Button.bmp" Virtual="false" Parentage="2" Base="{6BBC00CD-5643-491a-92F2-1ED5BFDB98CB}">
<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="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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawBitmap">
<Function-Object Name="Draw" UID="{CC10D8ED-5237-43a6-9993-AD732A383328}"/>
</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="true" Alias="SelectBitmapButton">
<Function-Object Name="Select" UID="{A2691544-7EB9-4e34-9001-89528C1AE778}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawBitmap">
<Function-Object Name="Unselect" UID="{7BD19FE7-E5E1-4402-8301-923894733780}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadBitmap">
<Function-Object Name="Load" UID="{F222DC98-67BB-47d2-883F-960E0542B7EC}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="">
<Function-Object Name="Disable" UID="{BD8D393E-489F-4232-A986-ABB654921A2C}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="DrawBitmap">
<Function-Object Name="Enable" UID="{4F0AE253-9764-4f7b-B348-64C33AFC76D4}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton" UID="{C0A6341C-EC6A-417f-95CF-8A03970ABD85}" Desc="Slider Button" Group="SliderControls" Image="SliderButton.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="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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawSlider">
<Function-Object Name="Draw" UID="{CCC45138-31E1-478e-81C2-83A21DEFDF6F}"/>
</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="DrawSlider">
<Function-Object Name="Unselect" UID="{B460E280-3627-4879-9E5D-E5A60FFAC62F}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{FD1B7C97-E5A7-44ba-B991-606E7083AE46}"/>
</Action>
</Actions>
</Class>
<Class Name="RectangleButton" UID="{4EBE6B06-2792-4e5e-B5EE-09EA1E2F1CFA}" Desc="Rectangle Button" Group="FrameControls" Image="Rectangle.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="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="16" YSize="16"/>
</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="0x0"/>
</color_state>
</ColorInfo>
</Variable>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawRect(ObjRect, 0);
}</DrawScript>
</Variable>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawRectangle">
<Function-Object Name="Draw" UID="{B0B10470-AB5A-4fc6-B327-B3524BB67F57}"/>
</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="DrawRectangle">
<Function-Object Name="Unselect" UID="{E236867C-3CF0-499d-90EF-7757913C4BDD}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButton" UID="{039557F5-430D-472a-BE73-43DD47735484}" Desc="Number Button" Group="TextControls" Image="LongValueButton.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="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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawLongValue">
<Function-Object Name="Draw" UID="{DFABAC13-BE32-44a6-BC2C-82587A3464E9}"/>
</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="DrawLongValue">
<Function-Object Name="Unselect" UID="{3F8FE5D5-EBD9-4933-99C4-71FC3B4DAEAD}"/>
</Action>
</Actions>
</Class>
<Class Name="LongValueButtonHex" UID="{F876E749-8EF5-4748-A60A-ADD8037F978C}" Desc="Number Button" Group="TextControls" Image="LongValueButton.bmp" Virtual="false" Parentage="2" Base="{039557F5-430D-472a-BE73-43DD47735484}">
<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"/>