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

nothing

This commit is contained in:
Basile Burg 2016-08-21 06:11:33 +02:00
parent d9809f0e81
commit 284d2ee070
3 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_editor.pas
View File

@ -367,8 +367,6 @@ begin
end; end;
{$ENDREGION} {$ENDREGION}
// todo-cpagecontrol: display the two mole names when split mode is activated
{$REGION ICEDocumentObserver ---------------------------------------------------} {$REGION ICEDocumentObserver ---------------------------------------------------}
procedure TCEEditorWidget.docNew(document: TCESynMemo); procedure TCEEditorWidget.docNew(document: TCESynMemo);
var var

12
src/ce_libmaneditor.lfm
View File

@ -63,7 +63,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 633 Width = 633
object btnSelProj: TCEToolButton[0] object btnSelProj: TCEToolButton[0]
Left = 356 Left = 353
Hint = 'set the project that compiles the selected entry' Hint = 'set the project that compiles the selected entry'
Top = 0 Top = 0
Caption = 'button3' Caption = 'button3'
@ -72,7 +72,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelRoot: TCEToolButton[1] object btnSelRoot: TCEToolButton[1]
Left = 328 Left = 325
Hint = 'set the root of the library sources' Hint = 'set the root of the library sources'
Top = 0 Top = 0
Caption = 'button4' Caption = 'button4'
@ -81,7 +81,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelfoldOfFiles: TCEToolButton[2] object btnSelfoldOfFiles: TCEToolButton[2]
Left = 300 Left = 297
Hint = 'select a folder containing several d sources (optional trick)' Hint = 'select a folder containing several d sources (optional trick)'
Top = 0 Top = 0
Caption = 'button5' Caption = 'button5'
@ -90,7 +90,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelFile: TCEToolButton[3] object btnSelFile: TCEToolButton[3]
Left = 272 Left = 269
Hint = 'selected the static library file' Hint = 'selected the static library file'
Top = 0 Top = 0
Caption = 'button6' Caption = 'button6'
@ -99,7 +99,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
scaledSeparator = False scaledSeparator = False
end end
object btnEditAlias: TCEToolButton[4] object btnEditAlias: TCEToolButton[4]
Left = 244 Left = 241
Hint = 'set the entry alias' Hint = 'set the entry alias'
Top = 0 Top = 0
Caption = 'button7' Caption = 'button7'
@ -111,7 +111,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 225 Left = 225
Height = 28 Height = 28
Top = 0 Top = 0
Width = 19 Width = 16
Caption = 'button8' Caption = 'button8'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False

6
src/ce_synmemo.pas
View File

@ -1915,10 +1915,10 @@ begin
if token^.data = 'module' then if token^.data = 'module' then
fModuleTokFound := true fModuleTokFound := true
else else
// "module" is always the first KW
stop := true; stop := true;
exit; end
end; else if fModuleTokFound and (token^.kind = ltkSymbol) and (token^.data = ';') then
if fModuleTokFound and (token^.kind = ltkSymbol) and (token^.data = ';') then
begin begin
stop := true; stop := true;
fModuleTokFound := false; fModuleTokFound := false;