| 2731 |
// if ListNumberVisibleAction.Checked then |
// if ListNumberVisibleAction.Checked then |
| 2732 |
// RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title |
// RepStr := IntToStr(ThreadItem.No) + ': ' + ThreadItem.Title |
| 2733 |
// else |
// else |
| 2734 |
RepStr := ThreadItem.Title; |
//RepStr := ThreadItem.Title; |
| 2735 |
RepStr := CustomStringReplace(RepStr, '<', '<' ); |
RepStr := CustomStringReplace(ThreadItem.Title, '<', '<' ); |
| 2736 |
RepStr := CustomStringReplace(RepStr, '>', '>' ); |
RepStr := CustomStringReplace(RepStr, '>', '>' ); |
| 2737 |
RepStr := CustomStringReplace(RepStr, '"', '"' ); |
RepStr := CustomStringReplace(RepStr, '"', '"' ); |
| 2738 |
RepStr := CustomStringReplace(RepStr, '&', '&' ); |
RepStr := CustomStringReplace(RepStr, '&', '&' ); |
| 9050 |
begin |
begin |
| 9051 |
ModifySelectList; |
ModifySelectList; |
| 9052 |
end else if Key = 229 then begin |
end else if Key = 229 then begin |
| 9053 |
IMC := ImmGetContext(SelectComboBox.Handle); //コンテキスト取得 |
if GikoSys.Setting.UseUndecided then begin |
| 9054 |
Len := ImmGetCompositionString(IMC, GCS_COMPSTR, nil, 0); //まず長さを取得 |
IMC := ImmGetContext(SelectComboBox.Handle); //コンテキスト取得 |
| 9055 |
SetLength(Str, Len + 1); //Bufferのメモリを設定 |
Len := ImmGetCompositionString(IMC, GCS_COMPSTR, nil, 0); //まず長さを取得 |
| 9056 |
ImmGetCompositionString(IMC, GCS_COMPSTR, PChar(Str), Len + 1); //まず長さを取得 |
SetLength(Str, Len + 1); //Bufferのメモリを設定 |
| 9057 |
ImmReleaseContext(SelectComboBox.Handle, IMC); //コンテキスト解放 |
ImmGetCompositionString(IMC, GCS_COMPSTR, PChar(Str), Len + 1); //まず長さを取得 |
| 9058 |
SetLength(Str, Len); |
ImmReleaseContext(SelectComboBox.Handle, IMC); //コンテキスト解放 |
| 9059 |
if SelectComboBox.SelLength > 0 then begin //選択中の文字列があるか |
SetLength(Str, Len); |
| 9060 |
tmp := Copy(SelectComboBox.Text, 1, SelectComboBox.SelStart); |
if SelectComboBox.SelLength > 0 then begin //選択中の文字列があるか |
| 9061 |
Str := tmp + Str + Copy(SelectComboBox.Text, SelectComboBox.SelStart + SelectComboBox.SelLength + 1, Length(SelectComboBox.Text)); |
tmp := Copy(SelectComboBox.Text, 1, SelectComboBox.SelStart); |
| 9062 |
end else |
Str := tmp + Str + Copy(SelectComboBox.Text, SelectComboBox.SelStart + SelectComboBox.SelLength + 1, Length(SelectComboBox.Text)); |
| 9063 |
Str := SelectComboBox.Text + Str; |
end else |
| 9064 |
|
Str := SelectComboBox.Text + Str; |
| 9065 |
|
|
| 9066 |
SetSelectWord(Str); |
SetSelectWord(Str); |
| 9067 |
|
end; |
| 9068 |
end else if Length( SelectComboBox.Text ) = 0 then |
end else if Length( SelectComboBox.Text ) = 0 then |
| 9069 |
begin |
begin |
| 9070 |
{* SelectComboBox.Textが空でも、入力途中でEscしたとか |
{* SelectComboBox.Textが空でも、入力途中でEscしたとか |