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.493 by h677, Wed Nov 17 14:52:59 2004 UTC revision 1.494 by h677, Fri Nov 19 14:27:38 2004 UTC
# Line 2731  begin Line 2731  begin
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, '&lt;', '<' );                  RepStr := CustomStringReplace(ThreadItem.Title, '&lt;', '<' );
2736                  RepStr := CustomStringReplace(RepStr, '&gt;', '>' );                  RepStr := CustomStringReplace(RepStr, '&gt;', '>' );
2737                  RepStr := CustomStringReplace(RepStr, '&quot;', '"' );                  RepStr := CustomStringReplace(RepStr, '&quot;', '"' );
2738                  RepStr := CustomStringReplace(RepStr, '&amp;', '&' );                  RepStr := CustomStringReplace(RepStr, '&amp;', '&' );
# Line 9050  begin Line 9050  begin
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したとか

Legend:
Removed from v.1.493  
changed lines
  Added in v.1.494

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