tabbedosd26xx.gpr

GM5621原代码

</Action>
</Actions>
</Class>
<Class Name="BitmapButton" UID="{6BBC00CD-5643-491a-92F2-1ED5BFDB98CB}" Desc="Bitmap Button" Group="ImageControls" Image="Bitmap Button.bmp" Virtual="false" Parentage="1" 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="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="1" 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="OnOffBitmapButton" UID="{0BDBB34B-E0E5-40d1-8F19-92A910410A48}" Desc="On\Off 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"/>
<ClrState Name="ColorState3"/>
</BitmapColorInfo>
</Variable>
</Property>
<Property>
<Variable Name="DrawScript" Type="draw_script">
<DrawScript Languange="0">function main()
{
	DrawBitmap( Obj.Colors.FileName );
}</DrawScript>
</Variable>
</Property>
<Property User="true" Persist="true">
<Variable Name="ControlID" Type="byte" Value="0"/>
</Property>
<Property User="true" Persist="true">
<Variable Name="Accociate" Type="association" Value=""/>
</Property>
</Properties>
<Actions>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="UnselectOnOffBitmapButton">
<Function-Object Name="Draw" UID="{214F1F81-87D7-4a06-9F22-E70BB69D1D7D}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="true" Alias="EraseControl">
<Function-Object Name="Erase" UID="{DD3F1FB2-7E20-41df-83C0-48328D678B96}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="false" Alias="SelectOnOffBitmapButton">
<Function-Object Name="Select" UID="{FF6AFAD7-8C37-48ed-9F71-53B5717C49BE}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{E6EB2B03-9BD9-4ee4-9247-76111BAA9412}" AutoCreationIntoParent="false" Alias="UnselectOnOffBitmapButton">
<Function-Object Name="Unselect" UID="{B80BB8D8-403B-40ce-831B-D26BB94E33BD}"/>
</Action>
<Action Scope2="2" Priority="0" Event="{AA5113AC-F366-4faf-B0FC-3448DBE2FBF5}" AutoCreationIntoParent="true" Alias="LoadBitmap">
<Function-Object Name="Load" UID="{AD7E04A7-9811-429a-82B7-537F08E3FBD5}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="ResetOnOffBitmapButton">
<Function-Object Name="Reset" UID="{274C2B3B-24B7-4cf9-93B0-1E09B15CB039}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="SetOnOffBitmapButton">
<Function-Object Name="Set" UID="{4BF3D46D-0481-405f-8FCA-8CFAC7DB59C2}"/>
</Action>
<Action Scope2="2" Priority="0" AutoCreationIntoParent="false" Alias="ToggleOnOffBitmapButton">
<Function-Object Name="Toggle" UID="{FBBB04A5-61AC-4169-B2BD-151AF01F0018}"/>
</Action>
</Actions>
</Class>
<Class Name="SliderButton" UID="{C0A6341C-EC6A-417f-95CF-8A03970ABD85}" Desc="Slider Button" Group="SliderControls" Image="SliderButton.bmp" Virtual="false" Parentage="1" 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="1" 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"/>