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

SynCompletion: Fix gtk2 only: panel steals KeyDown(key-down/press events from form) and utf8keydown issue #17794

Browse Source 
git-svn-id: trunk@28032 -
This commit is contained in:
martin 2010-11-02 01:49:47 +00:00
parent 8f1ae24251
commit 17efbf82da
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syncompletion.pas
View File

@ -107,6 +107,7 @@ type
TSynBaseCompletionForm = class(TForm)
procedure SDKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SDKeyPress(Sender: TObject; var Key: char);
procedure SDUtf8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
protected
FCurrentString: string;
FOnKeyPress: TKeyPressEvent;
@ -516,6 +517,7 @@ begin
SizeDrag.OnKeyPress:=@SDKeyPress;
SizeDrag.OnKeyDown:=@SDKeyDown;
SizeDrag.OnUTF8KeyPress:=@SDUtf8KeyPress;
Scroll.Anchors:=[akTop,akRight, akBottom];
Scroll.AnchorSide[akTop].Side := asrTop;
@ -872,6 +874,12 @@ begin
KeyPress(key);
end;
procedure TSynBaseCompletionForm.SDUtf8KeyPress(Sender: TObject;
var UTF8Key: TUTF8Char);
begin
UTF8KeyPress(UTF8Key);
end;
procedure TSynBaseCompletionForm.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin
debugln('TSynBaseCompletionForm.UTF8KeyPress A UTF8Key="',DbgStr(UTF8Key),'" ',dbgsName(TObject(TMethod(OnUTF8KeyPress).Data)));
@ -1209,8 +1217,8 @@ var
SpaceBelow, SpaceAbove: Integer;
Mon: TMonitor;
begin
{$IFnDEF LCLGTK2}
Mon := Screen.MonitorFromPoint(TokenRect.TopLeft);
{$IFnDEF LCLGTK2}
if Mon <> nil then
TokenRect.Left := Min(TokenRect.Left, Mon.Left + Mon.Width - Form.Width);
{$ENDIF}