readonly.gpr-ro

LCD MONITOR源码,GENESIS GM5621

</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="0x0"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xFFFFFF" Foreground="0x8A8A8A"/>
</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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{B2D7396B-2E21-4ac7-BBFE-DBD5DFB61735}"/>
</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="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{FB285845-50D0-49b9-9633-09B925A1A809}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{EF7F24A1-BAEC-4bf5-B89C-AD608FBBBA26}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton2Bpp" UID="{A21F8754-669E-4c44-B77E-0083E09F1344}" Desc="3D Vertical Slider Button (2bpp)" Group="SliderControls" Image="VerticalSliderButton2bpp.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="0xE22111" Foreground2="0x51DEF"/>
</color_state>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0xB2B2B2" 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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{6B830A74-4401-412c-A2F0-A22B9C259182}"/>
</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="SelectVerticalSliderButton">
<Function-Object Name="Select" UID="{70543B2D-7DBF-452d-A0D4-164C8C12F423}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{ABB456E2-2972-49b8-B259-B9FB77BAAA01}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton4Bpp" UID="{7E108E73-1403-4cc9-9F6C-07C24351DA37}" Desc="3D Slider Button (4bpp)" Group="SliderControls" Image="SliderButton4bpp.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>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0x0" 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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawSlider">
<Function-Object Name="Draw" UID="{BBDB4263-D081-45c7-85CA-6DBFFB0B498C}"/>
</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="{41A1C91C-22AA-40d4-A40B-9C13DEAF2E0F}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawSlider">
<Function-Object Name="Unselect" UID="{E7DFD83B-DECE-4586-9975-5B6A9C50AB82}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadControlChars">
<Function-Object Name="Load" UID="{0D0052C6-8CCD-40e2-AD67-3DB04C996CDE}"/>
</Action>
</Actions>
</Class>
<Class Name="VerticalSliderButton4Bpp" UID="{5D6AA36E-7802-44da-9D61-74F3D6C4ADE5}" Desc="3D Vertical Slider Button (4bpp)" Group="SliderControls" Image="VerticalSliderButton4bpp.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>
<color_state Name="Disabled">
<Entries Background="0xCECECE" Foreground="0x494949" 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="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="DrawVerticalSlider">
<Function-Object Name="Draw" UID="{6025A24F-8050-4a46-A285-D0950ACD3762}"/>
</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="SelectVerticalSliderButton">
<Function-Object Name="Select" UID="{CCFC4AEA-B67E-4a6c-91C4-7FED435AEEA0}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="DrawVerticalSlider">
<Function-Object Name="Unselect" UID="{C6FDA218-5AB6-474d-A1C7-2104C5BC5969}"/>
</Action>
</Actions>
</Class>
<Class Name="StaticText" UID="{F268124E-0BFE-45a9-9D0B-BCF0BB73C79B}" Desc="Static Text" Group="TextControls" Image="Static Text.bmp" Virtual="false" Parentage="2" Base="{440A43DA-DE21-4397-925D-41A49F59EC33}">
<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">