RFID编程 Delphi控件源码 操作系统开发

		<SUBVIEW id="plistview" left="82" top="plistviewTop();" width="262" height="157" titleBar="true" zIndex="1" horizontalAlignment="left" resizable="true" >
			<SUBVIEW id="plistrect" left="0" top="0" width="262" height="157" titleBar="true"  horizontalAlignment="left" backgroundImage="plist.bmp" transparencyColor="#FF00FF">
				<BUTTON id="btnplMode" left="plistview.width-38" top="3" width="23" height="12" image="playmode.bmp" transparencyColor="#FF00FF" upToolTip="模式" downToolTip="模式" horizontalAlignment="right" verticalAlignment="top" onClick="Setplaymode()"/>
				<BUTTON id="btnpldel" left="plistview.width-51" top="3" width="12" height="12" image="pldel.bmp" transparencyColor="#FF00FF" upToolTip="从播放列表删除" horizontalAlignment="right" verticalAlignment="top" onClick="DeletItemFromList();"/>
				<BUTTON id="btnplAdd" left="plistview.width-65" top="3" width="12" height="12" image="pladd.bmp" transparencyColor="#FF00FF" upToolTip="添加到播放列表" horizontalAlignment="right" verticalAlignment="top" onClick="OpenPlaylistDlg();"/>
				<PLAYLIST id="plist" left="4" top="16" width="plistview.width-8;" height="plpheight();" visible="false" horizontalAlignment="left" verticalAlignment="top" OnItemAdded="OnItemAdded(index)" OnItemDeleted="OnItemDeleted()" OnPlayingItemDeleted="OnPlayingItemDeleted();" SbArrowUpImage="vs_up.bmp" SbArrowDownImage="vs_down.bmp" thumbImage="vs_tb_ctr.bmp" thumbUpImage="vs_tb_up.bmp" thumbDownImage="vs_tb_down.bmp" backgroundColor="#0" transparencyColor="#FF00FF"  textNormalcolor="#F0F0F0" textselectedcolor="#E5E5E5" textplayingcolor="#CAE7FE" texterrorcolor="#2c2ccb" itembkgndnormalcolor="#201F1F" itembkgndselectedcolor="#2E2E2E" scrollbarbkcolor="#565555"/>
			</SUBVIEW>		

			<SUBVIEW id="ScrollTextbk2" left="5" top="plistview.height-30;" width="plistview.width-10" height="23" visible="false" verticalAlignment="bottom" horizontalAlignment="stretch">
				<SUBVIEW id="ScrollTextbk2_left" left="0" top="0" width="7" height="23" backgroundImage="scrollbk_left2.bmp" verticalAlignment="top" horizontalAlignment="right"/>
				<SUBVIEW id="ScrollTextbk2_mid" left="7" top="0" width="ScrollTextbk2.width-14" height="23" backgroundImage="scrollbk_mid2.bmp" verticalAlignment="top" horizontalAlignment="left">
			 	 	<SCROLLTEXT id="st2" left="0" top="0" width="ScrollTextbk2_mid.width" height="23" autosize="false" align="left" value="欢迎使用暴风影音" textbutton="true" verticalAlignment="top" horizontalAlignment="left" foregroundColor="#FFFFFF" fontType="宋体" fontSize="12" fontStyle="normal" RoundBorder="true" OnClick="OpenUrl(strUrl);" TextChange="OnTextChange2(adStr)"/>
				</SUBVIEW>
				<SUBVIEW id="ScrollTextbk2_right" left="ScrollTextbk2.width-7" top="0" width="7" height="23" backgroundImage="scrollbk_right2.bmp" verticalAlignment="top" horizontalAlignment="right"/>	
		  </SUBVIEW>
		</SUBVIEW>	
	</VIEW>	
	
	
	<VIEW id="eqview" left = "0" top= "0" width="342" height="158" minWidth="342" minHeight="158" resizable="false" backgroundImage="eq.bmp" titleBar="true" transparencyColor="#FF00FF" horizontalAlignment="left" verticalAlignment="top" onLoad="OnLoad();" onClose="OnClose();" scriptFile="eq.js;">
    <PLAYER OnVolumeChanged="OnVolumeChanged();" OnBalanceChanged="OnBalanceChanged();" OnAudioPluginSetup="OnAudioPluginSetup()"/>
		<TEXT id="txtbalance" left="17" top="27" align="left" value="声道平衡" tooltip="点击恢复立体声" textbutton="true" verticalAlignment="top" horizontalAlignment="left" foregroundColor="#FFFFFF" fontType="宋体" fontSize="12" fontStyle="normal" OnClick="player.settings.balance=0;"/>
	  <POPUP id="mnuEQSelect" visible="false" OnSelectedItemChange="OnSelectedItemChange();"/> 
		<BUTTON id="btnCloseEq" left="310" top="5" width="13" height="12" image="skin_btn_closeEQ.bmp" transparencyColor="#FF00FF" upToolTip="关闭" horizontalAlignment="right" verticalAlignment="top" onClick="CloseEqView();"/>
		<TEXT id="preset" left="45" top="137" width="62" height="15" autosize="false" align="left" value="预置" tooltip="当前均衡模式" textbutton="false" verticalAlignment="top" horizontalAlignment="left" foregroundColor="#0" fontType="宋体" fontSize="12" fontStyle="normal"/>
		
		<BUTTON id="btnpreset" left="120" top="136" width="15" height="15" zIndex="-1" image="eqpreset.bmp" upToolTip="预置音效" transparencyColor="#FF00FF" horizontalAlignment="right" verticalAlignment="top" onClick="EQSelectMenu();"/>
		<BUTTON id="btnreset" left="137" top="136" width="61" height="15" zIndex="-1" image="eqreset.bmp" upToolTip="重置音效" transparencyColor="#FF00FF" horizontalAlignment="right" verticalAlignment="top" onClick="EqReset();"/>
		<BUTTON id="btnload" left="203" top="136" width="61" height="15" zIndex="-1" image="eqload.bmp" upToolTip="加载音效" transparencyColor="#FF00FF" horizontalAlignment="right" verticalAlignment="top" onClick="loadEq();"/>
		<BUTTON id="btnsave" left="269" top="136" width="61" height="15" zIndex="-1" image="eqsave.bmp" upToolTip="保存音效" transparencyColor="#FF00FF" horizontalAlignment="right" verticalAlignment="top" onClick="saveEq();"/>
    
    <SLIDER id="eqsliderbalance" left="68" top="25" height="15" width="72" backgroundImage="horibkg.bmp" toolTip="声道平衡" foregroundImage="horifrg.bmp" thumbImage="skin_slider_progress.bmp" transparencyColor="#FF00FF" min="-100" max="100" direction="horizontal" horizontalAlignment="left" verticalAlignment="top" value="0" cursor="HAND" OnMouseMove="view.focusObjectID='eqsliderbalance';" OnMouseLeave="view.focusObjectID='';" OnValueChange="player.settings.balance=eqsliderbalance.currentPos;"/>
    <SLIDER id="eqvoiceboost" left="218" top="25" height="15" width="100" backgroundImage="horibkg.bmp" toolTip="音量放大" foregroundImage="horifrg.bmp" thumbImage="skin_slider_progress.bmp" transparencyColor="#FF00FF" min="100" max="1000" direction="horizontal" horizontalAlignment="left" verticalAlignment="top" value="100" cursor="HAND" OnMouseMove="view.focusObjectID='eqvoiceboost';" OnMouseLeave="view.focusObjectID='';" OnValueChange="eqvoiceboost.toolTip=eqvoiceboost.currentPos.toString()+'%';player.settings.volume=100;player.EqualizerSettings.boostVoice=eqvoiceboost.currentPos;"/>
   
    <SLIDER id="eqslider0"  left="20" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(0)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider0';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(0, eqslider0);"/>
    <SLIDER id="eqslider1"  left="51" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(1)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider1';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(1, eqslider1);"/>
    <SLIDER id="eqslider2"  left="82" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(2)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider2';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(2, eqslider2);"/>
    <SLIDER id="eqslider3"  left="113" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(3)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider3';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(3, eqslider3);"/>
    <SLIDER id="eqslider4"  left="144" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(4)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider4';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(4, eqslider4);"/>
    <SLIDER id="eqslider5"  left="175" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(5)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider5';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(5, eqslider5);"/>
    <SLIDER id="eqslider6"  left="206" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(6)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider6';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(6, eqslider6);"/>
    <SLIDER id="eqslider7"  left="237" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(7)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider7';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(7, eqslider7);"/>
    <SLIDER id="eqslider8"  left="268" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(8)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider8';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(8, eqslider8);"/>
    <SLIDER id="eqslider9"  left="299" top="51" height="62" width="15" toolTip="音量均衡" foregroundImage="vertfrg.bmp" thumbImage="vertthumb.bmp" transparencyColor="#FF00FF" min="-14" max="14" direction="vertical" horizontalAlignment="left" verticalAlignment="top" value="player.settings.gainLevel(9)/100" cursor="HAND" OnMouseMove="view.focusObjectID='eqslider9';" OnMouseLeave="view.focusObjectID='';" OnValueChange="OnEqValueChange(9, eqslider9);"/>
	</VIEW>	
</THEME>