forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix invalid event not removed from gui script

This commit is contained in:
Basile Burg 2014-11-11 22:05:29 +01:00
parent a10f438351
commit cad1a1feb6
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_editor.lfm
View File

@ -1,25 +1,25 @@
inherited CEEditorWidget: TCEEditorWidget inherited CEEditorWidget: TCEEditorWidget
Left = 1324 Left = 1324
Height = 382 Height = 406
Top = 92 Top = 92
Width = 465 Width = 465
Caption = 'Source editor' Caption = 'Source editor'
ClientHeight = 382 ClientHeight = 406
ClientWidth = 465 ClientWidth = 465
inherited Back: TPanel inherited Back: TPanel
Height = 382 Height = 406
Width = 465 Width = 465
ClientHeight = 382 ClientHeight = 406
ClientWidth = 465 ClientWidth = 465
inherited Content: TPanel inherited Content: TPanel
Height = 382 Height = 406
Width = 465 Width = 465
BevelOuter = bvRaised BevelOuter = bvRaised
ClientHeight = 382 ClientHeight = 406
ClientWidth = 465 ClientWidth = 465
object PageControl: TExtendedNotebook[0] object PageControl: TExtendedNotebook[0]
Left = 3 Left = 3
Height = 351 Height = 375
Top = 3 Top = 3
Width = 459 Width = 459
Align = alClient Align = alClient
@ -27,7 +27,6 @@ inherited CEEditorWidget: TCEEditorWidget
Images = imgList Images = imgList
TabOrder = 0 TabOrder = 0
OnChange = PageControlChange OnChange = PageControlChange
OnCloseTabClicked = PageControlCloseTabClicked
Options = [nboShowCloseButtons, nboShowAddTabButton] Options = [nboShowCloseButtons, nboShowAddTabButton]
TabDragMode = dmAutomatic TabDragMode = dmAutomatic
TabDragAcceptMode = dmAutomatic TabDragAcceptMode = dmAutomatic
@ -35,7 +34,7 @@ inherited CEEditorWidget: TCEEditorWidget
object editorStatus: TStatusBar[1] object editorStatus: TStatusBar[1]
Left = 3 Left = 3
Height = 23 Height = 23
Top = 356 Top = 380
Width = 459 Width = 459
BorderSpacing.Around = 2 BorderSpacing.Around = 2
Panels = < Panels = <

2
src/ce_messages.pas
View File

@ -511,7 +511,7 @@ begin
begin begin
if pos > length(aMessg) then if pos > length(aMessg) then
exit; exit;
if aMessg[pos] in [#0..#32, ',', ':', ';', '.'] then if aMessg[pos] in [#0..#32, ',', ':', ';'] then
begin begin
Inc(pos); Inc(pos);
result := checkIdent; result := checkIdent;