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.515.2.7 by h677, Mon Jun 27 20:46:40 2005 UTC revision 1.515.2.8 by h677, Thu Jun 30 15:56:21 2005 UTC
# Line 425  type Line 425  type
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;
# Line 561  type Line 560  type
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);
# Line 1295  var Line 1296  var
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;
# Line 1581  begin Line 1583  begin
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;
# Line 1888  begin Line 1933  begin
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
# Line 8944  var Line 8959  var
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
# Line 8972  begin Line 8988  begin
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);
# Line 9366  begin Line 9404  begin
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                          // 次の移動の基準が「過ぎてしまった位置」ではなく                          // 次の移動の基準が「過ぎてしまった位置」ではなく
# Line 9378  begin Line 9417  begin
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    

Legend:
Removed from v.1.515.2.7  
changed lines
  Added in v.1.515.2.8

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