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