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.673 by h677, Sun May 11 11:27:03 2008 UTC revision 1.674 by h677, Sun Jun 15 13:31:48 2008 UTC
# Line 1549  var Line 1549  var
1549          i                               : Integer;          i                               : Integer;
1550          wp                      : TWindowPlacement;          wp                      : TWindowPlacement;
1551          tmpBool : Boolean;          tmpBool : Boolean;
     doc:IHTMLDocument2;  
1552      WindowPlacement: TWindowPlacement;      WindowPlacement: TWindowPlacement;
1553  begin  begin
1554      // タスクトレイのアイコン削除      // タスクトレイのアイコン削除
# Line 5728  procedure TGikoForm.SelectComboBoxKeyDow Line 5727  procedure TGikoForm.SelectComboBoxKeyDow
5727          Shift: TShiftState);          Shift: TShiftState);
5728  var  var
5729    IMC: HIMC;    IMC: HIMC;
5730    Len: integer;    Len, idx: integer;
5731    Str: string;    Str: string;
5732    tmp: string;    tmp: string;
5733  begin  begin
# Line 5754  begin Line 5753  begin
5753                                  SetSelectWord(Str);                                  SetSelectWord(Str);
5754                          end;                          end;
5755                  end;                  end;
5756        end else if (Key = Windows.VK_DELETE) and (ssCtrl in Shift) then begin
5757            // Ctrl + DEL で削除する
5758            Str := SelectComboBox.Text;
5759            idx := GikoSys.Setting.SelectTextList.IndexOf( Str );
5760            if idx <> -1 then begin
5761                GikoSys.Setting.SelectTextList.Delete( idx );
5762            end;
5763            idx := SelectComboBox.Items.IndexOf( Str );
5764                    if idx <> -1 then begin
5765                SelectComboBox.Items.Delete( idx );
5766            end;
5767            SelectComboBox.Text := '';
5768            // 絞込みを解除するために変更イベントを呼び出す
5769            SelectComboBox.OnChange(Sender);
5770          end else if Length( SelectComboBox.Text ) = 0 then          end else if Length( SelectComboBox.Text ) = 0 then
5771          begin          begin
5772                  {* SelectComboBox.Textが空でも、入力途中でEscしたとか                  {* SelectComboBox.Textが空でも、入力途中でEscしたとか

Legend:
Removed from v.1.673  
changed lines
  Added in v.1.674

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