Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.211 by yoffy, Mon Mar 8 08:53:40 2004 UTC revision 1.212 by yoffy, Tue Mar 9 15:39:23 2004 UTC
# Line 7526  var Line 7526  var
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;
# Line 7539  end; Line 7539  end;
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;
# Line 7549  begin Line 7551  begin
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;

Legend:
Removed from v.1.211  
changed lines
  Added in v.1.212

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26