'RegEx to search for SUBs and FUNCTIONs in editor searches '^[ \t]*(public |private)?(sub|function|property|type|create|event|subi)[ \t].* '----- Compiler Directives $OPTIMIZE ON $TYPECHECK ON $ESCAPECHARS ON '----- Code modules $INCLUDE "RapidQ.inc" '$INCLUDE "Files.inc" '----- Win API Function Declarations DECLARE FUNCTION GetFocus LIB "user32" ALIAS "GetFocus"() AS LONG DECLARE FUNCTION Setfocus LIB "user32" ALIAS "SetFocus"(hwnd AS LONG) AS LONG DECLARE FUNCTION SetWindow LIB "user32" ALIAS "SetWindowLongA"_ (hwnd AS LONG, nIndex AS LONG, dwNewLong AS LONG) AS LONG 'DECLARE FUNCTION SendMessageA LIB "user32" ALIAS "SendMessageA" _ ' (hwnd AS LONG, wMsg AS LONG, wParam AS LONG, pf AS LONG) AS LONG '----- SUBs Sub SetMin (Form as QForm) 'Allow RQ App to Minimize to Taskbar Setwindow(Form.Handle, -8, 0) Setwindow(Application.Handle, -8, Form.Handle) End Sub '----- Constants $IFNDEF TRUE $DEFINE TRUE 1 $ENDIF $IFNDEF FALSE $DEFINE FALSE 0 $ENDIF CONST CR = Chr$(13) CONST LF = Chr$(10) CONST CRLF = Chr$(13)+Chr$(10) CONST TB = Chr$(9) 'WinApi CONST WM_USER = &H400 '----- Globals '----- Objects