| 835 |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
procedure BrowserMaxAndFocusActionExecute(Sender: TObject); |
| 836 |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject); |
| 837 |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
procedure SetFocusForCabinetActionUpdate(Sender: TObject); |
|
procedure ListViewSelectItem(Sender: TObject; Item: TListItem; |
|
|
Selected: Boolean); |
|
| 838 |
procedure SelectTimerTimer(Sender: TObject); |
procedure SelectTimerTimer(Sender: TObject); |
| 839 |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
procedure SelectItemSaveForHTMLExecute(Sender: TObject); |
| 840 |
procedure KidokuActionExecute(Sender: TObject); |
procedure KidokuActionExecute(Sender: TObject); |
| 10806 |
SetFocusForThreadListAction.Execute; |
SetFocusForThreadListAction.Execute; |
| 10807 |
end; |
end; |
| 10808 |
|
|
|
procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem; |
|
|
Selected: Boolean); |
|
|
begin |
|
|
{ |
|
|
if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then |
|
|
if (TObject( Item.Data ) is TThreadItem) then begin |
|
|
SelectTimer.Interval := GikoSys.Setting.SelectInterval; |
|
|
end else |
|
|
SelectTimer.Interval := 0 |
|
|
else |
|
|
SelectTimer.Interval := 0; |
|
|
} |
|
|
end; |
|
|
|
|
| 10809 |
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
procedure TGikoForm.SelectTimerTimer(Sender: TObject); |
| 10810 |
begin |
begin |
| 10811 |
if not (ListView.Selected = nil) then |
if not (ListView.Selected = nil) then |
| 10838 |
for i := 0 to List.Count - 1 do begin |
for i := 0 to List.Count - 1 do begin |
| 10839 |
if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin |
if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin |
| 10840 |
FileSaveAs1.Dialog.FileName := TThreadItem(List[i]).FileName; |
FileSaveAs1.Dialog.FileName := TThreadItem(List[i]).FileName; |
| 10841 |
if FileSaveAs1.Execute then begin |
if FileSaveAs1.Dialog.Execute then begin |
| 10842 |
//なぜかキャンセルでもこっちに入ってくる |
CopyFile(PChar(TThreadItem(List[i]).FilePath), |
| 10843 |
if ExtractFilePath(FileSaveAs1.Dialog.FileName) <> '' then begin |
PChar(FileSaveAs1.Dialog.FileName), true); |
|
CopyFile(PChar(TThreadItem(List[i]).FilePath), |
|
|
PChar(FileSaveAs1.Dialog.FileName), true); |
|
|
end; |
|
| 10844 |
end; |
end; |
| 10845 |
end; |
end; |
| 10846 |
end; |
end; |
| 10876 |
for i := 0 to List.Count - 1 do begin |
for i := 0 to List.Count - 1 do begin |
| 10877 |
if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin |
if (TObject(List[i]) is TThreadItem) and (TThreadItem(List[i]).IsLogFile) then begin |
| 10878 |
FileSaveAs1.Dialog.FileName := ReplaseNoValidateChar(TThreadItem(List[i]).Title) + '.html'; |
FileSaveAs1.Dialog.FileName := ReplaseNoValidateChar(TThreadItem(List[i]).Title) + '.html'; |
| 10879 |
if FileSaveAs1.Execute then begin |
if FileSaveAs1.Dialog.Execute then begin |
| 10880 |
//なぜかキャンセルでもこっちに入ってくる |
html := TStringList.Create; |
| 10881 |
if ExtractFilePath(FileSaveAs1.Dialog.FileName) <> '' then begin |
title := TThreadItem(List[i]).Title; |
| 10882 |
html := TStringList.Create; |
try |
| 10883 |
title := TThreadItem(List[i]).Title; |
GikoSys.CreateHTML3(html, TThreadItem(List[i]), title); |
| 10884 |
try |
html.SaveToFile(FileSaveAs1.Dialog.FileName); |
| 10885 |
GikoSys.CreateHTML3(html, TThreadItem(List[i]), title); |
SkinorCSSFilesCopy(ExtractFilePath(FileSaveAs1.Dialog.FileName)); |
| 10886 |
html.SaveToFile(FileSaveAs1.Dialog.FileName); |
finally |
| 10887 |
SkinorCSSFilesCopy(ExtractFilePath(FileSaveAs1.Dialog.FileName)); |
html.Free; |
|
finally |
|
|
html.Free; |
|
|
end; |
|
| 10888 |
end; |
end; |
| 10889 |
end; |
end; |
| 10890 |
end; |
end; |
| 12198 |
procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewEditing(Sender: TObject; |
| 12199 |
Node: TTreeNode; var AllowEdit: Boolean); |
Node: TTreeNode; var AllowEdit: Boolean); |
| 12200 |
begin |
begin |
| 12201 |
|
//編集前の文字列を一時保存する |
| 12202 |
FOrigenCaption := Node.Text; |
FOrigenCaption := Node.Text; |
| 12203 |
end; |
end; |
| 12204 |
//例外処理されなかった例外を処理する |
//例外処理されなかった例外を処理する |
| 12206 |
var |
var |
| 12207 |
s : String; |
s : String; |
| 12208 |
begin |
begin |
|
s := '処理されない例外' ; |
|
| 12209 |
if (Sender <> nil) then begin |
if (Sender <> nil) then begin |
| 12210 |
s := s + ' [' + Sender.ClassName + ']' + #13#10; |
s := ' [' + Sender.ClassName + ']' + #13#10; |
| 12211 |
end else begin |
end else begin |
| 12212 |
s := s + ' [ Sender is nil ]' + #13#10; |
s := ' [ Sender is nil ] ' + #13#10; |
| 12213 |
end; |
end; |
| 12214 |
s := s + E.Message; |
s := s + E.Message; |
| 12215 |
|
MsgBox(Handle, s, '処理されなかった例外', MB_OK or MB_ICONSTOP); |
|
ShowMessage(s); |
|
| 12216 |
end; |
end; |
| 12217 |
|
|
| 12218 |
initialization |
initialization |