RbBFBlokProjgv lPSIVStrn5.5OPSpStrnACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrnIVerStrnDVewInt prTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupEndGInt CPalGrupflagInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt EndGInt MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRect2fTypGrupLnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt PadnPadn@****************************************************************BlokpVew gv lNameStrnWindow1ContInt rEdtRect9oMeSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect9oMeSptInt EndGInt EndGInt lstHInt lstVInt [PDefGrup4nameStrnNamePValStrnWindow1EncoInt EndGInt PDefGrup(nameStrnFramePValStrn0EndGInt PDefGrup0nameStrn CompositePValStrnFalseEndGInt PDefGrup0nameStrn HasBackColorPValStrnFalseEndGInt PDefGrup0nameStrn BackColorPValStrn16777215EndGInt PDefGrup(nameStrnBackdropPValStrn0EndGInt PDefGrupDnameStrnTitlePValStrnCompareRows ExampleEncoInt EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup0nameStrn FullScreenPValStrnFalseEndGInt PDefGrup0nameStrnMenuBarVisiblePValStrnTrueEndGInt PDefGrup(nameStrnCloseBoxPValStrnTrueEndGInt PDefGrup,nameStrnGrowIconPValStrnFalseEndGInt PDefGrup0nameStrn LiveResizePValStrnFalseEndGInt PDefGrup,nameStrnZoomIconPValStrnFalseEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup,nameStrn MacProcIDPValStrn0EndGInt PDefGrup0nameStrnMenuBarPValStrn -1124265053EndGInt PDefGrup,nameStrn PlacementPValStrn0EndGInt PDefGrup(nameStrnWidthPValStrn300EndGInt PDefGrup(nameStrnHeightPValStrn300EndGInt PDefGrup(nameStrnMinWidthPValStrn64EndGInt PDefGrup,nameStrn MinHeightPValStrn64EndGInt PDefGrup,nameStrnMaxWidthPValStrn32000EndGInt PDefGrup0nameStrn MaxHeightPValStrn32000EndGInt FDefGrupDNameStrnWindow1SizeInt SuprStrnWindowbNtrInt EndGInt CBhvGrup `NameStrnSizeInt SuprStrnListboxbNtrInt HInsGrup@EncoInt nameStrn CompareRowssorcGrupstsrInt stscInt ;ndsrInt ndscInt ;EncoInt srclStrnmFunction CompareRows(row1 as Integer, row2 as Integer, column as Integer, ByRef result as Integer) As BooleansrclStrnH//The first column contains letters, and can be sorted lexicographicallysrclStrnL//(alphabetically). Therefor, we can simply return false, and let REALbasicsrclStrn//sort the way it wants to.srclStrnIf Column = 0 thensrclStrnsrclStrn return falsesrclStrnsrclStrn0//The second column contains numbers, so we needsrclStrn8//to compare the value of the column. To make things a srclStrn8//little faster, we've stored the integer value of this srclStrn'//column in the corresponding cell tag.srclStrnelseif Column = 1 thensrclStrnsrclStrn@//If the value in the cell tag of row 1 is larger than the valuesrclStrn3//in the cell tag of row 2, we set the result to 1.srclStrn/if me.CellTag(row1,1) > me.CellTag(row2,1) thensrclStrn Result = 1srclStrnsrclStrnA//If the value in the cell tag of row 2 is smaller than the valuesrclStrn4//in the cell tag of row 2, we set the result to -1.srclStrn3elseif me.CellTag(row1,1) < me.CellTag(row2,1) thensrclStrn Result = -1srclStrnsrclStrn;//If the two values are equal. then we set the Result to 0.srclStrnelsesrclStrn Result = 0srclStrnendsrclStrnsrclStrn return truesrclStrnsrclStrnelsesrclStrnsrclStrn return falsesrclStrnsrclStrnendsrclStrn End FunctionEndGInt EndGInt HInsGrupEncoInt nameStrnOpensorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Open()srclStrndim i as integersrclStrnsrclStrnme.Heading(0) = "Alpha"srclStrnme.Heading(1) = "Numerical"srclStrnsrclStrn///Add the characters A - Z to the first column.srclStrn+//Add the numbers 1-26 to the second columnsrclStrnsrclStrnfor i = 1 to 26srclStrnme.AddRow chr(i + 64)srclStrnsrclStrnA//A cell tag stores variant data (any type of data) that does notsrclStrn?//display in the cell. Here we are storing an integer, but we srclStrnE//could just as easily store a date object, a picture, an XML node...srclStrnB//You get the point. CellTags in Listboxes, and RowTags in popup srclStrn1//menus, are your best friend. Get to know them!srclStrn srclStrnme.CellTag(me.LastIndex, 1) = isrclStrn me.Cell(me.LastIndex,1) = str(i)srclStrnnextsrclStrnEnd SubEndGInt EndGInt HInsGrupEncoInt nameStrnChangesorcGrupxstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Change()srclStrnsrclStrnEnd SubEndGInt EndGInt EndGInt CtrlGrup cclsStrnListBoxnameStrnListBoxPDefGrup4nameStrnNamePValStrnlstSortEncoInt EndGInt PDefGrup0nameStrnIndexPValStrn -2147483648EndGInt PDefGrup0nameStrn TabPanelIndexPValStrn0EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup$nameStrnLeftPValStrn20EndGInt PDefGrup$nameStrnTopPValStrn14EndGInt PDefGrup(nameStrnWidthPValStrn260EndGInt PDefGrup(nameStrnHeightPValStrn266EndGInt PDefGrup,nameStrn InitialParentPValStrnEndGInt PDefGrup$nameStrnHelpTagPValStrnEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup0nameStrnDisabledBalloonHelpPValStrnEndGInt PDefGrup0nameStrnAutoDeactivatePValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup(nameStrnLockTopPValStrnTrueEndGInt PDefGrup,nameStrn LockRightPValStrnTrueEndGInt PDefGrup,nameStrn LockBottomPValStrnTrueEndGInt PDefGrup8nameStrnTextFontPValStrnSystemEncoInt EndGInt PDefGrup(nameStrnTextSizePValStrn12EndGInt PDefGrup(nameStrnBoldPValStrnFalseEndGInt PDefGrup,nameStrnItalicPValStrnFalseEndGInt PDefGrup0nameStrn UnderlinePValStrnFalseEndGInt PDefGrup(nameStrnEnabledPValStrnTrueEndGInt PDefGrup,nameStrn ColumnCountPValStrn2EndGInt PDefGrup(nameStrn ColumnWidthsPValStrnEndGInt PDefGrup,nameStrn HasHeadingPValStrnTrueEndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup(nameStrn InitialValuePValStrnEndGInt PDefGrup0nameStrn HierarchicalPValStrnFalseEndGInt PDefGrup0nameStrn EnableDragPValStrnFalseEndGInt PDefGrup8nameStrnEnableDragReorderPValStrnFalseEndGInt PDefGrup0nameStrn SelectionTypePValStrn0EndGInt PDefGrup,nameStrn HeadingIndexPValStrn-1EndGInt PDefGrup8nameStrnScrollBarHorizontalPValStrnFalseEndGInt PDefGrup0nameStrnScrollPositionXPValStrn0EndGInt PDefGrup4nameStrnScrollBarVerticalPValStrnTrueEndGInt PDefGrup0nameStrnScrollPositionPValStrn0EndGInt PDefGrup(nameStrn DataSourcePValStrnEndGInt PDefGrup(nameStrn DataFieldPValStrnEndGInt PDefGrup4nameStrnGridLinesHorizontalPValStrn0EndGInt PDefGrup4nameStrnGridLinesVerticalPValStrn0EndGInt PDefGrup0nameStrnDefaultRowHeightPValStrn-1EndGInt PDefGrup4nameStrnColumnsResizablePValStrnFalseEndGInt CBixInt EndGInt PadnPadn********************************************************************************************************************************************************************************************************************BlokpMnugv lNameStrnMenuBar1ContInt rEdtRectdd,MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrnFileMenutextStrn&FileindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnFileQuittextStrnE&xitindxInt scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrup spmuInt nameStrnEditMenutextStrn&EditindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnEditUndotextStrn&UndoindxInt scutStrnZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrn-indxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCuttextStrnCu&tindxInt scutStrnXbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&CopyindxInt scutStrnCbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditPastetextStrn&PasteindxInt scutStrnVbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditCleartextStrnClearindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt PadnPadn,********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjgv lNameStrnAppContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt bClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0nameStrnMenuBarPValStrn -1124265053EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!