StatusBarに使用しているNGワードの名前が出ない不具合の解消と

スレッド表示エリアのリサイズの修正

diff --git a/Giko.dfm b/Giko.dfm
index 6fba2dc..61be6d0 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -38,11 +38,7 @@ object GikoForm: TGikoForm
         Width = 500
       end
       item
-        Style = psOwnerDraw
         Width = 50
-      end
-      item
-        Width = 100
       end>
     SimplePanel = False
     OnResize = StatusBarResize
@@ -320,7 +316,6 @@ object GikoForm: TGikoForm
             ViewStyle = vsReport
             OnAdvancedCustomDrawItem = ListViewAdvancedCustomDrawItem
             OnColumnClick = ListViewColumnClick
-            OnColumnDragged = ListViewColumnDragged
             OnColumnRightClick = ListViewColumnRightClick
             OnCustomDraw = ListViewCustomDraw
             OnData = ListViewData

diff --git a/Giko.pas b/Giko.pas
index 4a5c73a..1f4fd07 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -11053,9 +11053,7 @@ var
        i: Integer;
 begin
        for i := BROWSER_COUNT - 1 downto 0 do begin
-               SendMessage(TWebBrowser(FBrowsers[i]).Handle, WM_SETREDRAW, 0, 0);  //\95`\89æ\92â\8e~
                SetWindowPos(TWebBrowser(FBrowsers[i]).Handle, HWND_NOTOPMOST, 0, 0, NewWidth, NewHeight, SWP_NOMOVE + SWP_NOZORDER);
-               SendMessage(TWebBrowser(FBrowsers[i]).Handle, WM_SETREDRAW, 1, 0);  //\95`\89æ
        end;
 end;