RbBFBlokProjPSIVStrn2007.03 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt (7prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupSEndGInt SMacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj]TNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$TnameStrnMenuBar PValInt _QGEndGInt TVwBhGrupUEndGInt UCnstGrupVEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0WpltfInt langInt defnStrnCmd+Q EndGInt WCInsGrup0XpltfInt langInt defnStrnCtrl+Q EndGInt XEndGInt VCnstGrupYEncoInt 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(7lNameStrnWindow1 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 `MnuHGrupbnameStrn ActionPlay CompStrnVsblInt sorcGruphcEncoInt srclStrn Function ActionPlay() As BooleansrclStrnPlayFIlesrclStrn End FunctionEndGInt cEndGInt bMnuHGrupdnameStrn ActionRepeatCompStrnVsblInt sorcGruppeEncoInt srclStrn"Function ActionRepeat() As Boolean srclStrn RepeatFile srclStrn End FunctionEndGInt eEndGInt dMnuHGrupfnameStrnFileOpenCompStrnVsblInt sorcGruphgEncoInt srclStrnFunction FileOpen() As Boolean srclStrnOpenFilesrclStrn End FunctionEndGInt gEndGInt fMnuHGruphnameStrn ActionStop CompStrnVsblInt sorcGruptiEncoInt srclStrn Function ActionStop() As BooleansrclStrnStopFilesrclStrnsrclStrn End FunctionEndGInt iEndGInt hMethGrup|jnameStrnPlayFileCompStrnVsblInt sorcGrupkEncoInt 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 jMethGruplnameStrnOpenFileCompStrnVsblInt 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 lMethGrupnnameStrn PauseFile CompStrnVsblInt sorcGrupoEncoInt 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 sorcGrupqEncoInt 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 pMethGruprnameStrn 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 sorcGrupuEncoInt 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 PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt PDefGrup0nameStrn Resizeable PValStrnFalse EndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrupHnameStrnTitle EncoInt PValStrnAVPlayer by Barry TraverEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn 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 VwBhGrup8VwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGruppNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrup NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppdefnStrn 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 VwPrGrupxNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VwPrGrupxNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt VwPrGruptNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn 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 VwPrGrupNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGruphNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt VwPrGrupxNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt VwPrGrupPNameStrnPaused PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt VwPrGrupPNameStrnVolume PrGpStrnBehaviorPValStrn50 typeStrnInteger EndGInt VwPrGrup\NameStrnAlias PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt VwPrGrupTNameStrn MediaLength PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt VwPrGrupXNameStrn MediaPosition PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt VwPrGrupTNameStrn ValueChange PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt VwPrGrupLNameStrnY1 PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt VwPrGrupLNameStrnX1 PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt EndGInt CBhvGrupPSuprStrnTimer HInsGrup nameStrnAction CompStrnVsblInt sorcGrupEncoInt 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 CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrup0SuprStrnSlider HInsGrup nameStrn MouseDown CompStrnVsblInt sorcGrupEncoInt 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 HInsGrupnameStrnMouseUp CompStrnVsblInt sorcGrupEncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrnMsgBox "MouseUp"srclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrnSlider HInsGruphnameStrn MouseDown CompStrnVsblInt sorcGrupEncoInt 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 CtrlGrupPcclsStrnSlider nameStrnSlider PDefGrup8nameStrn 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 PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag 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 PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnSlider EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnSlider1 EndGInt CBixInt EndGInt CtrlGrupPcclsStrnSlider nameStrnSlider PDefGrup8nameStrn 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 PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag 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 PDefGrup8nameStrn ControlOrderEncoInt PValStrn1 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnSlider EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnSlider2 EndGInt CBixInt EndGInt CtrlGrupcclsStrnTimer nameStrnTimer PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup8nameStrn 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_QGNameStrnMenuBar1ContInt 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 (7LSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @EndGInt VOTabGrup4 WContInt (7AltEInt LSptInt ciIDInt EndGInt WOTabGrup XContInt _QGRSptInt EndGInt XLsLcStrnWindow1 Layout rEdtRect2EndGInt TPadnPadn`********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!