RbBFBlokProjPSIVStrn2006.02 ACnmStrnAChpStrnACsvStrnlocalhost:7325 Ver1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrn0 SVerStrnLVerStrnIVerStrnaiviInt DVewInt prTpInt DLanInt CLanInt DEncInt BflgInt IconGrup"OEndGInt "OMacCStrn????BMacStrnPaster (Classic)BCarStrnPaster BCMOStrnPaster BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnPaster BWinStrn Paster.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86StrnPaster fTypGrupL"PnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt "PPadnPadn8************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFTyhNameStrn FileTypes ContInt paswStrnfTypGrup\"QnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt NameStrnTextEndGInt "QPadnPadn0************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewPNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrup "RnameStrnOpenCompStrnVsblInt sorcGrup"SEncoInt srclStrn Sub Open() srclStrn=self.IsToolbarNoFocusWindow = not self.IsToolbarNoFocusWindow srclStrnself.Topmost = not self.Topmost srclStrnRadioButton1(0).Value = TruesrclStrnEnd Sub EndGInt "SEndGInt "RHInsGrup"TnameStrn CancelClose CompStrnVsblInt sorcGrup`"UEncoInt 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 "UEndGInt "TPropGrupT"VEncoInt declStrnMainBuffer As StringflagInt CompStrnshrdInt EndGInt "VPropGrupX"WEncoInt declStrnTextLines(-1) As String flagInt CompStrnshrdInt EndGInt "WPropGrupT"XEncoInt declStrnNameOfFile As StringflagInt CompStrnshrdInt EndGInt "XPropGrupT"YEncoInt declStrnTypeOfFile As StringflagInt CompStrnshrdInt EndGInt "YPropGrup\"ZEncoInt declStrnClipboardOrPaste As String flagInt CompStrnshrdInt EndGInt "ZPDefGrup0"[nameStrnMenuBar PValStrn -1073277041 EndGInt "[PDefGrup("\nameStrn MacProcID PValInt EndGInt "\PDefGrup4"]nameStrn BalloonHelp EncoInt PValStrnEndGInt "]PDefGrup0"^nameStrnMinimizeButton PValStrnTrueEndGInt "^PDefGrup0"_nameStrnMaximizeButton PValStrnTrueEndGInt "_PDefGrup,"`nameStrn LiveResize PValStrnTrueEndGInt "`PDefGrup,"anameStrn Resizeable PValStrnTrueEndGInt "aPDefGrup,"bnameStrn CloseButton PValStrnTrueEndGInt "bPDefGrup0"cnameStrnMenuBarVisible PValStrnTrueEndGInt "cPDefGrup0"dnameStrn FullScreen PValStrnFalse EndGInt "dPDefGrup("enameStrnVisible PValStrnTrueEndGInt "ePDefGrup\"fnameStrnTitle EncoInt PValStrn,RB Paster by Brian Rathbone and Barry TraverEndGInt "fPDefGrup("gnameStrnBackdropPValStrn0 EndGInt "gPDefGrup("hnameStrn BackColor PValInt EndGInt "hPDefGrup0"inameStrn HasBackColorPValStrnFalse EndGInt "iPDefGrup0"jnameStrn Composite PValStrnFalse EndGInt "jPDefGrup$"knameStrnFrame PValInt EndGInt "kPDefGrup("lnameStrn MaxHeight PValInt }EndGInt "lPDefGrup$"mnameStrnMaxWidthPValInt }EndGInt "mPDefGrup("nnameStrn MinHeight PValInt @EndGInt "nPDefGrup$"onameStrnMinWidthPValInt @EndGInt "oPDefGrup$"pnameStrnHeight PValInt EndGInt "pPDefGrup$"qnameStrnWidth PValInt EndGInt "qPDefGrup("rnameStrn Placement PValInt EndGInt "rVwBhGrup "sVwPrGrup0"tNameStrnNameVsblInt PrGpStrnID EndGInt "tVwPrGrup8"uNameStrn Interfaces VsblInt PrGpStrnID EndGInt "uVwPrGrup4"vNameStrnSuper VsblInt PrGpStrnID EndGInt "vVwPrGrup"wNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EnumGrup"xdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt "xEndGInt "wVwPrGrupH"yNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt "yVwPrGrupH"zNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt "zVwPrGrupH"{NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt "{VwPrGrupL"|NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt "|VwPrGrupL"}NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt "}VwPrGrupP"~NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt "~VwPrGrup"NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 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 EndGInt "EndGInt "VwPrGrupT"NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupT"NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupT"NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt "VwPrGrup<"NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt "VwPrGrupP"NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt "VwPrGrupL"NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt "VwPrGrupT"NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupT"NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt "VwPrGrupP"NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt "VwPrGrupT"NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupT"NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupX"NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt "VwPrGrupT"NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt "VwPrGrup@"NameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt "VwPrGrupP"NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt "VwPrGrup<"NameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt "VwPrGrup0"NameStrn MainBuffer PrGpStrnBehaviorEndGInt "VwPrGrup0"NameStrn NameOfFile PrGpStrnBehaviorEndGInt "EndGInt "sCBhvGrup"SuprStrn PushButton HInsGrup"nameStrnAction CompStrnVsblInt sorcGruph"EncoInt srclStrn Sub Action()srclStrn"Dim FileStreamA As TextInputStream srclStrnDim FileToAccess As FolderItem srclStrnDim I As IntegersrclStrn%FileToAccess = GetOpenFolderItem ("") srclStrnIf FileToAccess <> Nil Then srclStrn)FileStreamA = FileToAccess.OpenAsTextFile srclStrn MainBuffer = FileStreamA.ReadAllsrclStrnFileStreamA.Close srclStrnNameOfFile = FileToAccess.Name srclStrnElsesrclStrnExitsrclStrnEnd If srclStrn7MainBuffer = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrn5MainBuffer = Trim(MainBuffer) + EndOfLine + ENdOfLine srclStrn)TextLInes = Split (MainBuffer, EndOfLine) srclStrnListBox1.DeleteAllRows srclStrnFor I = 0 to UBound(TextLines) srclStrnListBox1.AddRow TextLines(I)srclStrnNext I srclStrnTypeOfFile = "Single Clip" srclStrnEnd Sub EndGInt "EndGInt "EndGInt "CBhvGrup"SuprStrnListBox HInsGrup"nameStrn DoubleClick CompStrnVsblInt sorcGrup"EncoInt srclStrnSub DoubleClick() srclStrnConst VK_V = &H56 srclStrnConst VK_LCONTROL = &HA2srclStrnConst KEYEVENTF_KEYUP = &H2 srclStrnsrclStrnwDeclare Sub keybd_event Lib "user32.dll" (bVk As integer, bScan As integer, dwFlags As integer, dwExtraInfo As integer) srclStrnsrclStrndim TargetHWND as integer srclStrndim Ret as integer srclStrnsrclStrndim c as clipboard srclStrnc = new clipboard srclStrn%If TypeOfFile = "Multiple Clips" Then srclStrnc.text = ListBox1.Text srclStrn&ElseIf TypeOfFIle = "Single Clip" Then srclStrnc.text = MainBuffer srclStrnElsesrclStrnMsgBox "Error in Program" srclStrnEnd If srclStrnsrclStrn"If ClipBoardOrPaste = "Paste" Then srclStrnsrclStrnsrclStrn3keybd_event VK_LCONTROL, 0, 0, 0 ' press LControl srclStrn$keybd_event VK_V, 0, 0, 0 ' press VsrclStrn4keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0 ' release VsrclStrnBkeybd_event VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0 ' release LControl srclStrnsrclStrnEnd If srclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt "EndGInt "EndGInt "CBhvGrup"SuprStrn PushButton HInsGrup"nameStrnAction CompStrnVsblInt sorcGrup`"EncoInt srclStrn Sub Action()srclStrn"Dim FileStreamA As TextInputStream srclStrnDim FileToAccess As FolderItem srclStrnDim I As IntegersrclStrn%FileToAccess = GetOpenFolderItem ("") srclStrnIf FileToAccess <> Nil Then srclStrn)FileStreamA = FileToAccess.OpenAsTextFile srclStrn MainBuffer = FileStreamA.ReadAllsrclStrnFileStreamA.Close srclStrnNameOfFile = FileToAccess.Name srclStrnElsesrclStrnExitsrclStrnEnd If srclStrn7MainBuffer = ReplaceLineEndings (MainBuffer, EndOfLine) srclStrnMainBuffer = Trim(MainBuffer) srclStrn)TextLInes = Split (MainBuffer, EndOfLine) srclStrnListBox1.DeleteAllRows srclStrnFor I = 0 to UBound(TextLines) srclStrnListBox1.AddRow TextLines(I)srclStrnNext I srclStrnTypeOfFIle = "Multiple Clips" srclStrnsrclStrnEnd Sub EndGInt "EndGInt "EndGInt "CBhvGrup"SuprStrn RadioButton HInsGrup`"nameStrnAction CompStrnVsblInt sorcGrup"EncoInt srclStrnSub Action(index as Integer)srclStrnSelect Case index srclStrnCase 0 srclStrnClipboardOrPaste = "Clipboard" srclStrnCase 1 srclStrnClipboardOrPaste = "Paste" srclStrn End Select srclStrnsrclStrnsrclStrnEnd Sub EndGInt "EndGInt "EndGInt "CtrlGrup$"cclsStrn PushButton nameStrn PushButton PDefGrup8"nameStrn InitialParent EncoInt 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 "PDefGrup("nameStrnEnabled PValStrnTrueEndGInt "PDefGrup$"nameStrnCancel PValStrnEndGInt "PDefGrup$"nameStrnDefault PValStrnEndGInt "PDefGrupH"nameStrnCaption EncoInt PValStrnLoad File As Single ClipEndGInt "PDefGrup,"nameStrn TabPanelIndex PValInt EndGInt "PDefGrup0"nameStrn LockBottom PValStrnFalse EndGInt "PDefGrup0"nameStrn LockRight PValStrnFalse EndGInt "PDefGrup("nameStrnLockTop PValStrnTrueEndGInt "PDefGrup("nameStrnLockLeftPValStrnTrueEndGInt "PDefGrup$"nameStrnHeight PValInt EndGInt "PDefGrup$"nameStrnWidth PValInt EndGInt "PDefGrup "nameStrnTop PValInt EndGInt "PDefGrup "nameStrnLeftPValInt EndGInt "PDefGrup8"nameStrn ControlOrderEncoInt PValStrn0 EndGInt "PDefGrup<"nameStrnSuper EncoInt PValStrn PushButton EndGInt "PDefGrup$"nameStrnIndex PValInt EndGInt "PDefGrup8"nameStrnNameEncoInt PValStrn PushButton1 EndGInt "CBixInt EndGInt "CtrlGrup l"cclsStrnListBox nameStrnListBox PDefGrup8"nameStrn InitialParent EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataField EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataSource EncoInt PValStrnEndGInt "PDefGrup,"nameStrnColumnsResizablePValStrnEndGInt "PDefGrup,"nameStrn SelectionType PValInt EndGInt "PDefGrup0"nameStrnRequiresSelection PValStrnEndGInt "PDefGrup0"nameStrnEnableDragReorder PValStrnEndGInt "PDefGrup("nameStrn EnableDrag PValStrnEndGInt "PDefGrup("nameStrn HierarchicalPValStrnEndGInt "PDefGrup("nameStrn Underline PValStrnEndGInt "PDefGrup$"nameStrnItalic PValStrnEndGInt "PDefGrup "nameStrnBoldPValStrnEndGInt "PDefGrup$"nameStrnTextSizePValInt EndGInt "PDefGrup8"nameStrnTextFontEncoInt PValStrnSystem EndGInt "PDefGrup,"nameStrnDefaultRowHeightPValInt EndGInt "PDefGrup0"nameStrnGridLinesVertical PValInt EndGInt "PDefGrup0"nameStrnGridLinesHorizontal PValInt EndGInt "PDefGrup4"nameStrnScrollBarVertical PValStrnTrueEndGInt "PDefGrup4"nameStrnScrollbarHorizontal PValStrnTrueEndGInt "PDefGrup("nameStrn HeadingIndexPValInt EndGInt "PDefGrup4"nameStrn InitialValueEncoInt PValStrnEndGInt "PDefGrup,"nameStrn UseFocusRingPValStrnTrueEndGInt "PDefGrup("nameStrn HasHeading PValStrnEndGInt "PDefGrup4"nameStrn ColumnWidthsEncoInt PValStrnEndGInt "PDefGrup("nameStrn ColumnCount PValInt EndGInt "PDefGrup("nameStrnEnabled PValStrnTrueEndGInt "PDefGrup0"nameStrnAutoDeactivate PValStrnTrueEndGInt "PDefGrup0"nameStrnHelpTag EncoInt PValStrnEndGInt "PDefGrup("nameStrnVisible PValStrnTrueEndGInt "PDefGrup,"nameStrn TabPanelIndex PValInt EndGInt "PDefGrup,"nameStrn LockBottom PValStrnTrueEndGInt "PDefGrup,"nameStrn LockRight PValStrnTrueEndGInt "PDefGrup("nameStrnLockTop PValStrnTrueEndGInt "PDefGrup("nameStrnLockLeftPValStrnTrueEndGInt "PDefGrup$"nameStrnHeight PValInt EndGInt "PDefGrup$"nameStrnWidth PValInt EndGInt "PDefGrup "nameStrnTop PValInt 4EndGInt "PDefGrup "nameStrnLeftPValInt EndGInt "PDefGrup8"nameStrn ControlOrderEncoInt PValStrn1 EndGInt "PDefGrup8"nameStrnSuper EncoInt PValStrnListBox EndGInt "PDefGrup$"nameStrnIndex PValInt EndGInt "PDefGrup4"nameStrnNameEncoInt PValStrnListBox1EndGInt "CBixInt EndGInt "CtrlGrup"cclsStrn PushButton nameStrn PushButton PDefGrup8"nameStrn InitialParent EncoInt 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 "PDefGrup("nameStrnEnabled PValStrnTrueEndGInt "PDefGrup$"nameStrnCancel PValStrnEndGInt "PDefGrup$"nameStrnDefault PValStrnEndGInt "PDefGrupL"nameStrnCaption EncoInt PValStrnLoad File As Multiple Clips EndGInt "PDefGrup,"nameStrn TabPanelIndex PValInt EndGInt "PDefGrup0"nameStrn LockBottom PValStrnFalse EndGInt "PDefGrup,"nameStrn LockRight PValStrnTrueEndGInt "PDefGrup("nameStrnLockTop PValStrnTrueEndGInt "PDefGrup,"nameStrnLockLeftPValStrnFalse EndGInt "PDefGrup$"nameStrnHeight PValInt EndGInt "PDefGrup$"nameStrnWidth PValInt EndGInt "PDefGrup "nameStrnTop PValInt EndGInt "PDefGrup "nameStrnLeftPValInt EndGInt "PDefGrup("nameStrn ControlOrderPValInt EndGInt "PDefGrup<"nameStrnSuper EncoInt PValStrn PushButton EndGInt "PDefGrup$"nameStrnIndex PValInt EndGInt "PDefGrup8"nameStrnNameEncoInt PValStrn PushButton2 EndGInt "CBixInt EndGInt "CtrlGrup#cclsStrn RadioButton nameStrn RadioButton PDefGrup8#nameStrn InitialParent EncoInt PValStrnEndGInt #PDefGrup$#nameStrnValue 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 # PDefGrup(# nameStrnEnabled PValStrnTrueEndGInt # PDefGrupD# nameStrnCaption EncoInt PValStrnSend to Cllipboard EndGInt # PDefGrup,# nameStrn TabPanelIndex PValInt EndGInt # PDefGrup,#nameStrn LockBottom PValStrnTrueEndGInt #PDefGrup(#nameStrn LockRight PValStrnEndGInt #PDefGrup$#nameStrnLockTop PValStrnEndGInt #PDefGrup(#nameStrnLockLeftPValStrnTrueEndGInt #PDefGrup$#nameStrnHeight PValInt EndGInt #PDefGrup$#nameStrnWidth PValInt EndGInt #PDefGrup #nameStrnTop PValInt EndGInt #PDefGrup #nameStrnLeftPValInt EndGInt #PDefGrup(#nameStrn ControlOrderPValInt EndGInt #PDefGrup<#nameStrnSuper EncoInt PValStrn RadioButton EndGInt #PDefGrup$#nameStrnIndex PValInt EndGInt #PDefGrup8#nameStrnNameEncoInt PValStrn RadioButton1EndGInt #CBixInt EndGInt #CtrlGrup#cclsStrn RadioButton nameStrn RadioButton PDefGrup8#nameStrn InitialParent EncoInt PValStrnEndGInt #PDefGrup$#nameStrnValue 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 #$PDefGrup(#%nameStrnEnabled PValStrnTrueEndGInt #%PDefGrup`#&nameStrnCaption EncoInt PValStrn0Send To Program (doesn't work with all programs)EndGInt #&PDefGrup,#'nameStrn TabPanelIndex PValInt EndGInt #'PDefGrup,#(nameStrn LockBottom PValStrnTrueEndGInt #(PDefGrup,#)nameStrn LockRight PValStrnTrueEndGInt #)PDefGrup$#*nameStrnLockTop PValStrnEndGInt #*PDefGrup$#+nameStrnLockLeftPValStrnEndGInt #+PDefGrup$#,nameStrnHeight PValInt EndGInt #,PDefGrup$#-nameStrnWidth PValInt 1EndGInt #-PDefGrup #.nameStrnTop PValInt EndGInt #.PDefGrup #/nameStrnLeftPValInt EndGInt #/PDefGrup(#0nameStrn ControlOrderPValInt EndGInt #0PDefGrup<#1nameStrnSuper EncoInt PValStrn RadioButton EndGInt #1PDefGrup$#2nameStrnIndex PValInt EndGInt #2PDefGrup8#3nameStrnNameEncoInt PValStrn RadioButton1EndGInt #3CBixInt EndGInt #PadnPadn,********************************************BlokpObjNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$#4nameStrnMenuBar PValInt EndGInt #4VwBhGrup#5EndGInt #5PadnPadn ************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj'NameStrnWindowExtensionsContInt paswStrnbClsInt bNtrInt CompStrnMethGrup#6nameStrnChangeWindowState CompStrnVsblInt sorcGrup$#7EncoInt srclStrn>Sub ChangeWindowState(extends wnd as Window, style as Integer) srclStrn#if TargetWin32 srclStrnIDeclare Sub ShowWindow Lib "User32" (wnd As Integer, nCmdShow As Integer) srclStrn ShowWindow( wnd.WinHWND, style )srclStrn#endif srclStrnEnd Sub EndGInt #7EncoInt AlasStrnflagInt shrdInt parmStrn'extends wnd as Window, style as Integer rsltStrnEndGInt #6MethGrup #8nameStrnIsToolbarNoFocusWindow CompStrnVsblInt sorcGrup@#9EncoInt srclStrnGSub IsToolbarNoFocusWindow(extends w as Window, assigns set as Boolean) srclStrn#Const WS_EX_TOOLWINDOW = &h00000080 srclStrn"Const WS_EX_NOACTIVATE = &H8000000 srclStrnsrclStrnPChangeWindowStyleEx( w, bitwise.bitor(WS_EX_NOACTIVATE, WS_EX_TOOLWINDOW), set )srclStrnEnd Sub EndGInt #9EncoInt AlasStrnflagInt shrdInt parmStrn+extends w as Window, assigns set as Boolean rsltStrnEndGInt #8MethGrup#:nameStrnChangeWindowStyleEx CompStrnVsblInt sorcGrup#;EncoInt srclStrnESub ChangeWindowStyleEx(w as Window, flag as Integer, set as Boolean) srclStrn#if TargetWin32 srclStrnDim oldFlags as Integer srclStrnDim newFlags as Integer srclStrnDim styleFlags As Integer srclStrnsrclStrnConst SWP_NOSIZE = &H1 srclStrnConst SWP_NOMOVE = &H2 srclStrnConst SWP_NOZORDER = &H4srclStrnConst SWP_FRAMECHANGED = &H20 srclStrnsrclStrnConst GWL_EXSTYLE = -20 srclStrnsrclStrnWDeclare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (hwnd As Integer, _ srclStrnnIndex As Integer) As Integer srclStrnVDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (hwnd As Integer, _ srclStrn3nIndex As Integer, dwNewLong As Integer) As Integer srclStrn[Declare Function SetWindowPos Lib "user32" (hwnd as Integer, hWndInstertAfter as Integer, _ srclStrnVx as Integer, y as Integer, cx as Integer, cy as Integer, flags as Integer) as Integer srclStrnsrclStrn0oldFlags = GetWindowLong(w.WinHWND, GWL_EXSTYLE)srclStrnsrclStrnif not set then srclStrnAnewFlags = BitwiseAnd( oldFlags, Bitwise.OnesComplement( flag ) ) srclStrnelsesrclStrn&newFlags = BitwiseOr( oldFlags, flag ) srclStrnend srclStrnsrclStrnsrclStrn>styleFlags = SetWindowLong( w.WinHWND, GWL_EXSTYLE, newFlags ) srclStrnBstyleFlags = SetWindowPos( w.WinHWND, 0, 0, 0, 0, 0, SWP_NOMOVE +_ srclStrn.SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED ) srclStrn#endif srclStrnEnd Sub EndGInt #;EncoInt AlasStrnflagInt !shrdInt parmStrn,w as Window, flag as Integer, set as BooleanrsltStrnEndGInt #:MethGrup8#nameStrnTopmost CompStrnVsblInt sorcGrupt#?EncoInt srclStrn8Sub Topmost(extends w as Window, assigns set as Boolean)srclStrn#if TargetWin32 srclStrn Const WS_EX_TOPMOST = &h00000008srclStrn,ChangeWindowStyleEx( w, WS_EX_TOPMOST, set )srclStrnsrclStrnConst SWP_NOSIZE = &H1 srclStrnConst SWP_NOMOVE = &H2 srclStrnConst HWND_TOPMOST = -1 srclStrnConst HWND_NOTOPMOST = -2 srclStrnsrclStrn[Declare Function SetWindowPos Lib "user32" (hwnd as Integer, hWndInstertAfter as Integer, _ srclStrnVx as Integer, y as Integer, cx as Integer, cy as Integer, flags as Integer) as Integer srclStrnsrclStrndim after as IntegersrclStrn if set then srclStrnafter = HWND_TOPMOSTsrclStrnelsesrclStrnafter = HWND_NOTOPMOST srclStrnend srclStrnJCall SetWindowPos( w.WinHWND, after, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE ) srclStrn#endif srclStrnEnd Sub EndGInt #?EncoInt AlasStrnflagInt shrdInt parmStrn+extends w as Window, assigns set as Boolean rsltStrnEndGInt #>MethGrupt#@nameStrnTopmost CompStrnVsblInt sorcGrup#AEncoInt srclStrn0Function Topmost(extends w as Window) As BooleansrclStrn Const WS_EX_TOPMOST = &h00000008srclStrn,return TestWindowStyleEx( w, WS_EX_TOPMOST )srclStrn End FunctionEndGInt #AEncoInt AlasStrnflagInt shrdInt parmStrnextends w as Window rsltStrnBoolean EndGInt #@MethGrup#BnameStrnIsToolbarNoFocusWindow CompStrnVsblInt sorcGrup#CEncoInt srclStrn?Function IsToolbarNoFocusWindow(extends w as Window) As Boolean srclStrn#Const WS_EX_TOOLWINDOW = &h00000080 srclStrn/return TestWindowStyleEx( w, WS_EX_TOOLWINDOW ) srclStrn End FunctionEndGInt #CEncoInt AlasStrnflagInt shrdInt parmStrnextends w as Window rsltStrnBoolean EndGInt #BVwBhGrup#DVwPrGrup0#ENameStrnNameVsblInt PrGpStrnID EndGInt #EVwPrGrupL#FNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 EndGInt #FVwPrGrup4#GNameStrnSuper VsblInt PrGpStrnID EndGInt #GVwPrGrupD#HNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 EndGInt #HVwPrGrupD#INameStrnTop VsblInt PrGpStrnPositionPValStrn0 EndGInt #IEndGInt #DPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup #JOTabGrup#KContInt eSptInt EndGInt #KOTabGrup#LContInt EndGInt #LOTabGrup#MContInt EndGInt #MOTabGrup#NContInt hEndGInt #NOTabGrup#OContInt EndGInt #OLsLcStrnWindow1 Layout rEdtRect.EndGInt #JPadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!