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

Configured Modify indicator

Browse Source
This commit is contained in:
AIR 2023-01-14 02:54:13 -05:00
parent e1687a7c28
commit 92d6f2d715
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
raedit.inc
View File

@ -49,6 +49,8 @@ SUB RaConfigEditor(hEDT as HWND)
SendMessage(hEDT, REM_SETSTYLEEX, STILEEX_STRINGMODEFB, 0) SendMessage(hEDT, REM_SETSTYLEEX, STILEEX_STRINGMODEFB, 0)
SendMessage(hEDT, REM_SETSTYLEEX, STILEEX_LINECHANGED, 0)
' Set Colors and Keywords ' Set Colors and Keywords
RaSetColors(hEDT) RaSetColors(hEDT)
RaLoadKeyWords(hEDT) RaLoadKeyWords(hEDT)
@ -134,13 +136,18 @@ FUNCTION RaLoadFile(edt AS HWND) AS STRING
DIM AS CHARRANGE chrg DIM AS CHARRANGE chrg
RetStr$ = GetFileName$("Open File...", "BCX Files|*.BAS;*.INC;*.bi;*.bci") RetStr$ = GetFileName$("Open File...", "BCX Files|*.BAS;*.INC;*.bi;*.bci")
IF Len(RetStr$) THEN IF Len(RetStr$) THEN
EDITLOADFILE(edt, RetStr$) EDITLOADFILE(edt, RetStr$)
chrg.cpMin = 0 chrg.cpMin = 0
chrg.cpMax = 0 chrg.cpMax = 0
SendMessage(edt, EM_EXSETSEL, 0, &chrg) SendMessage(edt, EM_EXSETSEL, 0, &chrg)
SendMessage(edt, EM_SCROLLCARET, 0, 0) SendMessage(edt, EM_SCROLLCARET, 0, 0)
SendMessage(edt, REM_HILITEACTIVELINE, 0, 2) SendMessage(edt, REM_HILITEACTIVELINE, 0, 2)
SendMessage(edt, EM_SETMODIFY, FALSE, 0)
SendMessage(edt, REM_SETCHANGEDSTATE, FALSE, 0)
SetFocus(edt) SetFocus(edt)
END IF END IF
FUNCTION = RetStr$ FUNCTION = RetStr$
END FUNCTION END FUNCTION