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

renamed getMouseStart to getMouseFileBytePos

This commit is contained in:
Basile Burg 2015-03-17 01:35:26 +01:00
parent 3a5b9cf941
commit a346e6c4ee
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_synmemo.pas
View File

@ -5,10 +5,9 @@ unit ce_synmemo;
interface interface
uses uses
Classes, SysUtils, SynEdit, ce_d2syn, ce_txtsyn ,SynEditHighlighter, controls, Classes, SysUtils, controls,lcltype, Forms, graphics, ExtCtrls, crc, SynEditKeyCmds,
lcltype, LazSynEditText, SynEditKeyCmds, SynHighlighterLFM, SynEditMouseCmds, LazSynEditText, SynEditHighlighter, SynEdit, SynHighlighterLFM, SynEditMouseCmds,
SynEditFoldedView, crc, ce_common, ce_observer, ce_writableComponent, Forms, SynEditFoldedView, ce_common, ce_observer, ce_writableComponent, ce_d2syn, ce_txtsyn;
graphics, ExtCtrls, LMessages, messages;
type type
@ -94,7 +93,7 @@ type
fHintTimer: TIdleTimer; fHintTimer: TIdleTimer;
fCanShowHint: boolean; fCanShowHint: boolean;
fOldMousePos: TPoint; fOldMousePos: TPoint;
function getMouseStart: Integer; function getMouseFileBytePos: Integer;
procedure changeNotify(Sender: TObject); procedure changeNotify(Sender: TObject);
procedure identifierToD2Syn; procedure identifierToD2Syn;
procedure saveCache; procedure saveCache;
@ -133,7 +132,7 @@ type
property isProjectSource: boolean read fIsConfig; property isProjectSource: boolean read fIsConfig;
property TextView; property TextView;
// //
property MouseStart: Integer read getMouseStart; property MouseStart: Integer read getMouseFileBytePos;
end; end;
var var
@ -616,14 +615,14 @@ begin
end else fCallTipWin.Hide; end else fCallTipWin.Hide;
end; end;
function TCESynMemo.getMouseStart: Integer; function TCESynMemo.getMouseFileBytePos: Integer;
var var
i, le: Integer; i, len: Integer;
begin begin
result := 0; result := 0;
le := getLineEndingLength(fFilename); len := getLineEndingLength(fFilename);
for i:= 0 to fMousePos.y-2 do for i:= 0 to fMousePos.y-2 do
result += length(Lines.Strings[i]) + le; result += length(Lines.Strings[i]) + len;
result += fMousePos.x; result += fMousePos.x;
end; end;