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

ideintf: improve shortcut editor by Anton and me (issue #0018478)

Browse Source 
git-svn-id: trunk@28992 -
This commit is contained in:
paul 2011-01-13 13:14:40 +00:00
parent 2847d6bd16
commit e372929332
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/propedits.pp
View File

@ -4627,6 +4627,7 @@ var
begin
try
Dlg:=TForm.Create(nil);
Dlg.BorderStyle:=bsToolWindow;
Dlg.Caption:=oisSelectShortCut;
Dlg.Position:=poScreenCenter;
Dlg.Constraints.MinWidth:=350;
@ -4635,6 +4636,7 @@ begin
Dlg.Height:=120;
Box:=TShortCutGrabBox.Create(Dlg);
Box.BorderSpacing.Around:=6;
Box.Parent:=Dlg;
Box.Align:=alClient;
OldValue := TShortCut(GetOrdValue);
@ -6350,6 +6352,7 @@ end;
procedure TCustomShortCutGrabBox.OnGrabButtonClick(Sender: TObject);
begin
FGrabForm:=TForm.Create(Self);
FGrabForm.BorderStyle:=bsToolWindow;
FGrabForm.KeyPreview:=true;
FGrabForm.Position:=poScreenCenter;
FGrabForm.OnKeyDown:=@OnGrabFormKeyDown;