Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
// タスクトレイのアイコン削除 |
// タスクトレイのアイコン削除 |
| 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 |
| 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 |
|
|
|