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

comment cleanup

This commit is contained in:
Basile Burg 2020-04-25 02:10:33 +02:00
parent 318f2419e7
commit 9ab0537c6c
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/u_synmemo.pas
View File

@ -54,7 +54,7 @@ type
TIdentifierMatchOptions = set of TIdentifierMatchOption; TIdentifierMatchOptions = set of TIdentifierMatchOption;
// Simple THintWindow descendant allowing the font size to be in sync with the editor. // Simple THintWindow derived that keep its font size in sync with the editor.
TEditorHintWindow = class(THintWindow) TEditorHintWindow = class(THintWindow)
public public
class var FontSize: Integer; class var FontSize: Integer;
@ -70,7 +70,7 @@ type
public public
// like ActivateHint(string) but // like ActivateHint(string) but
// prevent overzealous opimizations that prevent flickering // prevent overzealous opimizations that prevent flickering
// that become a problem when the hint string is dynamic. // but that become a problem when the hint string is dynamic.
procedure ActivateDynamicHint(const AHint: String); procedure ActivateDynamicHint(const AHint: String);
function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override; function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
procedure Paint; override; procedure Paint; override;
@ -89,7 +89,7 @@ type
property nestedIndex: Integer read fNestedIndex write fNestedIndex; property nestedIndex: Integer read fNestedIndex write fNestedIndex;
end; end;
// Stores the state of a document between two cessions. // Stores the state of a document between two sessions.
TSynMemoCache = class(TWritableLfmTextComponent) TSynMemoCache = class(TWritableLfmTextComponent)
private private
fMemo: TDexedMemo; fMemo: TDexedMemo;
@ -3233,7 +3233,7 @@ end;
procedure TDexedMemo.highlightCurrentIdentifier; procedure TDexedMemo.highlightCurrentIdentifier;
var var
str: string; s: string;
i: integer; i: integer;
begin begin
fIdentifier := GetWordAtRowCol(LogicalCaretXY); fIdentifier := GetWordAtRowCol(LogicalCaretXY);
@ -3241,15 +3241,15 @@ begin
SetHighlightSearch(fIdentifier, fMatchIdentOpts) SetHighlightSearch(fIdentifier, fMatchIdentOpts)
else if SelAvail and (BlockBegin.Y = BlockEnd.Y) then else if SelAvail and (BlockBegin.Y = BlockEnd.Y) then
begin begin
str := SelText; s := SelText;
for i := 1 to str.length do for i := 1 to s.length do
begin begin
if not (str[i] in [' ', #10, #13]) then if not (s[i] in [' ', #9, #10, #13]) then
begin begin
SetHighlightSearch(str, fMatchSelectionOpts); SetHighlightSearch(s, fMatchSelectionOpts);
break; break;
end; end;
if i = str.length then if i = s.length then
SetHighlightSearch('', []); SetHighlightSearch('', []);
end; end;
end end
@ -3876,8 +3876,6 @@ procedure TDexedMemo.showHintEvent(Sender: TObject; HintInfo: PHintInfo);
var var
p: TPoint; p: TPoint;
begin begin
//if cursor <> crDefault then
// exit;
p := ScreenToClient(mouse.CursorPos); p := ScreenToClient(mouse.CursorPos);
if p.x > Gutter.MarksPart.Width then if p.x > Gutter.MarksPart.Width then
exit; exit;