RbBFBlokProjM5c* PSIVStrn5.5OPSpStrnACnmStrnAChpStrnACsvStrnVer1Strn0Ver2Strn0Ver3Strn1RelsStrnNnRlStrnRegnStrnSVerStrnLVerStrnIVerStrnDVewInt HNWprTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupEndGInt CPalGrupflagInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt EndGInt MacCStrnBMacStrnMy App (Classic)BCarStrnMy ApplicationBSizInt BMSzInt BSzSStrnBMSSStrnMDIcStrnBWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRect^PadnPadn************************************************************************************************************************************************************************************************************************************BlokpObj9M5c* NameStrnAppContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt bClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt CnstGrupEncoInt nameStrnkFileQuitShortcuttypeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+QEndGInt EndGInt CnstGrupEncoInt nameStrn kFileQuittypeInt defnStrnQuitflagInt CInsGrup0 pltfInt langInt defnStrnE&xitEndGInt CInsGrup0 pltfInt langInt defnStrnE&xitEndGInt EndGInt CnstGrup EncoInt nameStrn kEditCleartypeInt defnStrnClearflagInt CInsGrup0 pltfInt langInt defnStrn&DeleteEndGInt CInsGrup0 pltfInt langInt defnStrn&DeleteEndGInt EndGInt IntrStrnbApOInt PDefGrup0nameStrnMenuBarPValStrn 1752893439EndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewHNW0M5c* NameStrnWindow1ContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt lstHInt lstVInt PDefGrup4nameStrnNamePValStrnWindow1EncoInt EndGInt PDefGrup(nameStrnFramePValStrn0EndGInt PDefGrup0nameStrn CompositePValStrnFalseEndGInt PDefGrup0nameStrn HasBackColorPValStrnFalseEndGInt PDefGrup,nameStrn BackColorPValStrn0EndGInt PDefGrup(nameStrnBackdropPValStrn0EndGInt PDefGrup<nameStrnTitlePValStrn Proxy TesterEncoInt EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup0nameStrn FullScreenPValStrnFalseEndGInt PDefGrup0nameStrnMenuBarVisiblePValStrnTrueEndGInt PDefGrup(nameStrnCloseBoxPValStrnTrueEndGInt PDefGrup(nameStrnGrowIconPValStrnTrueEndGInt PDefGrup0nameStrn LiveResizePValStrnFalseEndGInt PDefGrup(nameStrnZoomIconPValStrnTrueEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup, nameStrn MacProcIDPValStrn0EndGInt PDefGrup0!nameStrnMenuBarPValStrn 1752893439EndGInt !PDefGrup,"nameStrn PlacementPValStrn0EndGInt "PDefGrup(#nameStrnWidthPValStrn458EndGInt #PDefGrup($nameStrnHeightPValStrn300EndGInt $PDefGrup(%nameStrnMinWidthPValStrn64EndGInt %PDefGrup,&nameStrn MinHeightPValStrn64EndGInt &PDefGrup,'nameStrnMaxWidthPValStrn32000EndGInt 'PDefGrup0(nameStrn MaxHeightPValStrn32000EndGInt (FDefGrup)NameStrnWindow1SizeInt SuprStrnWindowbNtrInt PropGrup*EncoInt declStrnmSelectedPicture As PictureflagInt sorcGrupt+stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnmSelectedPicture As PicturentlnStrnEndGInt +EndGInt *PropGrup,EncoInt declStrn mPictureList(-1) As PictureProxyflagInt sorcGrupx-stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn mPictureList(-1) As PictureProxyntlnStrnEndGInt -EndGInt ,EndGInt )CBhvGrup.NameStrnSizeInt tSuprStrnCanvasbNtrInt HInsGrup/EncoInt nameStrnPaintsorcGrup0stsrInt stscInt ndsrInt ndscInt EncoInt srclStrnSub Paint(g As Graphics)srclStrnA// If there's a picture to show, then let's draw it (scaled down)srclStrnif mSelectedPicture <> nil thensrclStrnqg.DrawPicture( mSelectedPicture, 0, 0, g.Width, g.Height, 0, 0, mSelectedPicture.Width, mSelectedPicture.Height )srclStrnend ifsrclStrnEnd SubEndGInt 0EndGInt /EndGInt .CBhvGrup1NameStrnSizeInt SuprStrnListboxbNtrInt HInsGrup2EncoInt nameStrnChangesorcGrupT3stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Change()srclStrnif me.ListIndex = -1 thensrclStrnmSelectedPicture = nilsrclStrnreturnsrclStrnend ifsrclStrnsrclStrn7mSelectedPicture = mPictureList( me.ListIndex ).PicturesrclStrnCanvas1.Refresh( false )srclStrnEnd SubEndGInt 3EndGInt 2EndGInt 1CBhvGrup4NameStrnSizeInt SuprStrn PushButtonbNtrInt HInsGrup05EncoInt nameStrnActionsorcGrup6stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrn%// Remove everything from our listboxsrclStrnListBox1.DeleteAllRowssrclStrnRedim mPictureList( -1 )srclStrnsrclStrn0// Pick the folder we want to list pictures fromsrclStrndim f as FolderItemsrclStrnf = SelectFoldersrclStrnsrclStrn&// If there's no folder, then bail outsrclStrnif f = nil then returnsrclStrnsrclStrn4// Loop over all the files looking for ones that aresrclStrn+// pictures. When we find one, make a new srclStrn// proxy object for itsrclStrndim i, count as IntegersrclStrndim extension as StringsrclStrndim item as FolderItemsrclStrnsrclStrncount = f.CountsrclStrnfor i = 1 to countsrclStrn// Get the itemsrclStrnitem = f.Item( i )srclStrnsrclStrn// Get the extensionsrclStrnEextension = NthField( item.Name, ".", CountFields( item.Name, "." ) )srclStrnsrclStrn4// We're cheating and only care about two file typessrclStrn.if extension = "bmp" or extension = "jpg" thensrclStrn// Add to our picture listsrclStrn/mPictureList.Append( new PictureProxy( item ) )srclStrnsrclStrn// Add to our listboxsrclStrn#ListBox1.AddRow( item.DisplayName )srclStrnsrclStrn // Add the proxy to the cell tagsrclStrnRListBox1.CellTag( ListBox1.LastIndex, 0 ) = mPictureList( UBound( mPictureList ) )srclStrnend ifsrclStrnnext isrclStrnEnd SubEndGInt 6EndGInt 5EndGInt 4CtrlGrup 7cclsStrnListBoxnameStrnListBoxPDefGrup48nameStrnNamePValStrnListBox1EncoInt EndGInt 8PDefGrup09nameStrnIndexPValStrn -2147483648EndGInt 9PDefGrup0:nameStrn TabPanelIndexPValStrn0EndGInt :PDefGrup(;nameStrnVisiblePValStrnTrueEndGInt ;PDefGrup$nameStrnWidthPValStrn146EndGInt >PDefGrup(?nameStrnHeightPValStrn234EndGInt ?PDefGrup,@nameStrn InitialParentPValStrnEndGInt @PDefGrup$AnameStrnHelpTagPValStrnEndGInt APDefGrup(BnameStrn BalloonHelpPValStrnEndGInt BPDefGrup0CnameStrnDisabledBalloonHelpPValStrnEndGInt CPDefGrup0DnameStrnAutoDeactivatePValStrnTrueEndGInt DPDefGrup,EnameStrnLockLeftPValStrnFalseEndGInt EPDefGrup,FnameStrnLockTopPValStrnFalseEndGInt FPDefGrup0GnameStrn LockRightPValStrnFalseEndGInt GPDefGrup0HnameStrn LockBottomPValStrnFalseEndGInt HPDefGrup8InameStrnTextFontPValStrnSystemEncoInt EndGInt IPDefGrup(JnameStrnTextSizePValStrn0EndGInt JPDefGrup(KnameStrnBoldPValStrnFalseEndGInt KPDefGrup,LnameStrnItalicPValStrnFalseEndGInt LPDefGrup0MnameStrn UnderlinePValStrnFalseEndGInt MPDefGrup(NnameStrnEnabledPValStrnTrueEndGInt NPDefGrup,OnameStrn ColumnCountPValStrn1EndGInt OPDefGrup(PnameStrn ColumnWidthsPValStrnEndGInt PPDefGrup0QnameStrn HasHeadingPValStrnFalseEndGInt QPDefGrup,RnameStrn UseFocusRingPValStrnTrueEndGInt RPDefGrup(SnameStrn InitialValuePValStrnEndGInt SPDefGrup0TnameStrn HierarchicalPValStrnFalseEndGInt TPDefGrup0UnameStrn EnableDragPValStrnFalseEndGInt UPDefGrup8VnameStrnEnableDragReorderPValStrnFalseEndGInt VPDefGrup0WnameStrn SelectionTypePValStrn0EndGInt WPDefGrup,XnameStrn HeadingIndexPValStrn-1EndGInt XPDefGrup8YnameStrnScrollBarHorizontalPValStrnFalseEndGInt YPDefGrup0ZnameStrnScrollPositionXPValStrn0EndGInt ZPDefGrup4[nameStrnScrollBarVerticalPValStrnTrueEndGInt [PDefGrup0\nameStrnScrollPositionPValStrn0EndGInt \PDefGrup(]nameStrn DataSourcePValStrnEndGInt ]PDefGrup(^nameStrn DataFieldPValStrnEndGInt ^PDefGrup4_nameStrnGridLinesHorizontalPValStrn0EndGInt _PDefGrup4`nameStrnGridLinesVerticalPValStrn0EndGInt `PDefGrup0anameStrnDefaultRowHeightPValStrn-1EndGInt aPDefGrup4bnameStrnColumnsResizablePValStrnFalseEndGInt bCBixInt EndGInt 7CtrlGrup4ccclsStrn PushButtonnameStrn PushButtonPDefGrup8dnameStrnNamePValStrn PushButton1EncoInt EndGInt dPDefGrup0enameStrnIndexPValStrn -2147483648EndGInt ePDefGrup0fnameStrn TabPanelIndexPValStrn0EndGInt fPDefGrup(gnameStrnVisiblePValStrnTrueEndGInt gPDefGrup$hnameStrnLeftPValStrn53EndGInt hPDefGrup$inameStrnTopPValStrn260EndGInt iPDefGrup(jnameStrnWidthPValStrn80EndGInt jPDefGrup(knameStrnHeightPValStrn20EndGInt kPDefGrup,lnameStrn InitialParentPValStrnEndGInt lPDefGrup$mnameStrnHelpTagPValStrnEndGInt mPDefGrup(nnameStrn BalloonHelpPValStrnEndGInt nPDefGrup0onameStrnDisabledBalloonHelpPValStrnEndGInt oPDefGrup0pnameStrnAutoDeactivatePValStrnTrueEndGInt pPDefGrup,qnameStrnLockLeftPValStrnFalseEndGInt qPDefGrup,rnameStrnLockTopPValStrnFalseEndGInt rPDefGrup0snameStrn LockRightPValStrnFalseEndGInt sPDefGrup0tnameStrn LockBottomPValStrnFalseEndGInt tPDefGrup8unameStrnTextFontPValStrnSystemEncoInt EndGInt uPDefGrup(vnameStrnTextSizePValStrn0EndGInt vPDefGrup(wnameStrnBoldPValStrnFalseEndGInt wPDefGrup,xnameStrnItalicPValStrnFalseEndGInt xPDefGrup0ynameStrn UnderlinePValStrnFalseEndGInt yPDefGrup8znameStrnCaptionPValStrn&SelectEncoInt EndGInt zPDefGrup,{nameStrnDefaultPValStrnFalseEndGInt {PDefGrup,|nameStrnCancelPValStrnFalseEndGInt |PDefGrup(}nameStrnEnabledPValStrnTrueEndGInt }CBixInt EndGInt cCtrlGrup~cclsStrnCanvasnameStrnCanvasPDefGrup4nameStrnNamePValStrnCanvas1EncoInt EndGInt PDefGrup0nameStrnIndexPValStrn -2147483648EndGInt PDefGrup0nameStrn TabPanelIndexPValStrn0EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup$nameStrnLeftPValStrn178EndGInt PDefGrup$nameStrnTopPValStrn14EndGInt PDefGrup(nameStrnWidthPValStrn260EndGInt PDefGrup(nameStrnHeightPValStrn266EndGInt PDefGrup,nameStrn InitialParentPValStrnEndGInt PDefGrup$nameStrnHelpTagPValStrnEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup0nameStrnDisabledBalloonHelpPValStrnEndGInt PDefGrup0nameStrnAutoDeactivatePValStrnTrueEndGInt PDefGrup,nameStrnLockLeftPValStrnFalseEndGInt PDefGrup,nameStrnLockTopPValStrnFalseEndGInt PDefGrup0nameStrn LockRightPValStrnFalseEndGInt PDefGrup0nameStrn LockBottomPValStrnFalseEndGInt PDefGrup(nameStrnBackdropPValStrn0EndGInt PDefGrup(nameStrnEnabledPValStrnTrueEndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup0nameStrn AcceptFocusPValStrnFalseEndGInt PDefGrup0nameStrn AcceptTabsPValStrnFalseEndGInt CBixInt EndGInt ~PadnPadn<********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuh{ M5c* NameStrnMenuBar1ContInt rEdtRectdd,MItmGrupspmuInt nameStrnFileMenutextStrn&FileindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnFileMenuSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuitindxInt scutStrn#App.kFileQuitShortcutbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnFileQuitSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrnEditMenutextStrn&EditindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnEditMenuSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnEditUndotextStrn&UndoindxInt scutStrnCmd+ZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnEditUndoSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrn-indxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCuttextStrnCu&tindxInt scutStrnCmd+XbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnEditCutSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&CopyindxInt scutStrnCmd+CbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnEditCopySizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditPastetextStrn&PasteindxInt scutStrnCmd+VbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrn EditPasteSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditCleartextStrn#App.kEditClearindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrn EditClearSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrn-indxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditSelectAlltextStrn Select &AllindxInt scutStrnCmd+AbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrn EditSelectAllSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************BlokpObjAM5c* NameStrn PictureProxyContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt bClsInt NameStrn PictureProxySizeInt bNtrInt PropGrupEncoInt declStrnmPicture As PictureflagInt sorcGruplstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnmPicture As PicturentlnStrnEndGInt EndGInt PropGrupEncoInt declStrnmFile As FolderItemflagInt sorcGruplstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnmFile As FolderItemntlnStrnEndGInt EndGInt MethGrup0EncoInt nameStrn ConstructorparmStrnfile as FolderItemrsltStrnflagInt sorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn#Sub Constructor(file as FolderItem)srclStrn mFile = filesrclStrnmPicture = nilsrclStrnEnd SubEndGInt EndGInt MethGrupEncoInt nameStrnPictureparmStrnrsltStrnPictureflagInt sorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnFunction Picture() As PicturesrclStrn5// If we haven't loaded the file from disk yet, then srclStrn// we should load it up now.srclStrnif mPicture = nil thensrclStrnmPicture = mFile.OpenAsPicturesrclStrnend ifsrclStrnsrclStrn// Return the picture in memorysrclStrnreturn mPicturesrclStrn End FunctionEndGInt EndGInt IntrStrnPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!