From 1d8cf351a21568e4ff5f4534b3b4654ba945d198 Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Sat, 30 Aug 2003 14:38:22 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BBCoolBar=20=E3=81=AB=E9=9D=9E=E8=A1=A8?=
 =?utf8?q?=E7=A4=BA=E3=81=AE=E3=83=90=E3=83=B3=E3=83=89=E3=81=8C=E3=81=82?=
 =?utf8?q?=E3=82=8B=E5=A0=B4=E5=90=88=E3=80=81=E3=82=B7=E3=82=A7=E3=83=96?=
 =?utf8?q?=E3=83=AD=E3=83=B3=E3=81=8C=E6=AD=A3=E3=81=97=E3=81=8F=E8=A1=A8?=
 =?utf8?q?=E7=A4=BA=E3=81=95=E3=82=8C=E3=81=AA=E3=81=84=E3=83=90=E3=82=B0?=
 =?utf8?q?=E3=82=92=E4=BF=AE=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/Giko.pas b/Giko.pas
index e0b094e..c53192c 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -6303,11 +6303,21 @@ end;
 
 procedure TGikoForm.MainCoolBarChevronClick(Sender: TObject; RebarChevron: PNMRebarChevron);
 var
+  i : Integer;
 	Idx: Integer;
 	p: TPoint;
 begin
 	ChevronPopupMenu.Items.Clear;
-	Idx := RebarChevron^.uBand;
+  Idx := 0;
+  for i := 0 to MainCoolBar.Bands.Count - 1 do begin
+    if MainCoolBar.Bands[ i ].Visible then begin
+      if Idx = RebarChevron^.uBand then begin
+        Idx := i;
+        break;
+      end;
+      Inc( Idx );
+    end;
+  end;
 	if (Idx >= 0) and (MainCoolBar.Bands.Count > Idx) then begin
 		if MainCoolBar.Bands[Idx].Control = MenuToolbar then begin
 			MenuBarChevronMenu;
-- 
2.11.0