RbBFBlokProjPSIVStrn2007.03 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt (ô7ÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrupSEndGInt SMacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadnˆ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj]T—ÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$TnameStrnMenuBar PValInt _QGÿEndGInt TVwBhGrupUEndGInt UCnstGrupäVEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0WpltfInt langInt defnStrnCmd+Q EndGInt WCInsGrup0XpltfInt langInt defnStrnCtrl+Q EndGInt XEndGInt VCnstGrupœYEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0ZpltfInt langInt defnStrnE&xit EndGInt ZEndGInt YCnstGrupä[EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0\pltfInt langInt defnStrn&Delete EndGInt \CInsGrup0]pltfInt langInt defnStrn&Delete EndGInt ]EndGInt [PadnPadnT************************************************************************************BlokpVew(ô7ÿlNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup^nameStrnOpenCompStrnVsblInt sorcGrupÄ_EncoInt srclStrn Sub Open() srclStrnSlider2.Minimum = 0 srclStrnSlider2.Maximum = 1000 srclStrn Volume = 1000 srclStrnSlider2.Value = 1000srclStrnsrclStrnStatic1.Text = "" srclStrnStatic2.Text = "" srclStrnStatic2.Visible = False srclStrn9Static2.Text = "Volume: " + Str(Volume) + " / " + "1000" srclStrnValueChange = False srclStrnTimer1.Enabled = False srclStrnsrclStrnEnd Sub EndGInt _EndGInt ^MnuHGrup¼`nameStrn ActionPause CompStrnVsblInt sorcGruppaEncoInt srclStrn!Function ActionPause() As Boolean srclStrn PauseFile srclStrn End FunctionEndGInt aEndGInt `MnuHGrup´bnameStrn ActionPlay CompStrnVsblInt sorcGruphcEncoInt srclStrn Function ActionPlay() As BooleansrclStrnPlayFIlesrclStrn End FunctionEndGInt cEndGInt bMnuHGrup¼dnameStrn ActionRepeatCompStrnVsblInt sorcGruppeEncoInt srclStrn"Function ActionRepeat() As Boolean srclStrn RepeatFile srclStrn End FunctionEndGInt eEndGInt dMnuHGrup°fnameStrnFileOpenCompStrnVsblInt sorcGruphgEncoInt srclStrnFunction FileOpen() As Boolean srclStrnOpenFilesrclStrn End FunctionEndGInt gEndGInt fMnuHGrupÀhnameStrn ActionStop CompStrnVsblInt sorcGruptiEncoInt srclStrn Function ActionStop() As BooleansrclStrnStopFilesrclStrnsrclStrn End FunctionEndGInt iEndGInt hMethGrup|jnameStrnPlayFileCompStrnVsblInt sorcGrupìkEncoInt srclStrnSub PlayFile() srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrnsrclStrnStatic2.Visible = True srclStrnsrclStrnIf Paused = False Then srclStrn0Ret = mciSendString ("seek med to 0", s, 255, 0)srclStrn&// MsgBox "Seek Error:: " + Str(Ret) srclStrnEnd If srclStrnsrclStrn+Ret = mciSendString ("play med", s, 255, 0) srclStrnPaused = False srclStrnsrclStrnTimer1.Enabled = True srclStrnsrclStrnEnd Sub EndGInt kEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt jMethGrup´lnameStrnOpenFileCompStrnVsblInt sorcGrup$mEncoInt srclStrnSub OpenFile() srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrnDim f as folderitem srclStrnf = getopenFolderItem("") srclStrnIf f = Nil Then ExitsrclStrn+Ret = mciSendString ("stop med", s, 255, 0) srclStrn%//MsgBox "Stop Error:: " + Str(Ret) srclStrn+Ret = mciSendString("close all", s, 255, 0) srclStrn(//MsgBox "Close All Error: " + Str(Ret)srclStrn?Alias = ConvertEncoding( f.ShellPath, Encodings.SystemDefault ) srclStrnDRet = mciSendString("open """ + alias + """ alias med ", s, 255, 0)srclStrn#//MsgBox "Open Error: " + Str(Ret) srclStrnsrclStrn4Ret = mciSendString ("status med length", s, 255, 0)srclStrnDim ml As StringsrclStrn ml = ReplaceAll (s, chr(0), "")srclStrn // MsgBox "Media Length: " + mlsrclStrnMediaLength = Val(ml) srclStrnsrclStrnSlider1.Maximum = MediaLength srclStrnSlider1.PageStep = 0srclStrnSlider1.Value = 0 srclStrn8Static1.Text = "Position: 0" + " / " + Str(MediaLength)srclStrnsrclStrnEnd Sub EndGInt mEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt lMethGrupˆnnameStrn PauseFile CompStrnVsblInt sorcGrupôoEncoInt srclStrnSub PauseFile() srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrn,Ret = mciSendString ("pause med", s, 255, 0)srclStrn&//MsgBox "Pause Error:: " + Str(Ret) srclStrn Paused = True srclStrnEnd Sub EndGInt oEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt nMethGruptpnameStrnStopFileCompStrnVsblInt sorcGrupäqEncoInt srclStrnSub StopFile() srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrn+Ret = mciSendString ("stop med", s, 255, 0) srclStrn%//MsgBox "Stop Error:: " + Str(Ret) srclStrnsrclStrnEnd Sub EndGInt qEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt pMethGrupÀrnameStrn RepeatFile CompStrnVsblInt sorcGrup,sEncoInt srclStrnSub RepeatFile()srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrn2Ret = mciSendString ("play med repeat", s, 255, 0) srclStrn'//MsgBox "Repeat Error:: " + Str(Ret) srclStrn Paused = True srclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt sEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt rMethGrup4tnameStrnUntitledCompStrnVsblInt sorcGrup¤uEncoInt srclStrnSub Untitled() srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm st As StringsrclStrnDim s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrn2Ret = mciSendString ("status med mode", s, 255, 0) srclStrn#MsgBox "Status Error: " + Str(Ret) srclStrn st = ReplaceAll (s, chr(0), "")srclStrnMsgBox "Status Length: " + st srclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt uEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt tPropGrupTvEncoInt declStrnPaused As Boolean flagInt CompStrnshrdInt EndGInt vPropGrupXwEncoInt declStrnVolume As Integer = 1000flagInt CompStrnshrdInt EndGInt wPropGrupPxEncoInt declStrnAlias As String flagInt CompStrnshrdInt EndGInt xPropGrupXyEncoInt declStrnMediaLength As Integer flagInt CompStrnshrdInt EndGInt yPropGrupXzEncoInt declStrnMediaPosition As IntegerflagInt CompStrnshrdInt EndGInt zPropGrupX{EncoInt declStrnValueChange As Boolean flagInt CompStrnshrdInt EndGInt {PropGrupP|EncoInt declStrn Y1 As Integer flagInt CompStrnshrdInt EndGInt |PropGrupP}EncoInt declStrn X1 As Integer flagInt CompStrnshrdInt EndGInt }PDefGrup0~nameStrnMenuBar PValStrn 1599162367 EndGInt ~PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4€nameStrn BalloonHelp EncoInt PValStrnEndGInt €PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4‚nameStrnMaximizeButton PValStrnFalse EndGInt ‚PDefGrup0ƒnameStrn LiveResize PValStrnFalse EndGInt ƒPDefGrup0„nameStrn Resizeable PValStrnFalse EndGInt „PDefGrup,…nameStrn CloseButton PValStrnTrueEndGInt …PDefGrup0†nameStrnMenuBarVisible PValStrnTrueEndGInt †PDefGrup0‡nameStrn FullScreen PValStrnFalse EndGInt ‡PDefGrup(ˆnameStrnVisible PValStrnTrueEndGInt ˆPDefGrupH‰nameStrnTitle EncoInt PValStrnAVPlayer by Barry TraverEndGInt ‰PDefGrup$ŠnameStrnBackdropPValStrnEndGInt ŠPDefGrup(‹nameStrn BackColor PValInt ÿÿÿEndGInt ‹PDefGrup0ŒnameStrn HasBackColorPValStrnFalse EndGInt ŒPDefGrup0nameStrn Composite PValStrnFalse EndGInt PDefGrup$ŽnameStrnFrame PValInt EndGInt ŽPDefGrup(nameStrn MaxHeight PValInt }EndGInt PDefGrup$nameStrnMaxWidthPValInt }EndGInt PDefGrup(‘nameStrn MinHeight PValInt @EndGInt ‘PDefGrup$’nameStrnMinWidthPValInt @EndGInt ’PDefGrup$“nameStrnHeight PValInt qEndGInt “PDefGrup$”nameStrnWidth PValInt ,EndGInt ”PDefGrup(•nameStrn Placement PValInt EndGInt •VwBhGrup8–VwPrGrupD—NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt —VwPrGrupL˜NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt ˜VwPrGrupH™NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt ™VwPrGrup0šNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”›defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt ›EndGInt šVwPrGruppœNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt œVwPrGruppNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppžNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt žVwPrGruptŸNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ŸVwPrGrupt NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt  VwPrGrupx¡NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt ¡VwPrGrup ¢NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp£defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt £EndGInt ¢VwPrGrup|¤NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ¤VwPrGrup|¥NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ¥VwPrGrup|¦NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt ¦VwPrGrupx§NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt §VwPrGrupx¨NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt ¨VwPrGrupt©NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ©VwPrGrup|ªNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ªVwPrGrup|«NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt «VwPrGrupx¬NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ¬VwPrGrup|­NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ­VwPrGrup|®NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ®VwPrGrup€¯NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ¯VwPrGrup|°NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt °VwPrGruph±NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt ±VwPrGrupx²NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt ²VwPrGrupx³NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt ³VwPrGrupP´NameStrnPaused PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ´VwPrGrupPµNameStrnVolume PrGpStrnBehaviorPValStrn50 typeStrnInteger EndGInt µVwPrGrup\¶NameStrnAlias PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ¶VwPrGrupT·NameStrn MediaLength PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ·VwPrGrupX¸NameStrn MediaPosition PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ¸VwPrGrupT¹NameStrn ValueChange PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ¹VwPrGrupLºNameStrnY1 PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ºVwPrGrupL»NameStrnX1 PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt »EndGInt –CBhvGrupP¼SuprStrnTimer HInsGrup ½nameStrnAction CompStrnVsblInt sorcGrupؾEncoInt srclStrn Sub Action()srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrn6Ret = mciSendString ("status med position", s, 255, 0) srclStrnDIm mp As StringsrclStrnmp = ReplaceAll (s, chr(0), "") srclStrnMediaPosition = Val(mp) srclStrnSlider1.Value = MediaPosition srclStrnLStatic1.Text = "Position: " + Str(MediaPosition) + " / " + Str(MediaLength)srclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt ¾EndGInt ½EndGInt ¼CBhvGrup¿SuprStrn StaticText EndGInt ¿CBhvGrupÀSuprStrn StaticText EndGInt ÀCBhvGrup0ÁSuprStrnSlider HInsGrup ÂnameStrn MouseDown CompStrnVsblInt sorcGrupÔÃEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrnDim NewMediaPosition as Integer srclStrnDIm np as stringsrclStrn%If Y <= Slider1.Height and Y>= 0 Then srclStrn4NewMediaPosition = (X / Slider1.WIdth) * MediaLengthsrclStrnnp = Str(NewMediaPosition) srclStrn4Ret = mciSendString ("seek med to " + np, s, 255, 0)srclStrn+Ret = mciSendString ("play med", s, 255, 0) srclStrn Slider1.Value = NewMediaPositionsrclStrn MediaPosition = NewMediaPositionsrclStrnsrclStrnLStatic1.Text = "Position: " + Str(MediaPosition) + " / " + Str(MediaLength)srclStrnsrclStrnsrclStrnr//WIndow1.Title = Str(Y) + " " + Str(Slider1.Height) + " " + Str(X) + " " + Str(Slider1.Height) + " " _ srclStrn///+ Str(MediaPosition) + " " + Str(MediaLength) srclStrnEnd If srclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrn//MsgBox "Going out"srclStrnsrclStrnsrclStrnsrclStrnExitsrclStrnsrclStrnsrclStrn End FunctionEndGInt ÃEndGInt ÂHInsGrupÈÄnameStrnMouseUp CompStrnVsblInt sorcGrup€ÅEncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrnMsgBox "MouseUp"srclStrnsrclStrnEnd Sub EndGInt ÅEndGInt ÄEndGInt ÁCBhvGrup˜ÆSuprStrnSlider HInsGruphÇnameStrn MouseDown CompStrnVsblInt sorcGrupÈEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnGDeclare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" _ srclStrnF(lpstrCommand As cString, lpstrReturnString As ptr, uReturnLength As _ srclStrn,integer, hwndCallback As integer) As integersrclStrnDIm s as New MemoryBlock (255 ) srclStrnDim Ret As Integer srclStrnDim NewMediaPosition as Integer srclStrnDIm np as stringsrclStrn Dim NewVolumePosition As IntegersrclStrnsrclStrn%If Y <= Slider2.Height and Y>= 0 Then srclStrn.NewVolumePosition = (X / Slider2.WIdth) * 1000 srclStrn,// MsgBo = "NVP": + Str(NewVolumePosition)srclStrnsrclStrnsrclStrnVolume = NewVolumePosition srclStrnnp = Str(NewVolumePosition) srclStrnsrclStrnDim cs, vs As StringsrclStrn-cs = "setaudio med volume to " + str(Volume) srclStrn //MsgBox cs srclStrn"Ret = mciSendString(cs, s, 255, 0) srclStrn%//MsgBox "Volume Error: " + Str(Ret) srclStrn9Static2.Text = "Volume: " + Str(Volume) + " / " + "1000" srclStrnSlider2.Value = Volume srclStrn+Ret = mciSendString ("play med", s, 255, 0) srclStrnEnd If srclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrn End FunctionEndGInt ÈEndGInt ÇEndGInt ÆCtrlGrupPÉcclsStrnSlider nameStrnSlider PDefGrup8ÊnameStrn InitialParent EncoInt PValStrnEndGInt ÊPDefGrup(ËnameStrn LiveScroll PValStrnEndGInt ËPDefGrup$ÌnameStrnPageStepPValInt EndGInt ÌPDefGrup$ÍnameStrnLineStepPValInt EndGInt ÍPDefGrup$ÎnameStrnMaximum PValInt dEndGInt ÎPDefGrup$ÏnameStrnValue PValInt EndGInt ÏPDefGrup$ÐnameStrnMinimum PValInt EndGInt ÐPDefGrup0ÑnameStrnAutoDeactivate PValStrnTrueEndGInt ÑPDefGrup0ÒnameStrnHelpTag EncoInt PValStrnEndGInt ÒPDefGrup(ÓnameStrnVisible PValStrnTrueEndGInt ÓPDefGrup(ÔnameStrnEnabled PValStrnTrueEndGInt ÔPDefGrup,ÕnameStrn TabPanelIndex PValInt EndGInt ÕPDefGrup(ÖnameStrn LockBottom PValStrnEndGInt ÖPDefGrup(×nameStrn LockRight PValStrnEndGInt ×PDefGrup$ØnameStrnLockTop PValStrnEndGInt ØPDefGrup$ÙnameStrnLockLeftPValStrnEndGInt ÙPDefGrup$ÚnameStrnHeight PValInt EndGInt ÚPDefGrup$ÛnameStrnWidth PValInt  EndGInt ÛPDefGrup ÜnameStrnTop PValInt *EndGInt ÜPDefGrup ÝnameStrnLeftPValInt EndGInt ÝPDefGrup8ÞnameStrn ControlOrderEncoInt PValStrn0 EndGInt ÞPDefGrup8ßnameStrnSuper EncoInt PValStrnSlider EndGInt ßPDefGrup$ànameStrnIndex PValInt €EndGInt àPDefGrup4ánameStrnNameEncoInt PValStrnSlider1 EndGInt áCBixInt EndGInt ÉCtrlGrupPâcclsStrnSlider nameStrnSlider PDefGrup8ãnameStrn InitialParent EncoInt PValStrnEndGInt ãPDefGrup(änameStrn LiveScroll PValStrnEndGInt äPDefGrup$ånameStrnPageStepPValInt EndGInt åPDefGrup$ænameStrnLineStepPValInt EndGInt æPDefGrup$çnameStrnMaximum PValInt dEndGInt çPDefGrup$ènameStrnValue PValInt EndGInt èPDefGrup$énameStrnMinimum PValInt EndGInt éPDefGrup0ênameStrnAutoDeactivate PValStrnTrueEndGInt êPDefGrup0ënameStrnHelpTag EncoInt PValStrnEndGInt ëPDefGrup(ìnameStrnVisible PValStrnTrueEndGInt ìPDefGrup(ínameStrnEnabled PValStrnTrueEndGInt íPDefGrup,înameStrn TabPanelIndex PValInt EndGInt îPDefGrup(ïnameStrn LockBottom PValStrnEndGInt ïPDefGrup(ðnameStrn LockRight PValStrnEndGInt ðPDefGrup$ñnameStrnLockTop PValStrnEndGInt ñPDefGrup$ònameStrnLockLeftPValStrnEndGInt òPDefGrup$ónameStrnHeight PValInt EndGInt óPDefGrup$ônameStrnWidth PValInt EndGInt ôPDefGrup õnameStrnTop PValInt YEndGInt õPDefGrup önameStrnLeftPValInt EndGInt öPDefGrup8÷nameStrn ControlOrderEncoInt PValStrn1 EndGInt ÷PDefGrup8ønameStrnSuper EncoInt PValStrnSlider EndGInt øPDefGrup$ùnameStrnIndex PValInt €EndGInt ùPDefGrup4únameStrnNameEncoInt PValStrnSlider2 EndGInt úCBixInt EndGInt âCtrlGrupØûcclsStrnTimer nameStrnTimer PDefGrup,ünameStrn TabPanelIndex PValInt EndGInt üPDefGrup8ýnameStrn InitialParent EncoInt PValStrnEndGInt ýPDefGrup$þnameStrnPeriod PValInt èEndGInt þPDefGrup ÿnameStrnModePValInt EndGInt ÿPDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt ³EndGInt PDefGrup8 nameStrn ControlOrderEncoInt PValStrn2 EndGInt PDefGrup8 nameStrnSuper EncoInt PValStrnTimer EndGInt PDefGrup$ nameStrnIndex PValInt €EndGInt PDefGrup4 nameStrnNameEncoInt PValStrnTimer1 EndGInt CBixInt EndGInt ûCtrlGrupÔ cclsStrn StaticText nameStrn StaticText PDefGrup8 nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$ nameStrnTextSizePValInt EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup( nameStrnVisible PValStrnTrueEndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup$ nameStrnLockTop PValStrnEndGInt PDefGrup$ nameStrnLockLeftPValStrnEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt õEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8 nameStrn ControlOrderEncoInt PValStrn3 EndGInt PDefGrup< !nameStrnSuper EncoInt PValStrn StaticText EndGInt !PDefGrup$ "nameStrnIndex PValInt €EndGInt "PDefGrup4 #nameStrnNameEncoInt PValStrnStatic1 EndGInt #CBixInt EndGInt CtrlGrupÔ $cclsStrn StaticText nameStrn StaticText PDefGrup8 %nameStrn InitialParent EncoInt PValStrnEndGInt %PDefGrup4 &nameStrn DataField EncoInt PValStrnEndGInt &PDefGrup4 'nameStrn DataSource EncoInt PValStrnEndGInt 'PDefGrup( (nameStrn Underline PValStrnEndGInt (PDefGrup$ )nameStrnItalic PValStrnEndGInt )PDefGrup *nameStrnBoldPValStrnEndGInt *PDefGrup$ +nameStrnTextSizePValInt EndGInt +PDefGrup8 ,nameStrnTextFontEncoInt PValStrnSystem EndGInt ,PDefGrup0 -nameStrnAutoDeactivate PValStrnTrueEndGInt -PDefGrup0 .nameStrnHelpTag EncoInt PValStrnEndGInt .PDefGrup( /nameStrnVisible PValStrnTrueEndGInt /PDefGrup( 0nameStrnEnabled PValStrnTrueEndGInt 0PDefGrup( 1nameStrn Multiline PValStrnEndGInt 1PDefGrup( 2nameStrn TextColor PValInt EndGInt 2PDefGrup( 3nameStrn TextAlign PValInt EndGInt 3PDefGrup4 4nameStrnTextEncoInt PValStrnUntitledEndGInt 4PDefGrup, 5nameStrn TabPanelIndex PValInt EndGInt 5PDefGrup( 6nameStrn LockBottom PValStrnEndGInt 6PDefGrup( 7nameStrn LockRight PValStrnEndGInt 7PDefGrup$ 8nameStrnLockTop PValStrnEndGInt 8PDefGrup$ 9nameStrnLockLeftPValStrnEndGInt 9PDefGrup$ :nameStrnHeight PValInt EndGInt :PDefGrup$ ;nameStrnWidth PValInt êEndGInt ;PDefGrup nameStrn ControlOrderEncoInt PValStrn4 EndGInt >PDefGrup< ?nameStrnSuper EncoInt PValStrn StaticText EndGInt ?PDefGrup$ @nameStrnIndex PValInt €EndGInt @PDefGrup4 AnameStrnNameEncoInt PValStrnStatic2 EndGInt ACBixInt EndGInt $PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu_QGÿNameStrnMenuBar1ContInt paswStrnMItmGrup° BspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup„ CspmuInt nameStrnFileOpentextStrnOpenindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt CMItmGrupŒ DspmuInt nameStrn FileCLose textStrnClose indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt DMItmGrupÐ EspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EEndGInt BMItmGrup\ FspmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬ GspmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt GMItmGrupŒ HspmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt HMItmGrup¨ IspmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt IMItmGrup¬ JspmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt JMItmGrup° KspmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt KMItmGrup” LspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt LMItmGrupŒ MspmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MMItmGrup¸ NspmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt NEndGInt FMItmGrup OspmuInt nameStrn ActionMenu textStrnAction indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupˆ PspmuInt nameStrn ActionPlay textStrnPlayindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt PMItmGrupŒ QspmuInt nameStrn ActionPause textStrnPause indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt QMItmGrupˆ RspmuInt nameStrn ActionStop textStrnStopindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt RMItmGrupŒ SspmuInt nameStrn ActionRepeattextStrnRepeat indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt SEndGInt OPadnPadn@****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup\ TOTabGrup UContInt eSptInt EndGInt UOTabGrupX VContInt (ô7ÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @EndGInt VOTabGrup4 WContInt (ô7ÿAltEInt LSptInt ¢ciIDInt EndGInt WOTabGrup XContInt _QGÿRSptInt ×EndGInt XLsLcStrnWindow1 Layout rEdtRect2¦EndGInt TPadnPadn`********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!