RbBFBlokProjPSIVStrn2008.031ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt .DprTpInt DLanInt CLanInt DEncInt BflgInt IconGrupqÖEndGInt qÖMacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt BMSzInt BSzSStrnBMSSStrnMDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn¨****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj8NameStrnESAutocomplete ContInt paswStrnbClsInt SuprStrn EditField flagInt bNtrInt CompStrnHInsGrup¨q×nameStrn LostFocus CompStrnVsblInt sorcGrup\qØEncoInt srclStrnSub LostFocus() srclStrn SelLength = 0 srclStrnEnd Sub EndGInt qØEndGInt q×HInsGrupÄqÙnameStrnGotFocusCompStrnVsblInt sorcGrup|qÚEncoInt srclStrnSub GotFocus() srclStrn SelStart = 0srclStrnSelLength = Len(Text) srclStrnEnd Sub EndGInt qÚEndGInt qÙHInsGrupqÛnameStrnKeyDown CompStrnVsblInt sorcGrupÈqÜEncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrn(if Asc(Key) = 8 OR Asc(Key) = &h7F thensrclStrnDontUseCache = true srclStrnend if srclStrn End FunctionEndGInt qÜEndGInt qÛHInsGrup¬qÝnameStrnOpenCompStrnVsblInt sorcGruphqÞEncoInt srclStrn Sub Open() srclStrnRedim Cache(-1) srclStrnOpensrclStrnEnd Sub EndGInt qÞEndGInt qÝHInsGrupäqßnameStrn TextChange CompStrnVsblInt sorcGrup˜qàEncoInt srclStrnSub TextChange()srclStrnDim s as String srclStrnDim i as IntegersrclStrnsrclStrnsrclStrn// Cache verwenden srclStrnif NOT DontUseCache thensrclStrn;if hasCache AND Len(Text) > 0 AND SelStart = Len(Text) then srclStrns = FindSimilarInCache(Text)srclStrnif s <> "" then srclStrn// fündig geworden srclStrn i = Len(Text) srclStrnText = Text + Mid(s,i+1)srclStrn SelStart = isrclStrnSelLength = Len(s) - i srclStrnend if srclStrnend if srclStrnelsesrclStrnDontUseCache = falsesrclStrnend if srclStrnsrclStrn TextChange srclStrnsrclStrnEnd Sub EndGInt qàEndGInt qßMethGrup4qánameStrn setzeName CompStrnVsblInt sorcGrup”qâEncoInt srclStrnSub setzeName(s as String) srclStrn Original = ssrclStrnText = ssrclStrnEnabled = true srclStrnEnd Sub EndGInt qâEncoInt AlasStrnflagInt shrdInt parmStrn s as String rsltStrnEndGInt qáMethGrupäqãnameStrnUndoCompStrnVsblInt sorcGrupXqäEncoInt srclStrn Sub Undo() srclStrnText = Original srclStrnEnd Sub EndGInt qäEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt qãMethGrupŒqånameStrn getMP3StringCompStrnVsblInt sorcGrupðqæEncoInt srclStrn!Function getMP3String() As String srclStrnDim i,j as Integer srclStrnDim s as String srclStrnsrclStrns = TextsrclStrnsrclStrnj = 30 - LenB(s)srclStrnfor i = 1 to j srclStrn s = s + " " srclStrnnextsrclStrnsrclStrnOriginal = Text srclStrnGeändert = false srclStrnsrclStrnif hasCache thensrclStrnAddToCache(Original)srclStrnend if srclStrnsrclStrnreturn ssrclStrnsrclStrn End FunctionEndGInt qæEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnString EndGInt qåMethGruphqçnameStrn AddToCache CompStrnVsblInt sorcGrupÈqèEncoInt srclStrnSub AddToCache(s as String) srclStrnsrclStrnif NOT IstImCache(s) then srclStrnCache.Append s srclStrnend if srclStrnsrclStrnsrclStrnEnd Sub EndGInt qèEncoInt AlasStrnflagInt shrdInt parmStrn s as String rsltStrnEndGInt qçMethGrupqénameStrn IstImCache CompStrnVsblInt sorcGrup\qêEncoInt srclStrn+Function IstImCache(S as String) As Boolean srclStrnDim i,temp as Integer srclStrnsrclStrntemp = UBound(Cache)srclStrnFor i = 0 to temp srclStrnif Cache(i) = s thensrclStrn return true srclStrnend if srclStrnnextsrclStrnsrclStrn return falsesrclStrnsrclStrn End FunctionEndGInt qêEncoInt AlasStrnflagInt shrdInt parmStrn S as String rsltStrnBoolean EndGInt qéMethGrupxqënameStrnFindSimilarInCache CompStrnVsblInt sorcGrupÈqìEncoInt srclStrn2Function FindSimilarInCache(s as String) As String srclStrnDim i as IntegersrclStrnDim a as IntegersrclStrndim t as string srclStrnsrclStrn a = Len(s) srclStrnsrclStrnfor i = UBound(Cache) downto 0 srclStrn t = Cache(i)srclStrnif Left(Cache(i),a) = s thensrclStrnreturn Cache(i) srclStrnend if srclStrnnextsrclStrnsrclStrn return "" srclStrnsrclStrn End FunctionEndGInt qìEncoInt AlasStrnflagInt shrdInt parmStrn s as String rsltStrnString EndGInt qëMethGrupàqínameStrnBuildCacheFromStringCompStrnVsblInt sorcGrup8qîEncoInt srclStrn%Sub BuildCacheFromString(s as String) srclStrnDim i as IntegersrclStrnsrclStrnsrclStrnif s <> "" then srclStrn!for i = 1 to CountFields(s,"") srclStrn!Cache.Append NthField(s,"", i) srclStrnnextsrclStrnend if srclStrnsrclStrnEnd Sub EndGInt qîEncoInt AlasStrnflagInt shrdInt parmStrn s as String rsltStrnEndGInt qíMethGrup,qïnameStrnBuildStringFromCacheCompStrnVsblInt sorcGrupˆqðEncoInt srclStrn)Function BuildStringFromCache() As String srclStrnDim i,temp as Integer srclStrnDim s as String srclStrnsrclStrn temp = Max(UBound(Cache) - 20,0)srclStrn!for i = UBound(Cache) downto temp srclStrns = s + Cache(i) + ""srclStrnnextsrclStrnsrclStrns = Left(s,Len(s)-1)srclStrnsrclStrnreturn ssrclStrn End FunctionEndGInt qðEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnString EndGInt qïHookGrupPqñnameStrnOpenEncoInt flagInt !SySFInt parmStrnrsltStrnEndGInt qñHookGruplqònameStrnKeyDown EncoInt flagInt !SySFInt parmStrn Key as String rsltStrnBoolean EndGInt qòHookGrupTqónameStrnGotFocusEncoInt flagInt !SySFInt parmStrnrsltStrnEndGInt qóHookGrupXqônameStrn LostFocus EncoInt flagInt !SySFInt parmStrnrsltStrnEndGInt qôHookGrupXqõnameStrn TextChange EncoInt flagInt !SySFInt parmStrnrsltStrnEndGInt qõPropGrupÈqönameStrnOriginalCompStrnVsblInt sorcGrup<q÷EncoInt srclStrnOriginal As String srclStrnEndGInt q÷EncoInt declStrnOriginal As String flagInt shrdInt EndGInt qöPropGrupÌqønameStrn Geändert CompStrnVsblInt sorcGrup<qùEncoInt srclStrnGeändert As BooleansrclStrnEndGInt qùEncoInt declStrnGeändert As BooleanflagInt shrdInt EndGInt qøPropGrupÈqúnameStrnCache(0)CompStrnVsblInt sorcGrup<qûEncoInt srclStrnCache(0) As String srclStrnEndGInt qûEncoInt declStrnCache(0) As String flagInt shrdInt EndGInt qúPropGrupÈqünameStrnhasCacheCompStrnVsblInt sorcGrup<qýEncoInt srclStrnhasCache As Boolean srclStrnEndGInt qýEncoInt declStrnhasCache As Boolean flagInt shrdInt EndGInt qüPropGrupÔqþnameStrn DontUseCacheCompStrnVsblInt sorcGrup@qÿEncoInt srclStrnDontUseCache As Boolean srclStrnEndGInt qÿEncoInt declStrnDontUseCache As Boolean flagInt shrdInt EndGInt qþVwBhGrup´rVwPrGrup\rNameStrnNameVsblInt PrGpStrnID typeStrnString CPifStrn EditField EndGInt rVwPrGrup`rNameStrnIndex VsblInt PrGpStrnID typeStrnInteger CPifStrn EditField EndGInt rVwPrGrupLrNameStrnSuper VsblInt PrGpStrnID CPifStrn EditField EndGInt rVwPrGrup`rNameStrnLeftVsblInt PrGpStrnPositiontypeStrnInteger CPifStrn EditField EndGInt rVwPrGrup`rNameStrnTop VsblInt PrGpStrnPositiontypeStrnInteger CPifStrn EditField EndGInt rVwPrGruptrNameStrnWidth VsblInt PrGpStrnPositionPValStrn80 typeStrnInteger CPifStrn EditField EndGInt rVwPrGruptrNameStrnHeight VsblInt PrGpStrnPositionPValStrn22 typeStrnInteger CPifStrn EditField EndGInt rVwPrGrupdrNameStrnLockLeftVsblInt PrGpStrnPositiontypeStrnBoolean CPifStrn EditField EndGInt rVwPrGrupdr NameStrnLockTop VsblInt PrGpStrnPositiontypeStrnBoolean CPifStrn EditField EndGInt r VwPrGruphr NameStrn LockRight VsblInt PrGpStrnPositiontypeStrnBoolean CPifStrn EditField EndGInt r VwPrGruphr NameStrn LockBottom VsblInt PrGpStrnPositiontypeStrnBoolean CPifStrn EditField EndGInt r VwPrGruppr NameStrn TabPanelIndex PrGpStrnPositionPValStrn0 typeStrnInteger CPifStrn EditField EndGInt r VwPrGruptr NameStrnTabIndexVsblInt PrGpStrnPositionPValStrn0 typeStrnInteger CPifStrn EditField EndGInt r VwPrGrupxrNameStrnBorder VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGruplrNameStrn Multiline VsblInt PrGpStrn Appearance typeStrnBoolean CPifStrn EditField EndGInt rVwPrGruptrNameStrnScrollbarHorizontal VsblInt PrGpStrn Appearance typeStrnBoolean CPifStrn EditField EndGInt rVwPrGrup„rNameStrnScrollbarVertical VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGruphrNameStrnStyled VsblInt PrGpStrn Appearance typeStrnBoolean CPifStrn EditField EndGInt rVwPrGruphrNameStrnPasswordVsblInt PrGpStrn Appearance typeStrnBoolean CPifStrn EditField EndGInt rVwPrGrup|rNameStrn UseFocusRingVsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGrup€rNameStrn TextColor VsblInt PrGpStrn Appearance PValStrn&h000000typeStrnColor CPifStrn EditField EndGInt rVwPrGrup€rNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrn EditField EndGInt rVwPrGrupxrNameStrnEnabled VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGruphrNameStrnFormat VsblInt PrGpStrn Appearance typeStrnString CPifStrn EditField EndGInt rVwPrGrupxrNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGrup„rNameStrnHelpTag VsblInt PrGpStrn Appearance typeStrnString vbETStrnMultiLineEditor CPifStrn EditField EndGInt rVwPrGrup€rNameStrnAutoDeactivate VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrn EditField EndGInt rVwPrGruptrNameStrnTextFontVsblInt PrGpStrnFontPValStrnSystem typeStrnString CPifStrn EditField EndGInt rVwPrGrupprNameStrnTextSizeVsblInt PrGpStrnFontPValStrn0 typeStrnInteger CPifStrn EditField EndGInt rVwPrGrup\rNameStrnBoldVsblInt PrGpStrnFonttypeStrnBoolean CPifStrn EditField EndGInt rVwPrGrup`rNameStrnItalic VsblInt PrGpStrnFonttypeStrnBoolean CPifStrn EditField EndGInt rVwPrGrupdr NameStrn Underline VsblInt PrGpStrnFonttypeStrnBoolean CPifStrn EditField EndGInt r VwPrGrup„r!NameStrnTextVsblInt PrGpStrn Initial State typeStrnString vbETStrnMultiLineEditor CPifStrn EditField EndGInt r!VwPrGrup`r"NameStrnMaskVsblInt PrGpStrnBehaviortypeStrnString CPifStrn EditField EndGInt r"VwPrGrupdr#NameStrnReadOnlyVsblInt PrGpStrnBehaviortypeStrnBoolean CPifStrn EditField EndGInt r#VwPrGrupxr$NameStrn LimitText VsblInt PrGpStrnBehaviorPValStrn0 typeStrnInteger CPifStrn EditField EndGInt r$VwPrGruphr%NameStrn AcceptTabs VsblInt PrGpStrnBehaviortypeStrnBoolean CPifStrn EditField EndGInt r%VwPrGrupr&NameStrn Alignment VsblInt PrGpStrnBehaviorPValStrn0 typeStrnInteger vbETStrnEnumCPifStrn EditField EnumGrup`r'defnStrn 0 - Default defnStrn1 - LeftdefnStrn 2 - Center defnStrn 3 - Right EndGInt r'EndGInt r&VwPrGrupˆr(NameStrn DataSource VsblInt PrGpStrnDatabase BindingtypeStrnString vbETStrn DataSource CPifStrn EditField EndGInt r(VwPrGrupˆr)NameStrn DataField VsblInt PrGpStrnDatabase BindingtypeStrnString vbETStrn DataField CPifStrn EditField EndGInt r)VwPrGrup8r*NameStrn InitialParent CPifStrn EditField EndGInt r*VwPrGrup\r+NameStrnOriginalPrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt r+VwPrGrupPr,NameStrnhasCachePrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt r,VwPrGrupTr-NameStrn DontUseCachePrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt r-VwPrGrupTr.NameStrn Geändert PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt r.EndGInt rPadnPadn ************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjGVÖÄNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$r/nameStrnMenuBar PValInt EndGInt r/VwBhGrupr0EndGInt r0PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew.DNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup<r1nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt r1PDefGrup$r2nameStrnMenuBar PValStrnEndGInt r2PDefGrup(r3nameStrn MacProcID PValInt EndGInt r3PDefGrup0r4nameStrnMinimizeButton PValStrnTrueEndGInt r4PDefGrup4r5nameStrnMaximizeButton PValStrnFalse EndGInt r5PDefGrup,r6nameStrn LiveResize PValStrnTrueEndGInt r6PDefGrup0r7nameStrn Resizeable PValStrnFalse EndGInt r7PDefGrup,r8nameStrn CloseButton PValStrnTrueEndGInt r8PDefGrup0r9nameStrnMenuBarVisible PValStrnTrueEndGInt r9PDefGrup0r:nameStrn FullScreen PValStrnFalse EndGInt r:PDefGrup(r;nameStrnVisible PValStrnTrueEndGInt r;PDefGrup8rnameStrn BackColor PValInt ÿÿÿEndGInt r>PDefGrup0r?nameStrn HasBackColorPValStrnFalse EndGInt r?PDefGrup0r@nameStrn Composite PValStrnFalse EndGInt r@PDefGrup$rAnameStrnFrame PValInt EndGInt rAPDefGrup(rBnameStrn MaxHeight PValInt }EndGInt rBPDefGrup$rCnameStrnMaxWidthPValInt }EndGInt rCPDefGrup(rDnameStrn MinHeight PValInt @EndGInt rDPDefGrup$rEnameStrnMinWidthPValInt @EndGInt rEPDefGrup$rFnameStrnHeight PValInt ,EndGInt rFPDefGrup$rGnameStrnWidth PValInt ,EndGInt rGPDefGrup(rHnameStrn Placement PValInt EndGInt rHVwBhGrupôrIVwPrGrupDrJNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt rJVwPrGrupLrKNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt rKVwPrGrupHrLNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt rLVwPrGrup0rMNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”rNdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt rNEndGInt rMVwPrGrupprONameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt rOVwPrGrupprPNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt rPVwPrGrupprQNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt rQVwPrGruptrRNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt rRVwPrGruptrSNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt rSVwPrGrupxrTNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt rTVwPrGrup rUNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupprVdefnStrn 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 rVEndGInt rUVwPrGrup|rWNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt rWVwPrGrup|rXNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt rXVwPrGrup|rYNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt rYVwPrGrupxrZNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt rZVwPrGrupxr[NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt r[VwPrGruptr\NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt r\VwPrGrup|r]NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt r]VwPrGrup|r^NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt r^VwPrGrupxr_NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt r_VwPrGrup|r`NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt r`VwPrGrupxraNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt raVwPrGrup€rbNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt rbVwPrGrup|rcNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt rcVwPrGrupxrdNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt rdVwPrGrupxreNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt reVwPrGrup|rfNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt rfEndGInt rIPadnPadn ************BlokpUIsWnStGrupÌrgOTabGruprhContInt eSptInt óEndGInt rhOTabGrup@riContInt AltEInt LSptInt  EEstInt ciIDInt EndGInt riLsLcStrnESAutocomplete.setzeNamerEdtRectrkB/EndGInt rgPadnPadnð********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!