| 7526 |
i : Integer; |
i : Integer; |
| 7527 |
begin |
begin |
| 7528 |
|
|
| 7529 |
for i := 0 to bar.ButtonCount - 1 do begin |
for i := bar.ButtonCount - 1 downto 0 do begin |
| 7530 |
if bar.Buttons[ i ].Action = action then begin |
if bar.Buttons[ i ].Action = action then begin |
| 7531 |
Result := bar.Buttons[ i ]; |
Result := bar.Buttons[ i ]; |
| 7532 |
Exit; |
Exit; |
| 7539 |
|
|
| 7540 |
procedure TGikoForm.SetToolBarPopup; |
procedure TGikoForm.SetToolBarPopup; |
| 7541 |
var |
var |
| 7542 |
i: Integer; |
i : Integer; |
| 7543 |
|
aIEButton : TToolButton; |
| 7544 |
|
aCabinetBBSButton : TToolButton; |
| 7545 |
begin |
begin |
| 7546 |
for i := 0 to StdToolBar.ButtonCount - 1 do begin |
for i := 0 to StdToolBar.ButtonCount - 1 do begin |
| 7547 |
end; |
end; |
| 7551 |
if ListToolBar.Buttons[i].Action = SelectReservAction then |
if ListToolBar.Buttons[i].Action = SelectReservAction then |
| 7552 |
ListToolBar.Buttons[i].DropdownMenu := RoundNamePopupMenu; |
ListToolBar.Buttons[i].DropdownMenu := RoundNamePopupMenu; |
| 7553 |
end; |
end; |
| 7554 |
FindToolBarButton( BrowserToolBar, IEAction ).DropdownMenu := BrowserPopupMenu; |
aIEButton := FindToolBarButton( BrowserToolBar, IEAction ); |
| 7555 |
FindToolBarButton( StdToolBar, CabinetBBSAction ).DropdownMenu := BBSSelectPopupMenu; |
if aIEButton <> nil then |
| 7556 |
|
aIEButton.DropdownMenu := BrowserPopupMenu; |
| 7557 |
|
aCabinetBBSButton := FindToolBarButton( StdToolBar, CabinetBBSAction ); |
| 7558 |
|
if aCabinetBBSButton <> nil then |
| 7559 |
|
aCabinetBBSButton.DropdownMenu := BBSSelectPopupMenu; |
| 7560 |
end; |
end; |
| 7561 |
|
|
| 7562 |
procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; |
procedure TGikoForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; |