Force tab redraw in OnEndDrag

diff --git a/bottleclient/LogForm.dfm b/bottleclient/LogForm.dfm
index 97e00b9..e417378 100755 (executable)
--- a/bottleclient/LogForm.dfm
+++ b/bottleclient/LogForm.dfm
@@ -175,6 +175,7 @@ object frmLog: TfrmLog
           OnContextPopup = tabBottleLogContextPopup
           OnDragDrop = tabBottleLogDragDrop
           OnDragOver = tabBottleLogDragOver
+          OnEndDrag = tabBottleLogEndDrag
           OnMouseDown = tabBottleLogMouseDown
         end
         object lvwLog: TListView

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 50e51d8..ae647a0 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -90,6 +90,7 @@ type
     procedure tabBottleLogDragOver(Sender, Source: TObject; X, Y: Integer;
       State: TDragState; var Accept: Boolean);
     procedure tabBottleLogDragDrop(Sender, Source: TObject; X, Y: Integer);
+    procedure tabBottleLogEndDrag(Sender, Target: TObject; X, Y: Integer);
   private
     { Private \90é\8c¾ }
     FLastScript: String; //\83X\83N\83\8a\83v\83g\8dÄ\95`\89æ\97}\90§\97p
@@ -1068,6 +1069,7 @@ var TargetRect: TRect;
     OldDest: integer;
 begin
   Accept := Source = tabBottleLog;
+  if not Accept then Exit;
   with tabBottleLog do begin
     OldDest := FDragTabDest;
     FDragTabDest := IndexOfTabAt(X, Y);
@@ -1111,4 +1113,12 @@ begin
   end;
 end;
 
+procedure TfrmLog.tabBottleLogEndDrag(Sender, Target: TObject; X,
+  Y: Integer);
+begin
+  //\8b­\90§\93I\82É\83^\83u\82ð\8dÄ\95`\89æ\82³\82¹\82é\81B\98g\90ü\8fÁ\82µ\91Î\8dô
+  tabBottleLog.Tabs.BeginUpdate;
+  tabBottleLog.Tabs.EndUpdate;
+end;
+
 end.