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ÿ<NameStrnWindow1 ContInt paswStrnmoddStrn 3252131525 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 ØMethGrupXÚnameStrn DialogProc CompStrnVsblInt sorcGruptÛ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 srclStrn 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 )srclStrnelsesrclStrn3// We didn't handle this command, so do the default srclStrnreturn 0srclStrn 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 Ý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 æ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äô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 EndGInt ôCBhvGrup° SuprStrn PushButton HInsGrup| nameStrnAction CompStrnVsblInt sorcGrup4 EncoInt 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 = &h0040srclStrnNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt >VwPrGrupX ?NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt ?VwPrGrupX @NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt @EndGInt ;StrxGrupH AEncoInt nameStrn DLGTEMPLATE flagInt nameStrn DLGTEMPLATE CompStrnVsblInt sorcGrupÌ BEncoInt 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 BEndGInt AStrxGrupL CEncoInt nameStrnDLGITEMTEMPLATE flagInt nameStrnDLGITEMTEMPLATE CompStrnVsblInt sorcGrupÈ DEncoInt 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 DEndGInt CPadnPadnx********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupŒ EOTabGrup FContInt eSptInt ÈEndGInt FOTabGrupd GContInt XwÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt GOTabGrup4 HContInt XwÿAltEInt LSptInt  ciIDInt EndGInt HOTabGrup4 IContInt efÿAltEInt LSptInt  ciIDInt EndGInt ILsLcStrnWindow1.PushButton1.Action rEdtRect½|Î`EndGInt EPadnPadn0********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!