| 6 |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
| 7 |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, |
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, |
| 8 |
{$IF Defined(DELPRO) } |
{$IF Defined(DELPRO) } |
| 9 |
SHDocVw, |
SHDocVw, |
| 10 |
MSHTML, |
MSHTML, |
| 11 |
{$ELSE} |
{$ELSE} |
| 12 |
SHDocVw_TLB, |
SHDocVw_TLB, |
| 506 |
ToolButton20: TToolButton; |
ToolButton20: TToolButton; |
| 507 |
AHundredResButton: TToolButton; |
AHundredResButton: TToolButton; |
| 508 |
N60: TMenuItem; |
N60: TMenuItem; |
| 509 |
N61: TMenuItem; |
N61: TMenuItem; |
| 510 |
ExportFavoriteFileAction1: TMenuItem; |
ExportFavoriteFileAction1: TMenuItem; |
| 511 |
ExportFavoriteFile: TFileSaveAs; |
ExportFavoriteFile: TFileSaveAs; |
| 512 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 513 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 514 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 805 |
var Handled: Boolean); |
var Handled: Boolean); |
| 806 |
procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint; |
| 807 |
var Handled: Boolean); |
var Handled: Boolean); |
| 808 |
procedure ExportFavoriteFileAccept(Sender: TObject); |
procedure ExportFavoriteFileAccept(Sender: TObject); |
| 809 |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure ExportFavoriteFileBeforeExecute(Sender: TObject); |
| 810 |
private |
private |
| 811 |
{ Private 宣言 } |
{ Private 宣言 } |
| 812 |
|
|
| 854 |
|
|
| 855 |
FDropSpaceNode: TTreeNode; |
FDropSpaceNode: TTreeNode; |
| 856 |
|
|
| 857 |
FDragTime : Cardinal; //リンクのD&D用 |
FDragTime : Cardinal; //リンクのD&D用 |
| 858 |
FDragButton : TToolButton; //リンクのD&D用にDragしてるButton保存 |
FDragButton : TToolButton; //リンクのD&D用にDragしてるButton保存 |
| 859 |
FDragWFirst : Boolean; //WebTabのD&D用 |
FDragWFirst : Boolean; //WebTabのD&D用 |
| 860 |
|
|
| 861 |
procedure SetBoardTreeNode; |
procedure SetBoardTreeNode; |
| 862 |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer; |
| 1090 |
//アドレス履歴読み込み |
//アドレス履歴読み込み |
| 1091 |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount); |
| 1092 |
|
|
| 1093 |
// 外部板プラグインをロード(ReadBoardFile より先に行うこと) |
// 外部板プラグインをロード(ReadBoardFile より先に行うこと) |
| 1094 |
InitializeBoardPlugIns; |
InitializeBoardPlugIns; |
| 1095 |
|
|
| 1096 |
EnabledCloseButton := True; |
EnabledCloseButton := True; |
| 1097 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
BoardGroup.BBS2ch.ReadBoardFile; //ボードファイル読込 |
| 2817 |
end;} |
end;} |
| 2818 |
AddMessageList(ATitle + ' [未更新]', nil, gmiSAD); |
AddMessageList(ATitle + ' [未更新]', nil, gmiSAD); |
| 2819 |
PlaySound('NoChange'); |
PlaySound('NoChange'); |
| 2820 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 2821 |
end else if Item.State = gdsAbort then begin |
end else if Item.State = gdsAbort then begin |
| 2822 |
//中断 |
//中断 |
| 2823 |
AddMessageList(ATitle + ' [中断]', nil, gmiSAD); |
AddMessageList(ATitle + ' [中断]', nil, gmiSAD); |
| 2839 |
try |
try |
| 2840 |
Animate.Active := False; |
Animate.Active := False; |
| 2841 |
except |
except |
| 2842 |
Screen.Cursor := crDefault; |
Screen.Cursor := crDefault; |
| 2843 |
end; |
end; |
| 2844 |
end; |
end; |
| 2845 |
|
|
| 3124 |
ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i]; |
ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i]; |
| 3125 |
SetBoardListItem(TCategory(Obj)); |
SetBoardListItem(TCategory(Obj)); |
| 3126 |
end else if Obj is TBoard then begin |
end else if Obj is TBoard then begin |
| 3127 |
// SetThreadListItem 呼ぶならいらないんじゃねぇ? |
// SetThreadListItem 呼ぶならいらないんじゃねぇ? |
| 3128 |
{ |
{ |
| 3129 |
for i := 0 to ListView.Columns.Count - 1 do |
for i := 0 to ListView.Columns.Count - 1 do |
| 3130 |
ListView.Column[i].Width := GikoSys.Setting.BoardColumnWidth[i]; |
ListView.Column[i].Width := GikoSys.Setting.BoardColumnWidth[i]; |
| 3131 |
} |
} |
| 3132 |
SetThreadListItem(TBoard(Obj)); |
SetThreadListItem(TBoard(Obj)); |
| 3133 |
end; |
end; |
| 3134 |
end; |
end; |
| 3608 |
// StdToolBar.Visible := StdToolBarVisibleAction.Checked; |
// StdToolBar.Visible := StdToolBarVisibleAction.Checked; |
| 3609 |
// AnimePanel.Visible := StdToolBar.Visible or ListToolBar.Visible; |
// AnimePanel.Visible := StdToolBar.Visible or ListToolBar.Visible; |
| 3610 |
|
|
| 3611 |
//StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible; |
//StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible; |
| 3612 |
StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible; |
StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible; |
| 3613 |
end; |
end; |
| 3614 |
|
|
| 3615 |
procedure TGikoForm.AddressBarVisibleActionExecute(Sender: TObject); |
procedure TGikoForm.AddressBarVisibleActionExecute(Sender: TObject); |
| 3621 |
Exit; |
Exit; |
| 3622 |
GikoSys.Setting.AddressBarVisible := AddressBarVisibleAction.Checked; |
GikoSys.Setting.AddressBarVisible := AddressBarVisibleAction.Checked; |
| 3623 |
CoolBand.Visible := GikoSys.Setting.AddressBarVisible; |
CoolBand.Visible := GikoSys.Setting.AddressBarVisible; |
| 3624 |
//AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible; |
//AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible; |
| 3625 |
AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible; |
AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible; |
| 3626 |
end; |
end; |
| 3627 |
|
|
| 3628 |
procedure TGikoForm.LinkBarVisibleActionExecute(Sender: TObject); |
procedure TGikoForm.LinkBarVisibleActionExecute(Sender: TObject); |
| 4544 |
msg := 'このスレッドはレス数が1000を超えているので書込み出来ません。' + #13#10 |
msg := 'このスレッドはレス数が1000を超えているので書込み出来ません。' + #13#10 |
| 4545 |
+ '新スレッドを探してください。'; |
+ '新スレッドを探してください。'; |
| 4546 |
if MsgBox(Handle, msg, '警告', MB_YESNO or MB_ICONEXCLAMATION) <> 7 then begin |
if MsgBox(Handle, msg, '警告', MB_YESNO or MB_ICONEXCLAMATION) <> 7 then begin |
| 4547 |
Exit; |
Exit; |
| 4548 |
end; |
end; |
| 4549 |
end; |
end; |
| 4550 |
Editor := TEditorForm.Create(Self); |
Editor := TEditorForm.Create(Self); |
| 4551 |
Editor.SetThreadItem(Item); |
Editor.SetThreadItem(Item); |
| 4602 |
if TObject(List[i]) is TBoard then |
if TObject(List[i]) is TBoard then |
| 4603 |
s := s + TBoard(List[i]).URL + #13#10 |
s := s + TBoard(List[i]).URL + #13#10 |
| 4604 |
else if TObject(List[i]) is TThreadItem then |
else if TObject(List[i]) is TThreadItem then |
| 4605 |
s := s + TThreadItem(List[i]).URL + #13#10; |
s := s + TThreadItem(List[i]).URL + #13#10; |
| 4606 |
end; |
end; |
| 4607 |
if s <> '' then |
if s <> '' then |
| 4608 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 5015 |
begin |
begin |
| 5016 |
|
|
| 5017 |
// if NewTab = -1 then |
// if NewTab = -1 then |
| 5018 |
if not BrowserTab.Dragging then begin |
if not BrowserTab.Dragging then begin |
| 5019 |
FTabHintIndex := -1; |
FTabHintIndex := -1; |
| 5020 |
BrowserTab.Hint := ''; |
BrowserTab.Hint := ''; |
| 5021 |
idx := BrowserTab.TabIndex; |
idx := BrowserTab.TabIndex; |
| 5022 |
if idx = -1 then |
if idx = -1 then |
| 5023 |
SetContent(BrowserNullTab) |
SetContent(BrowserNullTab) |
| 5024 |
else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin |
else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin |
| 5025 |
ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]); |
ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]); |
| 5026 |
SetContent(ThreadItem); |
SetContent(ThreadItem); |
| 5027 |
if GikoSys.Setting.URLDisplay then |
if GikoSys.Setting.URLDisplay then |
| 5028 |
AddressComboBox.Text := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName); |
AddressComboBox.Text := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName); |
|
end; |
|
| 5029 |
end; |
end; |
| 5030 |
|
end; |
| 5031 |
end; |
end; |
| 5032 |
procedure TGikoForm.BrowserTabClick(Sender: TObject); |
procedure TGikoForm.BrowserTabClick(Sender: TObject); |
| 5033 |
var |
var |
| 5177 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 5178 |
begin |
begin |
| 5179 |
|
|
| 5180 |
TabIdx := BrowserTab.IndexOfTabAt(x, y); |
TabIdx := BrowserTab.IndexOfTabAt(x, y); |
| 5181 |
|
|
| 5182 |
if ( ssLeft in Shift )then begin |
if ( ssLeft in Shift )then begin |
| 5183 |
if FDragWFirst = false then begin |
if FDragWFirst = false then begin |
| 5184 |
// FDragWFirst := true; |
// FDragWFirst := true; |
| 5185 |
end else begin{ |
end else begin{ |
| 5186 |
BrowserTab.EndDrag(false); |
BrowserTab.EndDrag(false); |
| 5187 |
BrowserTab.BeginDrag(false, DandD_THRESHOLD); |
BrowserTab.BeginDrag(false, DandD_THRESHOLD); |
| 5188 |
FDragWFirst := false; |
FDragWFirst := false; |
| 5189 |
}end; |
}end; |
| 5190 |
end else begin |
end else begin |
| 5191 |
{ |
{ |
| 5192 |
BrowserTab.EndDrag(false); |
BrowserTab.EndDrag(false); |
| 5921 |
Board := TBoard.Create; |
Board := TBoard.Create; |
| 5922 |
Board.Insert( 0, ThreadItem ); |
Board.Insert( 0, ThreadItem ); |
| 5923 |
InsertBrowserTab( ThreadItem ); |
InsertBrowserTab( ThreadItem ); |
| 5924 |
if not ThreadItem.IsLogFile then |
if not ThreadItem.IsLogFile then |
| 5925 |
DownloadContent( ThreadItem ); |
DownloadContent( ThreadItem ); |
| 5926 |
|
|
| 5927 |
Exit; |
Exit; |
| 6665 |
var |
var |
| 6666 |
Now : Cardinal; |
Now : Cardinal; |
| 6667 |
begin |
begin |
| 6668 |
TToolButton( Sender ).DragMode := dmManual; |
TToolButton( Sender ).DragMode := dmManual; |
| 6669 |
if ssLeft in Shift then begin |
if ssLeft in Shift then begin |
| 6670 |
TToolButton( Sender ).Down := true; |
TToolButton( Sender ).Down := true; |
| 6671 |
if FDragTime = 0 then begin |
if FDragTime = 0 then begin |
| 6672 |
FDragTime := GetTickCount(); |
FDragTime := GetTickCount(); |
| 6673 |
end else begin |
end else begin |
| 6674 |
Now := GetTickCount(); |
Now := GetTickCount(); |
| 6675 |
if (Now - FDragTime) > 500 then begin |
if (Now - FDragTime) > 500 then begin |
| 6676 |
if FDragButton <> TToolButton( Sender ) then begin |
if FDragButton <> TToolButton( Sender ) then begin |
| 6677 |
try |
try |
| 6678 |
FDragButton := TToolButton( Sender ); |
FDragButton := TToolButton( Sender ); |
| 6679 |
TToolButton(Sender).BeginDrag(false ,5); |
TToolButton(Sender).BeginDrag(false ,5); |
| 6680 |
FDragTime := 0; |
FDragTime := 0; |
| 6681 |
except |
except |
| 6682 |
{$IF Defined(debug)} |
{$IF Defined(debug)} |
| 6683 |
ShowMessage('Error'); |
ShowMessage('Error'); |
| 6684 |
{$IFEND} |
{$IFEND} |
| 6685 |
end; |
end; |
|
end; |
|
|
end; |
|
| 6686 |
end; |
end; |
| 6687 |
end else begin |
end; |
|
FDragTime := 0; |
|
| 6688 |
end; |
end; |
| 6689 |
|
end else begin |
| 6690 |
|
FDragTime := 0; |
| 6691 |
|
end; |
| 6692 |
end; |
end; |
| 6693 |
|
|
| 6694 |
procedure TGikoForm.LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
procedure TGikoForm.LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 7513 |
i : Integer; |
i : Integer; |
| 7514 |
msg : String; |
msg : String; |
| 7515 |
begin |
begin |
| 7516 |
IndividualForm := TIndividualAbonForm.Create(Self); |
IndividualForm := TIndividualAbonForm.Create(Self); |
| 7517 |
try |
try |
| 7518 |
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
if GikoSys.FAbon.GetAbonResCount <> 0 then begin |
| 7519 |
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin |
| 7520 |
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |
IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i)); |
|
end; |
|
|
if IndividualForm.ShowModal = mrOK then begin |
|
|
GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber); |
|
|
end; |
|
|
ThreadItem := GetActiveContent; |
|
|
if ThreadItem <> nil then |
|
|
SetContent( ThreadItem ); |
|
|
end else begin |
|
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
|
|
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
|
| 7521 |
end; |
end; |
| 7522 |
finally |
if IndividualForm.ShowModal = mrOK then begin |
| 7523 |
IndividualForm.Free; |
GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber); |
| 7524 |
|
end; |
| 7525 |
|
ThreadItem := GetActiveContent; |
| 7526 |
|
if ThreadItem <> nil then |
| 7527 |
|
SetContent( ThreadItem ); |
| 7528 |
|
end else begin |
| 7529 |
|
msg := 'このスレッドでは個別あぼ〜んを行ってません'; |
| 7530 |
|
MsgBox(Handle, msg, 'メッセージ', MB_OK); |
| 7531 |
end; |
end; |
| 7532 |
|
finally |
| 7533 |
|
IndividualForm.Free; |
| 7534 |
|
end; |
| 7535 |
end; |
end; |
| 7536 |
|
|
| 7537 |
procedure TGikoForm.SelectComboBoxEnter(Sender: TObject); |
procedure TGikoForm.SelectComboBoxEnter(Sender: TObject); |
| 7564 |
if TreeView.Selected = nil then |
if TreeView.Selected = nil then |
| 7565 |
CurItem := TreeView.Items.GetFirstNode |
CurItem := TreeView.Items.GetFirstNode |
| 7566 |
else begin |
else begin |
| 7567 |
CurItem := TreeView.Selected.GetNext; |
CurItem := TreeView.Selected.GetNext; |
| 7568 |
if CurItem = nil then |
if CurItem = nil then |
| 7569 |
CurItem := TreeView.Items.GetFirstNode; |
CurItem := TreeView.Items.GetFirstNode; |
| 7570 |
end; |
end; |
| 7571 |
while CurItem <> nil do begin |
while CurItem <> nil do begin |
| 7572 |
if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin |
if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin |
| 7665 |
Node.ImageIndex := 15; |
Node.ImageIndex := 15; |
| 7666 |
Node.SelectedIndex := 15; |
Node.SelectedIndex := 15; |
| 7667 |
end else if Source is TFavoriteBoardItem then begin |
end else if Source is TFavoriteBoardItem then begin |
| 7668 |
FavoBoardItem := TFavoriteBoardItem( Source ); |
FavoBoardItem := TFavoriteBoardItem( Source ); |
| 7669 |
Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID ); |
Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID ); |
| 7670 |
if Board <> nil then |
if Board <> nil then |
| 7671 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 7672 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 7673 |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source); |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source); |
| 7674 |
Node.ImageIndex := 15; |
Node.ImageIndex := 15; |
| 7675 |
Node.SelectedIndex := 15; |
Node.SelectedIndex := 15; |
| 7683 |
Node.ImageIndex := 16; |
Node.ImageIndex := 16; |
| 7684 |
Node.SelectedIndex := 16; |
Node.SelectedIndex := 16; |
| 7685 |
end else if Source is TFavoriteThreadItem then begin |
end else if Source is TFavoriteThreadItem then begin |
| 7686 |
FavoThreadItem := TFavoriteThreadItem( Source ); |
FavoThreadItem := TFavoriteThreadItem( Source ); |
| 7687 |
Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID ); |
Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID ); |
| 7688 |
if Board <> nil then |
if Board <> nil then |
| 7689 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 7690 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 7691 |
ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID ); |
ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID ); |
| 7692 |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source); |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source); |
| 7693 |
Node.ImageIndex := 16; |
Node.ImageIndex := 16; |
| 7694 |
Node.SelectedIndex := 16; |
Node.SelectedIndex := 16; |
| 8086 |
ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); |
ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID); |
| 8087 |
|
|
| 8088 |
try |
try |
|
|
|
| 8089 |
s := ThreadItem.URL + #13#10; |
s := ThreadItem.URL + #13#10; |
| 8090 |
if s <> '' then |
if s <> '' then |
| 8091 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 8101 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 8102 |
|
|
| 8103 |
try |
try |
|
|
|
| 8104 |
s := Board.URL + #13#10; |
s := Board.URL + #13#10; |
| 8105 |
if s <> '' then |
if s <> '' then |
| 8106 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 8147 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 8148 |
|
|
| 8149 |
try |
try |
|
|
|
| 8150 |
s := Board.Title + #13#10; |
s := Board.Title + #13#10; |
| 8151 |
if s <> '' then |
if s <> '' then |
| 8152 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 8194 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 8195 |
|
|
| 8196 |
try |
try |
|
|
|
| 8197 |
s := Board.URL + #13#10 + Board.Title + #13#10; |
s := Board.URL + #13#10 + Board.Title + #13#10; |
| 8198 |
if s <> '' then |
if s <> '' then |
| 8199 |
Clipboard.AsText := s; |
Clipboard.AsText := s; |
| 8234 |
SenderNode: TTreeNode; |
SenderNode: TTreeNode; |
| 8235 |
begin |
begin |
| 8236 |
|
|
| 8237 |
|
SenderNode := nil; |
| 8238 |
for i := 0 to FavoriteTreeView.Items.Count - 1 do begin |
for i := 0 to FavoriteTreeView.Items.Count - 1 do begin |
| 8239 |
if FavoriteTreeView.Items[i].Text = Favorite.FAVORITE_LINK_NAME then begin |
if FavoriteTreeView.Items[i].Text = Favorite.FAVORITE_LINK_NAME then begin |
| 8240 |
SenderNode := FavoriteTreeView.Items[i]; |
SenderNode := FavoriteTreeView.Items[i]; |
| 8249 |
procedure TGikoForm.BrowserTabMouseUp(Sender: TObject; |
procedure TGikoForm.BrowserTabMouseUp(Sender: TObject; |
| 8250 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 8251 |
begin |
begin |
| 8252 |
if FDragWFirst <> true then begin |
if FDragWFirst <> true then begin |
| 8253 |
FDragWFirst := false; |
FDragWFirst := false; |
| 8254 |
end; |
end; |
| 8255 |
end; |
end; |
| 8256 |
|
|
| 8257 |
procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X, |
procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X, |
| 8313 |
procedure TGikoForm.ExportFavoriteFileAccept(Sender: TObject); |
procedure TGikoForm.ExportFavoriteFileAccept(Sender: TObject); |
| 8314 |
begin |
begin |
| 8315 |
if FavoriteDM.SaveFavoriteFile( ExportFavoriteFile.Dialog.FileName ) Then begin |
if FavoriteDM.SaveFavoriteFile( ExportFavoriteFile.Dialog.FileName ) Then begin |
| 8316 |
ShowMessage('ファイルを出力しました'); |
ShowMessage('ファイルを出力しました'); |
| 8317 |
end else begin |
end else begin |
| 8318 |
ShowMessage('ファイルの出力に失敗しました'); |
ShowMessage('ファイルの出力に失敗しました'); |
| 8319 |
end; |
end; |
| 8320 |
end; |
end; |
| 8321 |
|
|
| 8322 |
procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject); |
procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject); |