| 564 |
SelectComboBoxSplitter: TImage; |
SelectComboBoxSplitter: TImage; |
| 565 |
ToolButton1: TToolButton; |
ToolButton1: TToolButton; |
| 566 |
N74: TMenuItem; |
N74: TMenuItem; |
| 567 |
FAQW1: TMenuItem; |
WikiFAQ: TMenuItem; |
| 568 |
|
WikiFAQWebPageAction: TAction; |
| 569 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 570 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 571 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 890 |
Shift: TShiftState); |
Shift: TShiftState); |
| 891 |
procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode; |
procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode; |
| 892 |
var AllowEdit: Boolean); |
var AllowEdit: Boolean); |
| 893 |
procedure FAQW1Click(Sender: TObject); |
procedure WikiFAQWebPageActionExecute(Sender: TObject); |
| 894 |
private |
private |
| 895 |
{ Private 宣言 } |
{ Private 宣言 } |
| 896 |
FSortIndex: Integer; |
FSortIndex: Integer; |
| 4018 |
begin |
begin |
| 4019 |
// if FActiveList <> Obj then begin |
// if FActiveList <> Obj then begin |
| 4020 |
FActiveList := Obj; |
FActiveList := Obj; |
| 4021 |
try |
try |
| 4022 |
if ListView.Selected <> nil then |
if ListView.Selected <> nil then |
| 4023 |
idx := ListView.Selected.Index |
idx := ListView.Selected.Index |
| 4024 |
else |
else |
| 4025 |
idx := -1; |
idx := -1; |
| 4026 |
except |
except |
| 4027 |
idx := -1; |
idx := -1; |
| 4028 |
end; |
end; |
| 4029 |
ListView.Items.Count := 0; |
ListView.Items.Count := 0; |
| 4030 |
ListView.Items.Clear; |
ListView.Items.Clear; |
| 4031 |
ListView.Selected := nil; |
ListView.Selected := nil; |
| 7057 |
|
|
| 7058 |
procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject); |
procedure TGikoForm.SelectTextClearActionExecute(Sender: TObject); |
| 7059 |
const |
const |
| 7060 |
DEL_MSG = '絞込み履歴を削除します。よろしいですか?'; |
DEL_MSG = '絞込み全履歴を削除します。よろしいですか?'; |
| 7061 |
DEL_TITLE = '削除確認'; |
DEL_TITLE = '削除確認'; |
| 7062 |
begin |
begin |
| 7063 |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
| 7073 |
var |
var |
| 7074 |
i: Integer; |
i: Integer; |
| 7075 |
const |
const |
| 7076 |
DEL_MSG = 'レスエディタ名前履歴をすべて削除します。よろしいですか?'; |
DEL_MSG = 'レスエディタ名前全履歴を削除します。よろしいですか?'; |
| 7077 |
DEL_TITLE = '削除確認'; |
DEL_TITLE = '削除確認'; |
| 7078 |
begin |
begin |
| 7079 |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
| 7090 |
var |
var |
| 7091 |
i: Integer; |
i: Integer; |
| 7092 |
const |
const |
| 7093 |
DEL_MSG = 'レスエディタメール履歴をすべて削除します。よろしいですか?'; |
DEL_MSG = 'レスエディタメール全履歴を削除します。よろしいですか?'; |
| 7094 |
DEL_TITLE = '削除確認'; |
DEL_TITLE = '削除確認'; |
| 7095 |
begin |
begin |
| 7096 |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
if (GetKeyState( VK_SHIFT ) and $80000000) = 0 then |
| 8143 |
|
|
| 8144 |
procedure TGikoForm.ToolButton18Click(Sender: TObject); |
procedure TGikoForm.ToolButton18Click(Sender: TObject); |
| 8145 |
const |
const |
| 8146 |
DEL_MSG = 'すべての履歴を削除します。よろしいですか?'; |
DEL_MSG = '全履歴を削除します。よろしいですか?'; |
| 8147 |
DEL_TITLE = '削除確認'; |
DEL_TITLE = '削除確認'; |
| 8148 |
begin |
begin |
| 8149 |
if FTreeType = gttHistory then begin |
if FTreeType = gttHistory then begin |
| 9499 |
end; |
end; |
| 9500 |
end; |
end; |
| 9501 |
|
|
|
|
|
| 9502 |
SetLinkBar; |
SetLinkBar; |
| 9503 |
|
|
| 9504 |
end; |
end; |
| 12176 |
MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP); |
MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP); |
| 12177 |
end; |
end; |
| 12178 |
|
|
| 12179 |
|
procedure TGikoForm.WikiFAQWebPageActionExecute(Sender: TObject); |
|
procedure TGikoForm.FAQW1Click(Sender: TObject); |
|
| 12180 |
const |
const |
| 12181 |
URL_2ch: string = 'http://gikowiki.dyndns.info/index.php?FAQ'; |
URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ'; |
| 12182 |
begin |
begin |
| 12183 |
GikoSys.OpenBrowser(URL_2ch, gbtAuto); |
GikoSys.OpenBrowser(URL_Wiki, gbtAuto); |
| 12184 |
end; |
end; |
| 12185 |
|
|
| 12186 |
initialization |
initialization |