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.23 by h677, Sun Jul 10 04:17:12 2005 UTC revision 1.515.2.24 by h677, Mon Jul 11 13:52:01 2005 UTC
# Line 5125  begin Line 5125  begin
5125                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
5126                  ModifySelectList;                  ModifySelectList;
5127                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
5128                  if SelectComboBox.Parent <> nil then begin                  if SelectComboBoxPanel.Visible then begin
5129                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5130                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5131                          ListView.SetFocus;                          ListView.SetFocus;
# Line 5144  begin Line 5144  begin
5144                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
5145                  ModifySelectList;                  ModifySelectList;
5146                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
5147                  if SelectComboBox.Parent <> nil then begin                  if SelectComboBoxPanel.Visible  then begin
5148                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5149                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5150                          ListView.SetFocus;                          ListView.SetFocus;
# Line 5164  begin Line 5164  begin
5164                  // SelectComboBox の履歴を更新しておく                  // SelectComboBox の履歴を更新しておく
5165                  ModifySelectList;                  ModifySelectList;
5166                  // SelectComboBox の値をクリア                  // SelectComboBox の値をクリア
5167                  if SelectComboBox.Parent <> nil then begin                  if SelectComboBoxPanel.Visible then begin
5168                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;                          SelectComboBox.Text := SELECTCOMBOBOX_NAME;
5169                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;                          SelectComboBox.Color := SELECTCOMBOBOX_COLOR;
5170                          ListView.SetFocus;                          ListView.SetFocus;
# Line 5179  var Line 5179  var
5179          Dlg: TListSelectDialog;          Dlg: TListSelectDialog;
5180  begin  begin
5181          try          try
5182                  if SelectComboBox.Parent <> nil then begin                  if SelectComboBoxPanel.Visible then begin
5183                          if SelectComboBox.Left + SelectComboBox.Width < ListToolBar.Width then begin                          if SelectComboBoxPanel.Left + SelectComboBoxPanel.Width < ListToolBar.Width then begin
5184                                  // SelectComboBox がある場合はフォーカスを移す                                  // SelectComboBox がある場合はフォーカスを移す
5185                                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin                                  if GikoSys.Setting.ListOrientation = gloHorizontal then begin
5186                                          if GikoSys.Setting.ListWidthState = glsMax then                                          if GikoSys.Setting.ListWidthState = glsMax then
# Line 8589  begin Line 8589  begin
8589          if ToolBar.Width < bw then begin          if ToolBar.Width < bw then begin
8590                  w := 0;                  w := 0;
8591                  for i := 0 to ToolBar.ButtonCount - 1 do begin                  for i := 0 to ToolBar.ButtonCount - 1 do begin
8592                          w := w + ToolBar.Buttons[i].Width;                          if ToolBar.Buttons[i].Visible then
8593                                    w := w + ToolBar.Buttons[i].Width;
8594                          if ToolBar.Width <= w then begin                          if ToolBar.Width <= w then begin
8595                                  if ToolBar.Buttons[i].Tag = 0 then begin                                  if ToolBar.Buttons[i].Tag = 0 then begin
8596                                          Item := TMenuItem.Create(Self);                                          Item := TMenuItem.Create(Self);
8597                                          if ToolBar.Buttons[i].Style = tbsSeparator then                                          if ToolBar.Buttons[i].Style = tbsSeparator then
8598                                                  Item.Caption := '-'                                                  Item.Caption := '-'
8599                                          else begin                                          else begin
8600                          //スレ絞込みComBoxのTPanelを排除する                                                  //スレ絞込みComBoxのTPanelを排除する
8601                                                  if TObject(ToolBar.Buttons[i]) is TPanel then begin                                                  if TObject(ToolBar.Buttons[i]) is TPanel then begin
8602                                                          Continue;                                                          Continue;
8603                                                  end else begin                                                  end else begin
# Line 9083  var Line 9084  var
9084  begin  begin
9085    
9086          try          try
9087                  if SelectComboBox.Parent = nil then                  if not SelectComboBoxPanel.Visible then
9088                          exit;                          exit;
9089    
9090                  if Length( SelectComboBox.Text ) > 0 then                  if Length( SelectComboBox.Text ) > 0 then
# Line 9138  begin Line 9139  begin
9139                                  end;                                  end;
9140    
9141                                  try                                  try
9142                                          if SelectComboBox.Parent <> nil then                                          //if SelectComboBox.Parent <> nil then
9143                                            if SelectComboBoxPanel.Visible then
9144                                                  SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );                                                  SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
9145                                  except                                  except
9146                                  end;                                  end;
# Line 9244  var Line 9246  var
9246          pos                             : TPoint;          pos                             : TPoint;
9247          w                                       : Integer;          w                                       : Integer;
9248  begin  begin
9249          If (SelectComboBox.Parent <> nil) and (IsDraggingSelectComboBox) Then begin          If (SelectComboBoxPanel.Visible) and (IsDraggingSelectComboBox) Then begin
9250                  pos.X := X;                  pos.X := X;
9251                  pos.Y := Y;                  pos.Y := Y;
9252                  pos := SelectComboBoxSplitter.ClientToScreen( pos );                  pos := SelectComboBoxSplitter.ClientToScreen( pos );

Legend:
Removed from v.1.515.2.23  
changed lines
  Added in v.1.515.2.24

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