Debug -1118555958 189 100000918 189 100000721 189 184 239 Debug 3 False False 16777215 0 Debug Window True False False True True True False 0 0 2 429 108 64 64 32000 32000 Debug 140 Window 0 134217984 Debug_Description 1 14 22 14 22 134217984 Debug_Description '============================================================================================================= ' ' Debug Window ' ------------ ' ' Created By : Kevin Wilson ' http://www.TheVBZone.com ( The VB Zone ) ' http://net.TheVBZone.com ( The VB Zone .net ) ' http://rb.TheVBZone.com ( The VB Zone [RB] ) ' ' Last Update : June 20, 2004 ' Created On : Oct 06, 2004 ' ' RB Versions : 5.5 (or higher) ' ' Requires : (Some methods only work under Windows) ' ' Description : The current version of REALbasic (5.5.2) does not have a "Debug" window which you can write ' to at run-time (like Visual Basic does). This module allows you to quickly and easily add ' such functionality to REALbasic. See sample code for proper use. ' ' NOTE : Don't forget to comment out all references to the "Debug Window" when you're getting ready ' to deploy your application as a finished product (you don't want your end users to see your ' DEBUG window pop up). ' ' Sample Use : ' ' Sub Open() ' Debug.Show ' Debug.AlwaysOnTop True ' End Sub ' Function MouseDown(X As Integer, Y As Integer) As Boolean ' Dim Now As New Date ' Debug.Print Now.LongDate + " " + Now.LongTime ' End Function ' Sub Close() ' Debug.Close ' End Sub ' '============================================================================================================= ' ' LEGAL: ' ' You are free to use this code as long as you keep the above heading information intact and unchanged. Credit ' given where credit is due. Also, it is not required, but it would be appreciated if you would mention ' somewhere in your compiled program that that your program makes use of code written and distributed by ' Kevin Wilson (www.TheVBZone.com). Feel free to link to this code via your web site or articles. ' ' You may NOT take this code and pass it off as your own. You may NOT distribute this code on your own server ' or web site. You may NOT take code created by Kevin Wilson (www.TheVBZone.com) and use it to create products, ' utilities, or applications that directly compete with products, utilities, and applications created by Kevin ' Wilson, TheVBZone.com, or Wilson Media. You may NOT take this code and sell it for profit without first ' obtaining the written consent of the author Kevin Wilson. ' ' These conditions are subject to change at the discretion of the owner Kevin Wilson at any time without 27207761726E696E67206F72206E6F746963652E2020436F70797269676874C2A9206279204B6576696E2057696C736F6E2E2020416C6C207269676874732072657365727665642E ' '============================================================================================================= 134217984 Constructor 0 6 5 6 5 134217984 Sub Constructor() ' Position the form Self.Left = 3 Self.Top = Screen(0).AvailableHeight - 122 Self.Width = Screen(0).AvailableWidth - 6 Self.Height = 125 ' Initialize the form Super.Window() 'Call the Window constructor, or Open events will not fire End Sub 134217984 Print ByVal strText As String 0 2 5 2 5 134217984 Sub Print(ByVal strText As String) Self.WriteLine(strText) End Sub 134217984 Write ByVal strText As String 0 6 5 6 5 134217984 Sub Write(ByVal strText As String) Self.Text.SelStart = Len(Self.Text.Text) Self.Text.SelLength = 0 Self.Text.Text = Self.Text.Text + strText Self.Text.SelStart = Len(Self.Text.Text) Self.Text.SelLength = 0 End Sub 134217984 WriteLine ByVal strText As String 0 1 0 1 0 134217984 Sub WriteLine(ByVal strText As String) Self.Text.SelStart = Len(Self.Text.Text) Self.Text.SelLength = 0 Self.Text.Text = Self.Text.Text + strText + EndOfLine Self.Text.SelStart = Len(Self.Text.Text) Self.Text.SelLength = 0 End Sub 134217984 AlwaysOnTop ByVal blnTop As Boolean 0 18 30 18 30 134217984 Sub AlwaysOnTop(ByVal blnTop As Boolean) #If TargetWin32 = False Then Return #EndIf Dim HWND_TOPMOST As Integer = -1 ' Place window at the top of the list, ahead of any topmost windows Dim HWND_NOTOPMOST As Integer = -2 ' Place window at the top of the list, behind any topmost windows Dim SWP_NOMOVE As Integer = &H2 ' Retains current position (x and y are ignored). Dim SWP_NOSIZE As Integer = &H1 ' Retains current size (cx and cy are ignored). Dim SWP_FLAGS As Integer = BitWise.BitOr(SWP_NOMOVE, SWP_NOSIZE) Declare Function SetWindowPos Lib "USER32.DLL" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer Dim intReturn As Integer If blnTop = True Then intReturn = SetWindowPos(Self.WinHWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS) Else intReturn = SetWindowPos(Self.WinHWND, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_FLAGS) End IF End Sub 1536 Close 1 0 1 0 134217984 Sub Close() End Sub 1536 Open 1 0 1 0 134217984 Sub Open() End Sub 188 EditField 0 1536 MouseUp 1 0 1 0 134217984 Sub MouseUp(X As Integer, Y As Integer) End Sub 1536 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 1536 LostFocus 1 0 1 0 134217984 Sub LostFocus() End Sub 1536 MouseExit 1 0 1 0 134217984 Sub MouseExit() End Sub 1536 MouseEnter 1 0 1 0 134217984 Sub MouseEnter() End Sub 1536 MouseDown 12 6 12 6 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean ' If the RIGHT mouse button (COMMAND button on Mac) has not been pressed, exit If IsCMMClick = False Then Return False End If ' Setup the popup menu to display PopMenu.DeleteAllRows #If TargetWin32 Then PopMenu.AddRow "&Undo" PopMenu.AddSeparator #EndIf PopMenu.AddRow "Cu&t" PopMenu.AddRow "&Copy" PopMenu.AddRow "&Paste" PopMenu.AddRow "&Delete" PopMenu.AddSeparator PopMenu.AddRow "Select &All" PopMenu.Open Return False End Function 1536 KeyDown 3 0 3 0 134217984 Function KeyDown(Key As String) As Boolean 'THIS EVENT DOESN'T FIRE IF YOU'VE GOT THE <CTRL> KEY HELD DOWN... OTHERWISE I'D PUT IN LOGIC FOR SHORTCUT KEYS End Function 108 ContextualMenu 0 1536 Open 1 0 1 0 134217984 Sub Open() End Sub 1536 Action 12 52 12 52 134217984 Sub Action(item As String) #If TargetWin32 = True Then Dim EM_CANUNDO As Integer = 198 '&H00C6 Dim EM_UNDO As Integer = 199 '&H00C7 Dim intReturn As Integer Declare Function SendMessageA Lib "USER32.DLL" (ByVal hWnd As Integer, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer #EndIf Select Case Uppercase(Trim(item)) Case "&UNDO" #If TargetWin32 = True Then intReturn = SendMessageA(Text.Handle, EM_UNDO, 0, 0) #EndIf Case "CU&T" Text.Copy Text.SelText = "" Case "&COPY" Text.Copy Case "&PASTE" Text.Paste Case "&DELETE" Text.SelText = "" Case "SELECT &ALL" Text.SelStart = 0 Text.SelLength = Len(Text.Text) End Select End Sub EditField EditField Text -2147483648 0 True 0 1 429 107 True True True True True Courier New 12 False False False True True True True True False False False False 0 True 1 0 16777215 True 0 ContextualMenu ContextualMenu PopMenu -2147483648 0 201 28 False 1