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.24 by h677, Wed Aug 27 05:40:29 2003 UTC revision 1.25 by yoffy, Wed Aug 27 06:12:58 2003 UTC
# Line 449  type Line 449  type
449      ToolButton16: TToolButton;      ToolButton16: TToolButton;
450      AllResAction: TAction;      AllResAction: TAction;
451      AllResToolButton: TToolButton;      AllResToolButton: TToolButton;
452        N41: TMenuItem;
453        N42: TMenuItem;
454        N49: TMenuItem;
455        N50: TMenuItem;
456        A11: TMenuItem;
457        S5: TMenuItem;
458      Reload: TMenuItem;      Reload: TMenuItem;
459      GoBack: TMenuItem;      GoBack: TMenuItem;
460      GoFoward: TMenuItem;      GoFoward: TMenuItem;
# Line 1186  begin Line 1192  begin
1192          //ツールボタン読み込み          //ツールボタン読み込み
1193          ReadToolBarSetting(ActionList, StdToolBar);          ReadToolBarSetting(ActionList, StdToolBar);
1194          ReadToolBarSetting(ActionList, ListToolBar);          ReadToolBarSetting(ActionList, ListToolBar);
1195          for i := ListToolBar.ControlCount - 1 downto 0 do    for i := ListToolBar.ControlCount - 1 downto 0 do
1196          begin    begin
1197                  if ListToolBar.Controls[ i ].Action = SelectItemAction then            if ListToolBar.Controls[ i ].Action = SelectItemAction then
1198                  begin            begin
1199                          SelectItemAction.Visible := False;                    ListToolBar.Controls[ i ].Visible := False;
1200                          SelectComboBox.Left := SelectItemToolButton.Left;                    SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1201                          SelectComboBox.Parent := ListToolBar;                    SelectComboBox.Parent := ListToolBar;
1202                          break;                    break;
1203                  end;            end;
1204          end;    end;
1205          ReadToolBarSetting(ActionList, BrowserToolBar);          ReadToolBarSetting(ActionList, BrowserToolBar);
1206          SetToolBarPopup;          SetToolBarPopup;
1207    
# Line 6319  procedure TGikoForm.ToolBarChevronMenu(T Line 6325  procedure TGikoForm.ToolBarChevronMenu(T
6325                                  Item := TFavoriteMenuItem.Create(Self);                                  Item := TFavoriteMenuItem.Create(Self);
6326                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data;                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data;
6327                          end else                          end else
6328                                  Item := TMenuItem.Create(Self);        Item := TMenuItem.Create(Self);
6329                          Item.Caption := PopupMenu.Items[i].Caption;        Item.Caption := PopupMenu.Items[i].Caption;
6330                          Item.Action := PopupMenu.Items[i].Action;        Item.Action := PopupMenu.Items[i].Action;
6331                          Item.ImageIndex := PopupMenu.Items[i].ImageIndex;        Item.ImageIndex := PopupMenu.Items[i].ImageIndex;
6332                          Item.OnClick := PopupMenu.Items[i].OnClick;        Item.OnClick := PopupMenu.Items[i].OnClick;
6333                          PopupItem.Add(Item);                          PopupItem.Add(Item);
6334                  end;                  end;
6335          end;          end;
# Line 6341  begin Line 6347  begin
6347                  for i := 0 to ToolBar.ButtonCount - 1 do begin                  for i := 0 to ToolBar.ButtonCount - 1 do begin
6348                          w := w + ToolBar.Buttons[i].Width;                          w := w + ToolBar.Buttons[i].Width;
6349                          if ToolBar.Width <= w then begin                          if ToolBar.Width <= w then begin
6350                                  Item := TMenuItem.Create(Self);          Case ToolBar.Buttons[i].Tag of
6351                                  if ToolBar.Buttons[i].Style = tbsSeparator then          0:
6352                                          Item.Caption := '-'            begin
6353                                  else begin              Item := TMenuItem.Create(Self);
6354                                          Item.Caption := ToolBar.Buttons[i].Caption;              if ToolBar.Buttons[i].Style = tbsSeparator then
6355                                          Item.Action := ToolBar.Buttons[i].Action;                Item.Caption := '-'
6356                                  end;              else begin
6357                                  ChevronPopupMenu.Items.Add(Item);                Item.Caption := ToolBar.Buttons[i].Caption;
6358                                  if ToolBar.Buttons[i].DropdownMenu <> nil then begin                Item.Action := ToolBar.Buttons[i].Action;
6359                                          Item.Action := nil;                //Item.Visible := True;
6360                                          Item.OnClick := nil;              end;
6361                                          SetSubMenu(ToolBar.Buttons[i].DropdownMenu, Item);              ChevronPopupMenu.Items.Add(Item);
6362                                  end;              if ToolBar.Buttons[i].DropdownMenu <> nil then begin
6363                  Item.Action := nil;
6364                  Item.OnClick := nil;
6365                  SetSubMenu(ToolBar.Buttons[i].DropdownMenu, Item);
6366                end;
6367              end;
6368            else
6369              // 将来のための予約
6370            end;
6371                          end;                          end;
6372                  end;                  end;
6373          end;          end;

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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