paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 11:40:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

limited completion box hint to screen width, otherwise some window managers will put it somewhere

Browse Source 
git-svn-id: trunk@9014 -
This commit is contained in:
mattias 2006-03-25 12:46:24 +00:00
parent 3166c7b2cc
commit bea76b8d1a
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/syncompletion.pas
View File

@ -42,7 +42,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLProc, LCLIntf, LCLType, SynEditTextBuffer, Messages, LMessages,
Math, LCLProc, LCLIntf, LCLType, SynEditTextBuffer, Messages, LMessages,
{$ELSE}
Windows, SynEditTypes, Messages,
{$ENDIF}
@ -462,8 +462,11 @@ begin
Exit;
end;
// calculate the position
P := ClientToScreen(Point(0, (AIndex - Scroll.Position) * FFontHeight));
R := FHint.CalcHintRect(Screen.Width, ItemList[AIndex], nil);
// calculate the size
R := FHint.CalcHintRect(Screen.Width-10-P.X, ItemList[AIndex], nil);
R.Right:=Min(R.Right,Screen.Width-20-P.X);
FHint.ActivateHint(Bounds(P.X, P.Y, R.Right, R.Bottom), ItemList[AIndex]);
FHint.Invalidate;
@ -846,7 +849,10 @@ begin
Invalidate;
end;
end;
ShowItemHint(Position);
{$IFDEF SYN_LAZARUS}
if Showing then
ShowItemHint(Position);
{$ENDIF}
end;
procedure TSynBaseCompletionForm.StringListChange(Sender: TObject);

2
ide/uniteditor.pp
View File

@ -2898,7 +2898,7 @@ begin
else
Font.Color:=FActiveEditSelectedFGColor;
end;
MaxX := Screen.Width;
MaxX := Screen.Width-20;
Result := PaintCompletionItem(AKey,ACanvas,0,0,MaxX,ItemSelected,Index,aCompletion,
CurrentCompletionType, True);
if CurCompletionControl<>nil then