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 2015-03-12 10:39:02 +01:00
parent 937f2b0db8
commit 88577f9a76
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_editor.pas
View File

@ -19,6 +19,8 @@ type
procedure SetVisible(Value: Boolean); override; procedure SetVisible(Value: Boolean); override;
end; end;
{ TCEEditorWidget }
TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver, ICEMultiDocHandler, ICEEditableShortCut) TCEEditorWidget = class(TCEWidget, ICEMultiDocObserver, ICEMultiDocHandler, ICEEditableShortCut)
PageControl: TExtendedNotebook; PageControl: TExtendedNotebook;
macRecorder: TSynMacroRecorder; macRecorder: TSynMacroRecorder;
@ -328,11 +330,12 @@ begin
updateImperative; updateImperative;
case Byte(Key) of case Byte(Key) of
VK_CLEAR,VK_RETURN,VK_BACK : fKeyChanged := true; VK_CLEAR,VK_RETURN,VK_BACK : fKeyChanged := true;
//VK_OEM_PERIOD, VK_DECIMAL: completion.Execute('.', fDoc.ClientToScreen(
// point(fDoc.CaretXPix, top + fDoc.CaretYPix)));
end; end;
if fKeyChanged then if fKeyChanged then
beginDelayedUpdate; beginDelayedUpdate
// else if (Key = VK_UP) and (shift = [ssShift,ssCtrl]) then
if (Key = VK_UP) and (shift = [ssShift,ssCtrl]) then
getSymbolLoc; getSymbolLoc;
end; end;
@ -372,10 +375,7 @@ begin
openDocument(fname); openDocument(fname);
if srcpos <> -1 then if srcpos <> -1 then
begin begin
//fDoc.SelStart := srcpos; // note: SelStart only matches srcpos if the target file has the same line ending
//fDoc.SelectWord;
// note: SelStart only matches the srcpos if the target file has the same line ending
// as the operating system: the pos has to be found manually. // as the operating system: the pos has to be found manually.
sum := 0; sum := 0;
lel := getLineEndingLength(fDoc.fileName); lel := getLineEndingLength(fDoc.fileName);