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

removed irrelevant warning under linux

This commit is contained in:
Basile Burg 2014-11-26 04:31:04 +01:00
parent 37f281c1df
commit 525c3ea1e1
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_synmemo.pas
View File

@ -94,29 +94,32 @@ end;
procedure TCESynMemoPositions.back; procedure TCESynMemoPositions.back;
begin begin
Inc(fPos); Inc(fPos);
{$WARNINGS OFF}
if fPos < fList.Count then if fPos < fList.Count then
fMemo.CaretY := Integer(fList.Items[fPos]) fMemo.CaretY := NativeInt(fList.Items[fPos])
{$WARNINGS ON}
else Dec(fPos); else Dec(fPos);
end; end;
procedure TCESynMemoPositions.next; procedure TCESynMemoPositions.next;
begin begin
Dec(fPos); Dec(fPos);
{$WARNINGS OFF}
if fPos > -1 then if fPos > -1 then
fMemo.CaretY := Integer(fList.Items[fPos]) fMemo.CaretY := NativeInt(fList.Items[fPos])
{$WARNINGS ON}
else Inc(fPos); else Inc(fPos);
end; end;
procedure TCESynMemoPositions.store; procedure TCESynMemoPositions.store;
begin begin
fPos := 0; fPos := 0;
if fList.Count > 0 then
{$WARNINGS OFF} {$WARNINGS OFF}
if Integer(fList.Items[fPos]) = fMemo.CaretY then if fList.Count > 0 then
if NativeInt(fList.Items[fPos]) = fMemo.CaretY then
exit; exit;
fList.Insert(0, Pointer(NativeInt(fMemo.CaretY)));
{$WARNINGS ON} {$WARNINGS ON}
//
fList.Insert(0, Pointer(fMemo.CaretY));
while fList.Count > fMax do while fList.Count > fMax do
fList.Delete(fList.Count-1); fList.Delete(fList.Count-1);
end; end;