| 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; |
| 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 |
|
|
| 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; |
| 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; |