RbBFBlokProjPSIVStrn2007.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt XwÿprTpInt DLanInt CLanInt DEncInt BflgInt IconGrupïEndGInt ïMacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadnˆ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjpN7ÿNameStrnApp ContInt paswStrnmoddStrn 3252119563 bClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$ðnameStrnMenuBar PValInt tX÷ÿEndGInt ðVwBhGrupñEndGInt ñCnstGrupäòEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0ópltfInt langInt defnStrnCmd+Q EndGInt óCInsGrup0ôpltfInt langInt defnStrnCtrl+Q EndGInt ôEndGInt òCnstGrupœõEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0öpltfInt langInt defnStrnE&xit EndGInt öEndGInt õCnstGrupä÷EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0øpltfInt langInt defnStrn&Delete EndGInt øCInsGrup0ùpltfInt langInt defnStrn&Delete EndGInt ùEndGInt ÷PadnPadnH************************************************************************BlokpVewXwÿ8NameStrnWindow1 ContInt paswStrnmoddStrn 3252121722 bClsInt SuprStrnWindow bNtrInt CompStrnMethGrupúnameStrnAlign CompStrnVsblInt sorcGrupPûEncoInt srclStrn2Function Align(bs as Ptr, bytes as Integer) As Ptr srclStrnbytes = bytes \ 2 srclStrnsrclStrndim ul as UInt32 = UInt32( bs ) srclStrn ul = ul + 1 srclStrnul = ShiftRight( ul, bytes )srclStrnul = ShiftLeft( ul, bytes ) srclStrnsrclStrnreturn Ptr( ul )srclStrn End FunctionEndGInt ûEncoInt AlasStrnflagInt !shrdInt parmStrnbs as Ptr, bytes as Integer rsltStrnPtr EndGInt úMethGrup ünameStrn DialogProc CompStrnVsblInt sorcGrup(ýEncoInt srclStrnlShared Function DialogProc(hwnd as Integer, msg as Integer, wParam as Integer, lParam as Integer) As IntegersrclStrnConst WM_CLOSE = &h10 srclStrnConst WM_COMMAND = &h111srclStrnsrclStrnIDeclare Sub EndDialog Lib "User32" ( hwnd as Integer, result as Integer ) srclStrnsrclStrnselect case msg srclStrnsrclStrn case WM_CLOSE srclStrnEndDialog( hwnd, 0 )srclStrnsrclStrncase WM_COMMAND srclStrn7// Note that we *want* this to truncate to the low word srclStrndim command as Int16 = wParam srclStrnselect case command srclStrncase 500srclStrnEndDialog( hwnd, 1 )srclStrnsrclStrn end select srclStrnelsesrclStrnreturn 0srclStrn end select srclStrnsrclStrnreturn 1srclStrn End FunctionEndGInt ýEncoInt AlasStrnflagInt !shrdInt parmStrnEhwnd as Integer, msg as Integer, wParam as Integer, lParam as Integer rsltStrnInteger EndGInt üPDefGrup0þnameStrnMenuBar PValStrn 1951987711 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 PDefGrup8 nameStrnTitle EncoInt PValStrnUntitledEndGInt  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 ,EndGInt PDefGrup$nameStrnWidth PValInt ,EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGrupäVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”defnStrn 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 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|0NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 0VwPrGruph1NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt 1VwPrGrupx2NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt 2VwPrGrupx3NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt 3EndGInt CBhvGrup€4SuprStrn PushButton HInsGrupL5nameStrnAction CompStrnVsblInt sorcGrup6EncoInt srclStrn Sub Action()srclStrnZDeclare Function GlobalAlloc Lib "Kernel32" ( flags as Integer, size as UInt32 ) as UInt32 srclStrnDDeclare Function GlobalLock Lib "Kernel32" ( data as UInt32 ) as PtrsrclStrn:Declare Sub GlobalUnlock Lib "Kernel32" ( data as UInt32 ) srclStrn8Declare Sub GlobalFree Lib "Kernel32" ( data as UInt32 )srclStrnsrclStrn¬Declare Function MultiByteToWideChar Lib "Kernel32" ( cp as UInt32, flags as UInt32, str as CString, numChars as Integer, retStr as Ptr, retStrChars as Integer ) as IntegersrclStrnsrclStrnConst GMEM_ZEROINIT = &h0040srclStrnnameStrnAutoDeactivate PValStrnTrueEndGInt >PDefGrup0?nameStrnHelpTag EncoInt PValStrnEndGInt ?PDefGrup(@nameStrnVisible PValStrnTrueEndGInt @PDefGrup(AnameStrnEnabled PValStrnTrueEndGInt APDefGrup$BnameStrnCancel PValStrnEndGInt BPDefGrup$CnameStrnDefault PValStrnEndGInt CPDefGrup8DnameStrnCaption EncoInt PValStrnUntitledEndGInt DPDefGrup,EnameStrn TabPanelIndex PValInt EndGInt EPDefGrup(FnameStrn LockBottom PValStrnEndGInt FPDefGrup(GnameStrn LockRight PValStrnEndGInt GPDefGrup$HnameStrnLockTop PValStrnEndGInt HPDefGrup$InameStrnLockLeftPValStrnEndGInt IPDefGrup$JnameStrnHeight PValInt EndGInt JPDefGrup$KnameStrnWidth PValInt PEndGInt KPDefGrup LnameStrnTop PValInt ‹EndGInt LPDefGrup MnameStrnLeftPValInt nEndGInt MPDefGrup8NnameStrn ControlOrderEncoInt PValStrn0 EndGInt NPDefGrup<OnameStrnSuper EncoInt PValStrn PushButton EndGInt OPDefGrup$PnameStrnIndex PValInt €EndGInt PPDefGrup8QnameStrnNameEncoInt PValStrn PushButton1 EndGInt QCBixInt EndGInt 7PadnPadn ********************************BlokpMnutX÷ÿ NameStrnMenuBar1ContInt paswStrnmoddStrn 3252119563 MItmGruppRspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupÐSspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt SEndGInt RMItmGrup\TspmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬UspmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt UMItmGrupŒVspmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt VMItmGrup¨WspmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt WMItmGrup¬XspmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt XMItmGrup°YspmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt YMItmGrup”ZspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ZMItmGrupŒ[spmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt [MItmGrup¸\spmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt \EndGInt TPadnPadn”****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjefÿNameStrnStructs ContInt paswStrnmoddStrn 3252119563 bClsInt bNtrInt CompStrnVwBhGrup]VwPrGrupD^NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt ^VwPrGrup`_NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt _VwPrGrupH`NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt `VwPrGrupXaNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt aVwPrGrupXbNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt bEndGInt ]StrxGrupHcEncoInt nameStrn DLGTEMPLATE flagInt nameStrn DLGTEMPLATE CompStrnVsblInt sorcGrupÌdEncoInt srclStrnstyle as UInt32 srclStrnextendedStyle as UInt32 srclStrncdit as UInt16 srclStrn x as Int16 srclStrn y as Int16 srclStrn cx as Int16 srclStrn cy as Int16 EndGInt dEndGInt cStrxGrupLeEncoInt nameStrnDLGITEMTEMPLATE flagInt nameStrnDLGITEMTEMPLATE CompStrnVsblInt sorcGrupÈfEncoInt srclStrnstyle as UInt32 srclStrnextendedStyle as UInt32 srclStrn x as Int16 srclStrn y as Int16 srclStrn cx as Int16 srclStrn cy as Int16 srclStrn id as UInt16EndGInt fEndGInt ePadnPadnx********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupŒgOTabGruphContInt eSptInt ÈEndGInt hOTabGrupdiContInt XwÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt iOTabGrup4jContInt XwÿAltEInt LSptInt  ciIDInt EndGInt jOTabGrup4kContInt efÿAltEInt LSptInt  ciIDInt EndGInt kLsLcStrnWindow1.PushButton1.Action rEdtRect{Î`EndGInt gPadnPadn0********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!