Configured Modify indicator

dev
AIR 1 year ago
parent e1687a7c28
commit 92d6f2d715
  1. 7
      raedit.inc

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

Loading…
Cancel
Save