NGワードで特定の正規表現を使用するとフリーズする不具合を修正

[gikonavigoeson/gikonavi.git] / KeySetting.pas

diff --git a/KeySetting.pas b/KeySetting.pas
index eb1adf3..d701f47 100644 (file)
--- a/KeySetting.pas
+++ b/KeySetting.pas
@@ -85,6 +85,7 @@ var
        i: Integer;
        ListItem: TListItem;
        KeyItem: TKeySettingItem;
+    CenterForm: TCustomForm;
 
 begin
        //for i := 0 to GikoForm.ActionList.ActionCount - 1 do begin
@@ -147,6 +148,15 @@ begin
        MouseGesture.OnGestureMove := OnGestureMove;
        MouseGesture.OnGestureEnd := OnGestureEnd;
        MouseGesture.SetHook( Handle );
+
+    CenterForm := TCustomForm(Owner);
+    if Assigned(CenterForm) then begin
+        Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
+        Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
+    end else begin
+        Left := (Screen.Width - Width) div 2;
+        Top := (Screen.Height - Height) div 2;
+    end;
 end;
 
 procedure TKeySettingForm.FormDestroy(Sender: TObject);