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************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFTyh†ÿNameStrn FileTypes ContInt paswStrnfTypGrup\"QnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt NameStrnTextEndGInt "QPadnPadn0************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewÀPNameStrnWindow1 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,********************************************BlokpObjÀŽNameStrnApp 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 h†ÿEndGInt #NOTabGrup#OContInt ÀŽEndGInt #OLsLcStrnWindow1 Layout rEdtRect.ªEndGInt #JPadnPadn°****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!