RbBFBlokProjPSIVStrn2008.02 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt prTpInt DLanInt CLanInt DEncInt BflgInt IconGrup`EndGInt `MacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj?GNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnHInsGrupanameStrnOpenCompStrnVsblInt sorcGruptbEncoInt srclStrn Sub Open() srclStrnDim w as new winTypeMainsrclStrnw.Show srclStrnEnd Sub EndGInt bEndGInt aPDefGrup$cnameStrnMenuBar PValInt YvEndGInt cVwBhGrupdEndGInt dCnstGrupeEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0fpltfInt langInt defnStrnCmd+Q EndGInt fCInsGrup0gpltfInt langInt defnStrnCtrl+Q EndGInt gEndGInt eCnstGruphEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0ipltfInt langInt defnStrnE&xit EndGInt iEndGInt hCnstGrupjEncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0kpltfInt langInt defnStrn&Delete EndGInt kCInsGrup0lpltfInt langInt defnStrn&Delete EndGInt lEndGInt jPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewG$NameStrn winTypeMain ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup<mnameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt mPDefGrup0nnameStrnMenuBar PValStrn 1500971007 EndGInt nPDefGrup(onameStrn MacProcID PValInt EndGInt oPDefGrup4pnameStrn BalloonHelp EncoInt PValStrnEndGInt pPDefGrup0qnameStrnMinimizeButton PValStrnTrueEndGInt qPDefGrup0rnameStrnMaximizeButton PValStrnTrueEndGInt rPDefGrup,snameStrn LiveResize PValStrnTrueEndGInt sPDefGrup,tnameStrn Resizeable PValStrnTrueEndGInt tPDefGrup,unameStrn CloseButton PValStrnTrueEndGInt uPDefGrup0vnameStrnMenuBarVisible PValStrnTrueEndGInt vPDefGrup0wnameStrn FullScreen PValStrnFalse EndGInt wPDefGrup(xnameStrnVisible PValStrnTrueEndGInt xPDefGrup<ynameStrnTitle EncoInt PValStrn rb2007r5b3 EndGInt yPDefGrup$znameStrnBackdropPValStrnEndGInt zPDefGrup({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 ,EndGInt PDefGrup$nameStrnWidth PValInt ,EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGruptVwPrGrupDNameStrnNameVsblInt 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 VwPrGrupxNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean 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 VwPrGrup|NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt EndGInt CBhvGrup4SuprStrnCanvas HInsGrupXnameStrn DropObject CompStrnVsblInt sorcGrup EncoInt srclStrn2Sub DropObject(obj As DragItem, action As Integer) srclStrnif obj.FolderItemAvailable then srclStrn"MsgBox obj.FolderItem.AbsolutePath srclStrn*me.Backdrop = obj.FolderItem.OpenAsPicture srclStrnend if srclStrnEnd Sub EndGInt EndGInt HInsGrupnameStrnOpenCompStrnVsblInt sorcGruplEncoInt srclStrn Sub Open() srclStrn!me.AcceptFileDrop("image/x-bmp") srclStrnEnd Sub EndGInt EndGInt HInsGrupnameStrnPaint CompStrnVsblInt sorcGrupEncoInt srclStrnSub Paint(g As Graphics)srclStrn-g.DrawRect( 0, 0, g.Width - 1, g.Height - 1 ) srclStrnEnd Sub EndGInt EndGInt EndGInt CtrlGruphcclsStrnCanvas nameStrnCanvas PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup0nameStrnEraseBackground PValStrnTrueEndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup(nameStrn AcceptFocus PValStrnEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup,nameStrn LockBottom PValStrnTrueEndGInt PDefGrup,nameStrn LockRight PValStrnTrueEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnCanvas EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnCanvas1 EndGInt CBixInt EndGInt PadnPadnh************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuYv NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFTy>!?NameStrn FileTypesBMPContInt paswStrnfTypGrupxnameStrn image/x-bmp MacCStrnogletypeStrnBMPfdefnStrn .bmp;.dib flagInt NameStrn ImageXBmp EndGInt PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup8OTabGrupContInt eSptInt EndGInt OTabGrupXContInt GLSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @EndGInt OTabGrup@ContInt GAltEInt LSptInt EEstInt ciIDInt EndGInt LsLcStrnwinTypeMain Layout rEdtRect FEndGInt PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!