| 425 |
ReloadAction: TAction; |
ReloadAction: TAction; |
| 426 |
GoFowardAction: TAction; |
GoFowardAction: TAction; |
| 427 |
GoBackAction: TAction; |
GoBackAction: TAction; |
|
SelectComboBoxSplitter: TImage; |
|
| 428 |
IndividualAbon1: TMenuItem; |
IndividualAbon1: TMenuItem; |
| 429 |
N41: TMenuItem; |
N41: TMenuItem; |
| 430 |
IndividualAbon2: TMenuItem; |
IndividualAbon2: TMenuItem; |
| 560 |
SortPrevColumnAction: TAction; |
SortPrevColumnAction: TAction; |
| 561 |
BeLogInOutAction: TAction; |
BeLogInOutAction: TAction; |
| 562 |
UnSelectedListViewAction: TAction; |
UnSelectedListViewAction: TAction; |
| 563 |
|
SelectComboBoxPanel: TPanel; |
| 564 |
|
SelectComboBoxSplitter: TImage; |
| 565 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 566 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 567 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 1296 |
wp: TWindowPlacement; |
wp: TWindowPlacement; |
| 1297 |
s: string; |
s: string; |
| 1298 |
newbrowser: TWebBrowser; |
newbrowser: TWebBrowser; |
| 1299 |
|
ToolButton: TToolButton; |
| 1300 |
begin |
begin |
| 1301 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 1302 |
AllocConsole; |
AllocConsole; |
| 1583 |
ReadToolBarSetting(ActionList, BrowserToolBar); |
ReadToolBarSetting(ActionList, BrowserToolBar); |
| 1584 |
SetToolBarPopup; |
SetToolBarPopup; |
| 1585 |
|
|
| 1586 |
|
//ListToolBarにいるかもしれない絞込みComboBoxを配置 |
| 1587 |
|
SelectComboBoxPanel.Visible := False; |
| 1588 |
|
try |
| 1589 |
|
for i := ListToolBar.ControlCount - 1 downto 0 do |
| 1590 |
|
begin |
| 1591 |
|
if ListToolBar.Controls[ i ].Action = SelectItemAction then |
| 1592 |
|
begin |
| 1593 |
|
SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left; |
| 1594 |
|
SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth; |
| 1595 |
|
SelectComboBoxPanel.Parent := ListToolBar; |
| 1596 |
|
SelectComboBoxPanel.Visible := True; |
| 1597 |
|
|
| 1598 |
|
SelectComboBox.Left := 0; |
| 1599 |
|
SelectComboBox.Top := 0; |
| 1600 |
|
SelectComboBox.Height := SelectComboBoxPanel.ClientHeight; |
| 1601 |
|
SelectComboBox.Width := SelectComboBoxPanel.Width - |
| 1602 |
|
SelectComboBoxSplitter.Width; |
| 1603 |
|
|
| 1604 |
|
//一つ見えないボタンを突っ込む |
| 1605 |
|
ToolButton := TToolButton.Create(ListToolBar); |
| 1606 |
|
ToolButton.Name := 'SelectComboBoxDummy'; |
| 1607 |
|
ToolButton.Style := tbsSeparator; |
| 1608 |
|
ToolButton.Width := 0; |
| 1609 |
|
ToolButton.Left := ListToolBar.Controls[ i ].Left; |
| 1610 |
|
ListToolBar.InsertControl(ToolButton); |
| 1611 |
|
ToolButton.Visible := False; |
| 1612 |
|
|
| 1613 |
|
// スレッド絞込の隣にセパレータがある場合は隠す |
| 1614 |
|
if (i + 1) < ListToolBar.ControlCount then |
| 1615 |
|
if ListToolBar.Controls[ i + 1 ] is TToolButton then |
| 1616 |
|
if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then |
| 1617 |
|
ListToolBar.Controls[ i + 1 ].Visible := False; |
| 1618 |
|
|
| 1619 |
|
|
| 1620 |
|
// スレッド絞込ボタンを隠す |
| 1621 |
|
ListToolBar.Controls[ i ].Visible := False; |
| 1622 |
|
|
| 1623 |
|
break; |
| 1624 |
|
end; |
| 1625 |
|
end; |
| 1626 |
|
except |
| 1627 |
|
end; |
| 1628 |
|
|
| 1629 |
|
|
| 1630 |
//アドレスバー |
//アドレスバー |
| 1631 |
AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
| 1933 |
// CoolBar 復元 |
// CoolBar 復元 |
| 1934 |
LoadCoolBarSettings; |
LoadCoolBarSettings; |
| 1935 |
|
|
|
//ListToolBarにいるかもしれない絞込みComboBoxを配置 |
|
|
try |
|
|
for i := ListToolBar.ControlCount - 1 downto 0 do |
|
|
begin |
|
|
if ListToolBar.Controls[ i ].Action = SelectItemAction then |
|
|
begin |
|
|
// スレッド絞込の隣にセパレータがある場合は隠す |
|
|
if (i + 1) < ListToolBar.ControlCount then |
|
|
if ListToolBar.Controls[ i + 1 ] is TToolButton then |
|
|
if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then |
|
|
ListToolBar.Controls[ i + 1 ].Visible := False; |
|
|
|
|
|
|
|
|
// スレッド絞込ボタンを隠す |
|
|
ListToolBar.Controls[ i ].Visible := False; |
|
|
// スレッド絞込フィールドを挿入 |
|
|
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
|
|
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
|
|
SelectComboBox.Parent := ListToolBar; |
|
|
SelectComboBox.Visible := True; |
|
|
// スレッド絞込用独自セパレータを挿入 |
|
|
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
|
|
SelectComboBoxSplitter.Parent := ListToolBar; |
|
|
SelectComboBoxSplitter.Visible := True; |
|
|
SelectComboBoxSplitter.BringToFront; |
|
|
break; |
|
|
end; |
|
|
end; |
|
|
except |
|
|
end; |
|
| 1936 |
//重要 これがないとツールボタンの更新がおかしくなる |
//重要 これがないとツールボタンの更新がおかしくなる |
| 1937 |
ResetBandInfo( ListCoolBar, ListToolBar ); |
// ResetBandInfo( ListCoolBar, ListToolBar ); |
| 1938 |
FIsIgnoreResize := rtNone; |
FIsIgnoreResize := rtNone; |
| 1939 |
|
|
| 1940 |
//TabAutoLoad |
//TabAutoLoad |
| 8959 |
Dlg: TToolBarSettingDialog; |
Dlg: TToolBarSettingDialog; |
| 8960 |
i: Integer; |
i: Integer; |
| 8961 |
//Component: TComponent; |
//Component: TComponent; |
| 8962 |
|
ToolButton : TToolButton; |
| 8963 |
begin |
begin |
| 8964 |
Dlg := TToolBarSettingDialog.Create(Self, ActionList); |
Dlg := TToolBarSettingDialog.Create(Self, ActionList); |
| 8965 |
try |
try |
| 8988 |
BrowserCoolBar.Bands[i].MinWidth := BrowserCoolBar.Bands[i].MinWidth - 1; |
BrowserCoolBar.Bands[i].MinWidth := BrowserCoolBar.Bands[i].MinWidth - 1; |
| 8989 |
end; |
end; |
| 8990 |
|
|
|
SelectComboBox.Visible := False; |
|
|
SelectComboBoxSplitter.Visible := False; |
|
|
|
|
| 8991 |
SaveToolBarSetting(StdToolBar); |
SaveToolBarSetting(StdToolBar); |
| 8992 |
SaveToolBarSetting(ListToolBar); |
SaveToolBarSetting(ListToolBar); |
| 8993 |
for i := ListToolBar.ControlCount - 1 downto 0 do |
//ListToolBarにいるかもしれない絞込みComboBoxを配置 |
| 8994 |
begin |
SelectComboBoxPanel.Visible := False; |
| 8995 |
if ListToolBar.Controls[ i ].Action = SelectItemAction then |
try |
| 8996 |
|
for i := ListToolBar.ControlCount - 1 downto 0 do |
| 8997 |
begin |
begin |
| 8998 |
// スレッド絞込の隣にセパレータがある場合は隠す |
if ListToolBar.Controls[ i ].Action = SelectItemAction then |
| 8999 |
if (i + 1) < ListToolBar.ControlCount then |
begin |
| 9000 |
if ListToolBar.Controls[ i + 1 ] is TToolButton then |
SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left; |
| 9001 |
if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then |
SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth; |
| 9002 |
ListToolBar.Controls[ i + 1 ].Visible := False; |
SelectComboBoxPanel.Parent := ListToolBar; |
| 9003 |
|
SelectComboBoxPanel.Visible := True; |
| 9004 |
// スレッド絞込ボタンを隠す |
|
| 9005 |
ListToolBar.Controls[ i ].Visible := False; |
SelectComboBox.Left := 0; |
| 9006 |
// スレッド絞込フィールドを挿入 |
SelectComboBox.Top := 0; |
| 9007 |
SelectComboBox.Left := ListToolBar.Controls[ i ].Left; |
SelectComboBox.Height := SelectComboBoxPanel.ClientHeight; |
| 9008 |
SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth; |
SelectComboBox.Width := SelectComboBoxPanel.Width - |
| 9009 |
SelectComboBox.Parent := ListToolBar; |
SelectComboBoxSplitter.Width; |
| 9010 |
SelectComboBox.Visible := True; |
|
| 9011 |
// スレッド絞込用独自セパレータを挿入 |
|
| 9012 |
SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width; |
//一つ見えないボタンを突っ込む |
| 9013 |
SelectComboBoxSplitter.Parent := ListToolBar; |
ToolButton := TToolButton(ListToolBar.FindComponent('SelectComboBoxDummy')); |
| 9014 |
SelectComboBoxSplitter.Visible := True; |
if ToolButton <> nil then begin |
| 9015 |
break; |
ToolButton.Parent := nil; |
| 9016 |
|
end else begin |
| 9017 |
|
ToolButton := TToolButton.Create(ListToolBar); |
| 9018 |
|
ToolButton.Name := 'SelectComboBoxDummy'; |
| 9019 |
|
end; |
| 9020 |
|
|
| 9021 |
|
ToolButton.Style := tbsSeparator; |
| 9022 |
|
ToolButton.Width := 0; |
| 9023 |
|
ToolButton.Left := ListToolBar.Controls[ i ].Left; |
| 9024 |
|
ListToolBar.InsertControl(ToolButton); |
| 9025 |
|
ToolButton.Visible := False; |
| 9026 |
|
|
| 9027 |
|
// スレッド絞込の隣にセパレータがある場合は隠す |
| 9028 |
|
if (i + 1) < ListToolBar.ControlCount then |
| 9029 |
|
if ListToolBar.Controls[ i + 1 ] is TToolButton then |
| 9030 |
|
if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then |
| 9031 |
|
ListToolBar.Controls[ i + 1 ].Visible := False; |
| 9032 |
|
|
| 9033 |
|
|
| 9034 |
|
// スレッド絞込ボタンを隠す |
| 9035 |
|
ListToolBar.Controls[ i ].Visible := False; |
| 9036 |
|
|
| 9037 |
|
break; |
| 9038 |
|
end; |
| 9039 |
end; |
end; |
| 9040 |
|
except |
| 9041 |
end; |
end; |
| 9042 |
ResetBandInfo( ListCoolBar, ListToolBar ); |
ResetBandInfo( ListCoolBar, ListToolBar ); |
| 9043 |
SaveToolBarSetting(BrowserToolBar); |
SaveToolBarSetting(BrowserToolBar); |
| 9404 |
pos.X := X; |
pos.X := X; |
| 9405 |
pos.Y := Y; |
pos.Y := Y; |
| 9406 |
pos := SelectComboBoxSplitter.ClientToScreen( pos ); |
pos := SelectComboBoxSplitter.ClientToScreen( pos ); |
| 9407 |
w := SelectComboBox.Width + (pos.X - DraggingSelectComboBoxPosition.X); |
//w := SelectComboBox.Width + (pos.X - DraggingSelectComboBoxPosition.X); |
| 9408 |
|
w := SelectComboBoxPanel.Width + (pos.X - DraggingSelectComboBoxPosition.X); |
| 9409 |
|
|
| 9410 |
If w <= 50 Then Begin |
If w <= 50 Then Begin |
| 9411 |
// 次の移動の基準が「過ぎてしまった位置」ではなく |
// 次の移動の基準が「過ぎてしまった位置」ではなく |
| 9417 |
End; |
End; |
| 9418 |
|
|
| 9419 |
// チラつき軽減の為 |
// チラつき軽減の為 |
| 9420 |
If SelectComboBox.Width <> w Then Begin |
//If SelectComboBox.Width <> w Then Begin |
| 9421 |
SelectComboBox.Width := w; |
If SelectComboBoxPanel.Width <> w Then Begin |
| 9422 |
|
SelectComboBoxPanel.Width := w; |
| 9423 |
|
SelectComboBox.Width := SelectComboBoxPanel.Width - SelectComboBoxSplitter.Width; |
| 9424 |
GikoSys.Setting.SelectComboBoxWidth := w; |
GikoSys.Setting.SelectComboBoxWidth := w; |
| 9425 |
DraggingSelectComboBoxPosition := pos; |
DraggingSelectComboBoxPosition := pos; |
| 9426 |
|
|