RbBFBlokProjPSIVStrn2006.02 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrn"Copyright (C) 2006 by Barry Traver IVerStrnClipboard Utility aiviInt DVewInt ~ _prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBMacStrnCollectClips (Classic) BCarStrn CollectClipsBCMOStrn CollectClipsBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnCollectClips.exeBMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn CollectClipsPadnPadnl****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjDNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt l\_EndGInt VwBhGrupEndGInt CnstGrupEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt EndGInt CnstGrupEncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrupEncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadnd****************************************************************************************************BlokpVew~ _4NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrupnameStrnEnableMenuItems CompStrnVsblInt sorcGruplEncoInt srclStrnSub EnableMenuItems() srclStrnFileSaveAsText.Enable srclStrnEnd Sub EndGInt EndGInt HInsGrupnameStrnOpenCompStrnVsblInt sorcGrupEncoInt srclStrn Sub Open() srclStrnDim c as New Clipboard srclStrn c.text="" srclStrnc.close srclStrnsrclStrnsrclStrnEnd Sub EndGInt EndGInt HInsGrupnameStrn CancelClose CompStrnVsblInt sorcGrup`EncoInt srclStrn7Function CancelClose(appQuitting as Boolean) As Boolean srclStrnDim n as IntegersrclStrn:n=MsgBox ("Are you sure you want to exit the program?",36) srclStrn If n=6 then srclStrn Return FalsesrclStrnelseif n=7 then srclStrn Return True srclStrnend if srclStrnsrclStrnsrclStrn End FunctionEndGInt EndGInt MnuHGrupnameStrnFileSaveAsText CompStrnVsblInt sorcGruppEncoInt srclStrn$Function FileSaveAsText() As BooleansrclStrn SaveAsText srclStrn End FunctionEndGInt EndGInt MethGrupnameStrn SaveAsText CompStrnVsblInt sorcGrup4EncoInt srclStrnSub SaveAsText()srclStrn#Dim FileStreamA As TextOutputStream srclStrnDim FileToAccess As FolderItem srclStrnsrclStrnDim TextType as New FileTypesrclStrnTextType.Name = "Text File" srclStrnTextType.Extensions = ".txt"srclStrnsrclStrn.FileToAccess = GetSaveFolderItem(TextType, "") srclStrnsrclStrn7MainBuffer = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrnIf FileToAccess <> Nil Then srclStrn)FileStreamA = FileToAccess.CreateTextFile srclStrnFileStreamA.Write MainBuffersrclStrnFileStreamA.Close srclStrnElsesrclStrn MsgBox FileToAccess.AbsolutePathsrclStrnEnd If srclStrn8Exception 'srclStrn4MsgBox "An error occurred in Window1.SaveAsText." 'srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt PropGrupTEncoInt declStrnFormerText As StringflagInt CompStrnshrdInt EndGInt PropGrupTEncoInt declStrnMainBuffer As StringflagInt CompStrnshrdInt EndGInt PDefGrup0nameStrnMenuBar PValStrn 1817993215 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrupLnameStrnTitle EncoInt PValStrnCollectClips by Barry TraverEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn 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 mEndGInt PDefGrup$nameStrnWidth PValInt [EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGrup VwPrGrup0NameStrnNameVsblInt PrGpStrnID EndGInt VwPrGrup8NameStrn Interfaces VsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnSuper VsblInt PrGpStrnID EndGInt VwPrGrupNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EnumGrupdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGrupHNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt VwPrGrupHNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt VwPrGrupHNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt VwPrGrupLNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt VwPrGrupLNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt VwPrGrupPNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt VwPrGrupNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EnumGrupPdefnStrn 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 EndGInt EndGInt VwPrGrupTNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt VwPrGrup<NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt VwPrGrupPNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt VwPrGrupLNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupTNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupPNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupTNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupXNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrup@NameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt VwPrGrupPNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt VwPrGrup<NameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt VwPrGrup0 NameStrn FormerText PrGpStrnBehaviorEndGInt  VwPrGrup0 NameStrn MainBuffer PrGpStrnBehaviorEndGInt  EndGInt CBhvGrupl SuprStrnTimer HInsGrup< nameStrnAction CompStrnVsblInt sorcGrup EncoInt srclStrn Sub Action()srclStrnDIm c as New Clipboard srclStrnDim Count1 As Integer srclStrnDim EOL, Temp1 As StringsrclStrnIf Len(EndOfLine) = 2 Then srclStrn EOL = Chr(13) srclStrnElsesrclStrnEOL = EndOfLine srclStrnEnd If srclStrnIf c.TextAvailable Then srclStrnIf c.Text <> FormerText ThensrclStrnIf MainBuffer = "" Then srclStrnMainBuffer = c.Text srclStrnIf Len(EndOfLine) = 2 Then srclStrn9EditField1.Text = ReplaceLineEndings(MainBuffer, Chr(13)) srclStrnElsesrclStrnEditField1.Text = MainBuffersrclStrnEnd If srclStrn+Count1 = CountFields(MainBuffer, EndOfLine) srclStrn"EditField1.Scrollposition = Count1 srclStrnElsesrclStrn(MainBuffer = MainBuffer + EOL + c.Text srclStrnIf Len(EndOfLine) = 2 Then srclStrn9EditField1.Text = ReplaceLineEndings(MainBuffer, Chr(13)) srclStrnElsesrclStrnEditField1.Text = MainBuffersrclStrnEnd If srclStrn2Temp1 = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrn&Count1 = CountFields(Temp1, EndOfLine) srclStrn&EditField1.Scrollposition = Count1 - 3 srclStrnEnd If srclStrnFormerText = c.Text srclStrnEnd If srclStrnEnd If srclStrnsrclStrnEnd Sub EndGInt  EndGInt  EndGInt  CBhvGrupSuprStrn EditField EndGInt CtrlGrupcclsStrnTimer nameStrnTimer PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup$nameStrnPeriod PValInt EndGInt PDefGrup nameStrnModePValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnTimer EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnTimer1 EndGInt CBixInt EndGInt CtrlGrup cclsStrn EditField nameStrn EditField PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Alignment PValInt EndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup( nameStrn LimitText PValInt EndGInt  PDefGrup$!nameStrnReadOnlyPValStrnEndGInt !PDefGrup,"nameStrnMaskEncoInt PValStrnEndGInt "PDefGrup,#nameStrnTextEncoInt PValStrnEndGInt #PDefGrup($nameStrn Underline PValStrnEndGInt $PDefGrup$%nameStrnItalic PValStrnEndGInt %PDefGrup &nameStrnBoldPValStrnEndGInt &PDefGrup$'nameStrnTextSizePValInt EndGInt 'PDefGrup8(nameStrnTextFontEncoInt PValStrnSystem EndGInt (PDefGrup0)nameStrnAutoDeactivate PValStrnTrueEndGInt )PDefGrup0*nameStrnHelpTag EncoInt PValStrnEndGInt *PDefGrup(+nameStrnVisible PValStrnTrueEndGInt +PDefGrup0,nameStrnFormat EncoInt PValStrnEndGInt ,PDefGrup(-nameStrnEnabled PValStrnTrueEndGInt -PDefGrup(.nameStrn BackColor PValInt EndGInt .PDefGrup(/nameStrn TextColor PValInt EndGInt /PDefGrup,0nameStrn UseFocusRingPValStrnTrueEndGInt 0PDefGrup$1nameStrnPasswordPValStrnEndGInt 1PDefGrup$2nameStrnStyled PValStrnEndGInt 2PDefGrup43nameStrnScrollbarVertical PValStrnTrueEndGInt 3PDefGrup44nameStrnScrollbarHorizontal PValStrnTrueEndGInt 4PDefGrup,5nameStrn Multiline PValStrnTrueEndGInt 5PDefGrup(6nameStrnBorder PValStrnTrueEndGInt 6PDefGrup,7nameStrn TabPanelIndex PValInt EndGInt 7PDefGrup,8nameStrn LockBottom PValStrnTrueEndGInt 8PDefGrup,9nameStrn LockRight PValStrnTrueEndGInt 9PDefGrup(:nameStrnLockTop PValStrnTrueEndGInt :PDefGrup(;nameStrnLockLeftPValStrnTrueEndGInt ;PDefGrup$nameStrnTop PValInt EndGInt >PDefGrup ?nameStrnLeftPValInt EndGInt ?PDefGrup8@nameStrn ControlOrderEncoInt PValStrn1 EndGInt @PDefGrup<AnameStrnSuper EncoInt PValStrn EditField EndGInt APDefGrup$BnameStrnIndex PValInt EndGInt BPDefGrup8CnameStrnNameEncoInt PValStrn EditField1 EndGInt CCBixInt EndGInt PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnul\_NameStrnMenuBar1ContInt paswStrnMItmGrupDspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupEspmuInt nameStrnFileSaveAsText textStrn Save As TextindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EMItmGrupFspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt FEndGInt DPadnPadnt************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupGOTabGrupHContInt eSptInt EndGInt HOTabGrupIContInt ~ _EndGInt IOTabGrupJContInt l\_EndGInt JOTabGrupKContInt ~ _EndGInt KLsLcStrn(Home) rEdtRect.EndGInt GPadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!