レスポップアップで、騙し絵が見えるように半角スペース2つを に置換するようにした。

終了処理のジェスチャーのフリーのタイミング修正

diff --git a/Giko.pas b/Giko.pas
index a0d9c23..88e3336 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1548,7 +1548,6 @@ end;
 procedure TGikoForm.FormDestroy(Sender: TObject);
 var
        i                               : Integer;
-//     CoolSet: TCoolSet;
        wp                      : TWindowPlacement;
        tmpBool : Boolean;
 begin
@@ -1556,6 +1555,8 @@ begin
        try
         MouseGesture.Clear;
                MouseGesture.UnHook;
+        MouseGesture.Free;
+        MouseGesture := nil;
        except
        end;
        try
@@ -1739,14 +1740,6 @@ begin
                end;
        except
        end;
-       try
-        MouseGesture.Free;
-       except
-       end;
-    try
-        DeleteObject(MainCoolBar.Font.Handle);
-    except
-    end;
        LockWindowUpdate(0);
 end;
 

diff --git a/GikoSystem.pas b/GikoSystem.pas
index a08b688..e640093 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1345,7 +1345,8 @@ begin
        nm.cbSize := sizeof(NONCLIENTMETRICS);
     SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nm, 0);
     lf := nm.lfMenuFont;
-    Font.Handle := CreateFontIndirect(lf);
+    Font.Name := lf.lfFaceName;
+    Font.Height := lf.lfHeight;
     Font.Style := [];
     if lf.lfWeight >= 700 then
         Font.Style := Font.Style + [fsBold];

diff --git a/ResPopupBrowser.pas b/ResPopupBrowser.pas
index 4ae2fe7..f42e50d 100644 (file)
--- a/ResPopupBrowser.pas
+++ b/ResPopupBrowser.pas
@@ -151,7 +151,16 @@ begin
 end;
 procedure TResPopupBrowser.Popup;
 begin
-    Write(Self.RawDocument, false);
+    if (GetAsyncKeyState(VK_SHIFT) = Smallint($8001)) then begin
+        // \83V\83t\83g\89\9f\82µ\82Ä\82é\8fê\8d\87\82Í\82»\82Ì\82Ü\82Ü\8fo\82·
+        Write(Self.RawDocument, false);
+    end else begin
+        // éx\82µ\8aG\82ª\8c©\82¦\82é\82æ\82¤\82É\94¼\8ap\83X\83y\81[\83X*2\82ð *2\82É\92u\8a·\82·\82é
+        Write(
+            MojuUtils.CustomStringReplace(
+                Self.RawDocument, '  ', '  '),
+            false);
+    end;
 end;
 procedure TResPopupBrowser.Write(ADocument: String; OnlyTitle: Boolean = False);
 var

diff --git a/gikoNavi.res b/gikoNavi.res
index ecc1ccb..c751ea4 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ