paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 15:41:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynCompletion: Ensure Position is in range.

Browse Source
This commit is contained in:
Martin 2021-12-29 14:20:31 +01:00
parent f727f4dfa3
commit 0e94a6b1db
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/syncompletion.pas
View File

@ -171,7 +171,7 @@ type
procedure ScrollScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure SetItemList(const Value: TStrings);
procedure SetPosition(const Value: Integer);
procedure SetPosition(Value: Integer);
procedure SetNbLinesInWindow(const Value: Integer);
{$IFDEF HintClickWorkaround}
procedure HintWindowMouseDown(Sender: TObject; Button: TMouseButton;
@ -1349,18 +1349,17 @@ begin
end;
end;
procedure TSynBaseCompletionForm.SetPosition(const Value: Integer);
procedure TSynBaseCompletionForm.SetPosition(Value: Integer);
begin
if Value < ItemList.Count then begin
if FPosition <> Value then begin
FPosition := Value;
if Position < Scroll.Position then
Scroll.Position := Position
else if Scroll.Position < Position - NbLinesInWindow + 1 then
Scroll.Position := Position - NbLinesInWindow + 1;
Invalidate;
if Assigned(OnPositionChanged) then OnPositionChanged(Self);
end;
Value := MinMax(Value, 0, ItemList.Count - 1);
if FPosition <> Value then begin
FPosition := Value;
if Position < Scroll.Position then
Scroll.Position := Position
else if Scroll.Position < Position - NbLinesInWindow + 1 then
Scroll.Position := Position - NbLinesInWindow + 1;
Invalidate;
if Assigned(OnPositionChanged) then OnPositionChanged(Self);
end;
if Showing then
ShowItemHint(Position);