AIR/Aide
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added 'RaGetTab' function to retrieve the current tab

Browse Source
This commit is contained in:
AIR 2023-01-14 13:13:21 -05:00
parent f6c95b997d
commit 8ab2a5de22
2 changed files with 44 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
Aide.bas
View File

@ -136,30 +136,7 @@ SUB SetTabLabelText(fname$, index AS INTEGER)
TabCtrl_SetItem(ghMainTab, index, &tabItem) TabCtrl_SetItem(ghMainTab, index, &tabItem)
END SUB END SUB
SUB RaSaveFile(hEDT as HWND)
DIM eSIZE, fNAME$, tabName$
eSIZE = GetWindowTextLength(hEDT)
DIM eTEXT$*eSIZE+1
tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))
IF tabName$ = "New.bas" THEN
fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0)
ELSE
fNAME$ = tabName$
END IF
IF LEN(fNAME$) THEN
eTEXT$ = BCX_GET_TEXT$(hEDT)
OPEN fNAME$ FOR BINARY NEW AS FP1
PUT$ FP1, eTEXT$, LEN(eTEXT$)
CLOSE FP1
SetTabLabelText(fNAME$, TabCtrl_GetCurSel(ghMainTab))
END IF
END SUB
'================================================================ '================================================================
BEGIN EVENTS BEGIN EVENTS
@ -172,39 +149,39 @@ BEGIN EVENTS
CASE mnuOpen CASE mnuOpen
dim fname$ dim fname$
IF TRIM$(GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))) <> "New.bas" THEN IF TRIM$(GetTabLabelText(RaGetTab())) <> "New.bas" THEN
RaNewEdit() RaNewEdit()
END IF END IF
fname$ = RaLoadFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) fname$ = RaLoadFile(ghEdit[RaGetTab()])
IF LEN(fname$) THEN IF LEN(fname$) THEN
SetTabLabelText(fname$, TabCtrl_GetCurSel(ghMainTab)) SetTabLabelText(fname$, RaGetTab())
END IF END IF
CASE mnuSave CASE mnuSave
RaSaveFile(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaSaveFile(ghEdit[RaGetTab()])
CASE mnuNew CASE mnuNew
RaNewEdit() RaNewEdit()
CASE mnuCut CASE mnuCut
RaCut(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaCut(ghEdit[RaGetTab()])
CASE mnuCopy CASE mnuCopy
RaCopy(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaCopy(ghEdit[RaGetTab()])
CASE mnuPaste CASE mnuPaste
RaPaste(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaPaste(ghEdit[RaGetTab()])
CASE mnuSELECTALL CASE mnuSELECTALL
RaSelectAll(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaSelectAll(ghEdit[RaGetTab()])
CASE mnuUNDO CASE mnuUNDO
RaUndo(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaUndo(ghEdit[RaGetTab()])
CASE mnuREDO CASE mnuREDO
RaRedo(ghEdit[TabCtrl_GetCurSel(ghMainTab)]) RaRedo(ghEdit[RaGetTab()])
CASE mnuEXIT CASE mnuEXIT
PostMessage(hWnd, WM_CLOSE, 0, 0) PostMessage(hWnd, WM_CLOSE, 0, 0)
@ -244,12 +221,12 @@ BEGIN EVENTS
IF LPNMHDR->code >= TCN_LAST && LPNMHDR->code <= TCN_FIRST THEN IF LPNMHDR->code >= TCN_LAST && LPNMHDR->code <= TCN_FIRST THEN
SELECT CASE LPNMHDR->code SELECT CASE LPNMHDR->code
CASE TCN_SELCHANGE CASE TCN_SELCHANGE
PageNo = TabCtrl_GetCurSel(ghMainTab) PageNo = RaGetTab()
SetFocus(ghEdit[PageNo]) SetFocus(ghEdit[PageNo])
END SELECT END SELECT
END IF END IF
IF LPNMHDR->hwndFrom = ghEdit[TabCtrl_GetCurSel(ghMainTab)] THEN IF LPNMHDR->hwndFrom = ghEdit[RaGetTab()] THEN
IF LPNMHDR->code = EN_SELCHANGE THEN IF LPNMHDR->code = EN_SELCHANGE THEN
' Update statusbar ' Update statusbar
@ -259,20 +236,20 @@ BEGIN EVENTS
IF lpRASELCHANGE->seltyp = SEL_OBJECT THEN IF lpRASELCHANGE->seltyp = SEL_OBJECT THEN
' Bookmark clicked ' Bookmark clicked
bm=SendMessage(ghEdit[TabCtrl_GetCurSel(ghMainTab)],REM_GETBOOKMARK, lpRASELCHANGE->line,0) bm=SendMessage(ghEdit[RaGetTab()],REM_GETBOOKMARK, lpRASELCHANGE->line,0)
SELECT CASE bm SELECT CASE bm
CASE 1 CASE 1
' Collapse ' Collapse
SendMessage(ghEdit[TabCtrl_GetCurSel(ghMainTab)],REM_COLLAPSE, lpRASELCHANGE->line,0) SendMessage(ghEdit[RaGetTab()],REM_COLLAPSE, lpRASELCHANGE->line,0)
CASE 2 CASE 2
' Expand ' Expand
SendMessage(ghEdit[TabCtrl_GetCurSel(ghMainTab)],REM_EXPAND, lpRASELCHANGE->line,0) SendMessage(ghEdit[RaGetTab()],REM_EXPAND, lpRASELCHANGE->line,0)
END SELECT END SELECT
ELSE ELSE
' Selection changed ' Selection changed
IF lpRASELCHANGE->fchanged THEN IF lpRASELCHANGE->fchanged THEN
' Update block bookmarks ' Update block bookmarks
SendMessage(ghEdit[TabCtrl_GetCurSel(ghMainTab)],REM_SETBLOCKS,0,0) SendMessage(ghEdit[RaGetTab()],REM_SETBLOCKS,0,0)
END IF END IF
END IF END IF
END IF END IF
@ -289,7 +266,7 @@ BEGIN EVENTS
Case WM_CONTEXTMENU Case WM_CONTEXTMENU
DIM AS POINT pt DIM AS POINT pt
If wParam=(WPARAM)ghTab[TabCtrl_GetCurSel(ghMainTab)] Then If wParam=(WPARAM)ghTab[RaGetTab()] Then
pt.x = LOWORD(lParam) pt.x = LOWORD(lParam)
pt.y = HIWORD(lParam) pt.y = HIWORD(lParam)
TrackPopupMenu( GetSubMenu( GetMenu(hWnd), 1 ), TPM_LEFTALIGN or TPM_RIGHTBUTTON, pt.x, pt.y, 0, hWnd, 0 ) TrackPopupMenu( GetSubMenu( GetMenu(hWnd), 1 ), TPM_LEFTALIGN or TPM_RIGHTBUTTON, pt.x, pt.y, 0, hWnd, 0 )

27
raedit.inc
View File

@ -152,6 +152,33 @@ FUNCTION RaLoadFile(edt AS HWND) AS STRING
FUNCTION = RetStr$ FUNCTION = RetStr$
END FUNCTION END FUNCTION
SUB RaSaveFile(hEDT as HWND)
DIM eSIZE, fNAME$, tabName$
eSIZE = GetWindowTextLength(hEDT)
DIM eTEXT$*eSIZE+1
tabName$ = GetTabLabelText(TabCtrl_GetCurSel(ghMainTab))
IF tabName$ = "New.bas" THEN
fNAME$ = GETFILENAME$("Save","BCX Files|*.BAS;*.INC;*.bi;*.bci",1,ghMainFrm,0,0,tabName$,0)
ELSE
fNAME$ = tabName$
END IF
IF LEN(fNAME$) THEN
eTEXT$ = BCX_GET_TEXT$(hEDT)
OPEN fNAME$ FOR BINARY NEW AS FP1
PUT$ FP1, eTEXT$, LEN(eTEXT$)
CLOSE FP1
SetTabLabelText(fNAME$, RaGetTab())
END IF
END SUB
FUNCTION RaGetTab() AS INTEGER
FUNCTION = TabCtrl_GetCurSel(ghMainTab)
END FUNCTION
SUB RaGotoLine(hEDT as HWND, Line AS INTEGER) SUB RaGotoLine(hEDT as HWND, Line AS INTEGER)
Dim chrg As CHARRANGE Dim chrg As CHARRANGE
DIM GotoLine DIM GotoLine