Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils,
{$IF Defined(DELPRO) }
- SHDocVw,
+ SHDocVw,
MSHTML,
{$ELSE}
SHDocVw_TLB,
ToolButton20: TToolButton;
AHundredResButton: TToolButton;
N60: TMenuItem;
- N61: TMenuItem;
- ExportFavoriteFileAction1: TMenuItem;
- ExportFavoriteFile: TFileSaveAs;
+ N61: TMenuItem;
+ ExportFavoriteFileAction1: TMenuItem;
+ ExportFavoriteFile: TFileSaveAs;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CabinetPanelHide(Sender: TObject);
var Handled: Boolean);
procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
- procedure ExportFavoriteFileAccept(Sender: TObject);
- procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
+ procedure ExportFavoriteFileAccept(Sender: TObject);
+ procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
private
{ Private \90é\8c¾ }
FDropSpaceNode: TTreeNode;
- FDragTime : Cardinal; //\83\8a\83\93\83N\82ÌD&D\97p
- FDragButton : TToolButton; //\83\8a\83\93\83N\82ÌD&D\97p\82ÉDrag\82µ\82Ä\82éButton\95Û\91¶
- FDragWFirst : Boolean; //WebTab\82ÌD&D\97p
+ FDragTime : Cardinal; //\83\8a\83\93\83N\82ÌD&D\97p
+ FDragButton : TToolButton; //\83\8a\83\93\83N\82ÌD&D\97p\82ÉDrag\82µ\82Ä\82éButton\95Û\91¶
+ FDragWFirst : Boolean; //WebTab\82ÌD&D\97p
procedure SetBoardTreeNode;
function SetCategoryListItem(ABBS2ch: TBBS2ch): Integer;
//\83A\83h\83\8c\83X\97\9a\97ð\93Ç\82Ý\8d\9e\82Ý
AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
- // \8aO\95\94\94Â\83v\83\89\83O\83C\83\93\82ð\83\8d\81[\83h(ReadBoardFile \82æ\82è\90æ\82É\8ds\82¤\82±\82Æ)
- InitializeBoardPlugIns;
+ // \8aO\95\94\94Â\83v\83\89\83O\83C\83\93\82ð\83\8d\81[\83h(ReadBoardFile \82æ\82è\90æ\82É\8ds\82¤\82±\82Æ)
+ InitializeBoardPlugIns;
EnabledCloseButton := True;
BoardGroup.BBS2ch.ReadBoardFile; //\83{\81[\83h\83t\83@\83C\83\8b\93Ç\8d\9e
end;}
AddMessageList(ATitle + ' [\96¢\8dX\90V]', nil, gmiSAD);
PlaySound('NoChange');
- Screen.Cursor := crDefault;
+ Screen.Cursor := crDefault;
end else if Item.State = gdsAbort then begin
//\92\86\92f
AddMessageList(ATitle + ' [\92\86\92f]', nil, gmiSAD);
try
Animate.Active := False;
except
- Screen.Cursor := crDefault;
+ Screen.Cursor := crDefault;
end;
end;
ListView.Column[i].Width := GikoSys.Setting.CategoryColumnWidth[i];
SetBoardListItem(TCategory(Obj));
end else if Obj is TBoard then begin
- // SetThreadListItem \8cÄ\82Ô\82È\82ç\82¢\82ç\82È\82¢\82ñ\82¶\82á\82Ë\82¥\81H
- {
+ // SetThreadListItem \8cÄ\82Ô\82È\82ç\82¢\82ç\82È\82¢\82ñ\82¶\82á\82Ë\82¥\81H
+ {
for i := 0 to ListView.Columns.Count - 1 do
ListView.Column[i].Width := GikoSys.Setting.BoardColumnWidth[i];
- }
+ }
SetThreadListItem(TBoard(Obj));
end;
end;
// StdToolBar.Visible := StdToolBarVisibleAction.Checked;
// AnimePanel.Visible := StdToolBar.Visible or ListToolBar.Visible;
- //StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
- StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible;
+ //StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
+ StdToolBarVisiblePMenu.Checked := GikoSys.Setting.StdToolBarVisible;
end;
procedure TGikoForm.AddressBarVisibleActionExecute(Sender: TObject);
Exit;
GikoSys.Setting.AddressBarVisible := AddressBarVisibleAction.Checked;
CoolBand.Visible := GikoSys.Setting.AddressBarVisible;
- //AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
- AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible;
+ //AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
+ AddressToolBarVisiblePMenu.Checked := GikoSys.Setting.AddressBarVisible;
end;
procedure TGikoForm.LinkBarVisibleActionExecute(Sender: TObject);
msg := '\82±\82Ì\83X\83\8c\83b\83h\82Í\83\8c\83X\90\94\82ª\82P\82O\82O\82O\82ð\92´\82¦\82Ä\82¢\82é\82Ì\82Å\8f\91\8d\9e\82Ý\8fo\97\88\82Ü\82¹\82ñ\81B' + #13#10
+ '\90V\83X\83\8c\83b\83h\82ð\92T\82µ\82Ä\82\82¾\82³\82¢\81B';
if MsgBox(Handle, msg, '\8cx\8d\90', MB_YESNO or MB_ICONEXCLAMATION) <> 7 then begin
- Exit;
- end;
+ Exit;
+ end;
end;
Editor := TEditorForm.Create(Self);
Editor.SetThreadItem(Item);
if TObject(List[i]) is TBoard then
s := s + TBoard(List[i]).URL + #13#10
else if TObject(List[i]) is TThreadItem then
- s := s + TThreadItem(List[i]).URL + #13#10;
+ s := s + TThreadItem(List[i]).URL + #13#10;
end;
if s <> '' then
Clipboard.AsText := s;
begin
// if NewTab = -1 then
- if not BrowserTab.Dragging then begin
- FTabHintIndex := -1;
- BrowserTab.Hint := '';
- idx := BrowserTab.TabIndex;
- if idx = -1 then
- SetContent(BrowserNullTab)
- else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin
- ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
- SetContent(ThreadItem);
- if GikoSys.Setting.URLDisplay then
- AddressComboBox.Text := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName);
- end;
+ if not BrowserTab.Dragging then begin
+ FTabHintIndex := -1;
+ BrowserTab.Hint := '';
+ idx := BrowserTab.TabIndex;
+ if idx = -1 then
+ SetContent(BrowserNullTab)
+ else if BrowserTab.Tabs.Objects[idx] is TThreadItem then begin
+ ThreadItem := TThreadItem(BrowserTab.Tabs.Objects[idx]);
+ SetContent(ThreadItem);
+ if GikoSys.Setting.URLDisplay then
+ AddressComboBox.Text := GikoSys.GetURL(ThreadItem.ParentBoard.BBSID, ThreadItem.FileName);
end;
+ end;
end;
procedure TGikoForm.BrowserTabClick(Sender: TObject);
var
ThreadItem: TThreadItem;
begin
- TabIdx := BrowserTab.IndexOfTabAt(x, y);
+ TabIdx := BrowserTab.IndexOfTabAt(x, y);
if ( ssLeft in Shift )then begin
- if FDragWFirst = false then begin
- // FDragWFirst := true;
- end else begin{
- BrowserTab.EndDrag(false);
- BrowserTab.BeginDrag(false, DandD_THRESHOLD);
- FDragWFirst := false;
- }end;
+ if FDragWFirst = false then begin
+ // FDragWFirst := true;
+ end else begin{
+ BrowserTab.EndDrag(false);
+ BrowserTab.BeginDrag(false, DandD_THRESHOLD);
+ FDragWFirst := false;
+ }end;
end else begin
{
BrowserTab.EndDrag(false);
Board := TBoard.Create;
Board.Insert( 0, ThreadItem );
InsertBrowserTab( ThreadItem );
- if not ThreadItem.IsLogFile then
+ if not ThreadItem.IsLogFile then
DownloadContent( ThreadItem );
Exit;
var
Now : Cardinal;
begin
- TToolButton( Sender ).DragMode := dmManual;
- if ssLeft in Shift then begin
- TToolButton( Sender ).Down := true;
+ TToolButton( Sender ).DragMode := dmManual;
+ if ssLeft in Shift then begin
+ TToolButton( Sender ).Down := true;
if FDragTime = 0 then begin
- FDragTime := GetTickCount();
- end else begin
- Now := GetTickCount();
- if (Now - FDragTime) > 500 then begin
- if FDragButton <> TToolButton( Sender ) then begin
+ FDragTime := GetTickCount();
+ end else begin
+ Now := GetTickCount();
+ if (Now - FDragTime) > 500 then begin
+ if FDragButton <> TToolButton( Sender ) then begin
try
- FDragButton := TToolButton( Sender );
- TToolButton(Sender).BeginDrag(false ,5);
- FDragTime := 0;
- except
- {$IF Defined(debug)}
- ShowMessage('Error');
- {$IFEND}
- end;
- end;
- end;
+ FDragButton := TToolButton( Sender );
+ TToolButton(Sender).BeginDrag(false ,5);
+ FDragTime := 0;
+ except
+ {$IF Defined(debug)}
+ ShowMessage('Error');
+ {$IFEND}
+ end;
end;
- end else begin
- FDragTime := 0;
+ end;
end;
+ end else begin
+ FDragTime := 0;
+ end;
end;
procedure TGikoForm.LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
i : Integer;
msg : String;
begin
- IndividualForm := TIndividualAbonForm.Create(Self);
- try
- if GikoSys.FAbon.GetAbonResCount <> 0 then begin
- for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin
- 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 := '\82±\82Ì\83X\83\8c\83b\83h\82Å\82Í\8cÂ\95Ê\82 \82Ú\81`\82ñ\82ð\8ds\82Á\82Ä\82Ü\82¹\82ñ';
- MsgBox(Handle, msg, '\83\81\83b\83Z\81[\83W', MB_OK);
+ IndividualForm := TIndividualAbonForm.Create(Self);
+ try
+ if GikoSys.FAbon.GetAbonResCount <> 0 then begin
+ for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin
+ IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i));
end;
- finally
- IndividualForm.Free;
+ if IndividualForm.ShowModal = mrOK then begin
+ GikoSys.FAbon.DeleteIndividualAbon(IndividualForm.ResNumber);
+ end;
+ ThreadItem := GetActiveContent;
+ if ThreadItem <> nil then
+ SetContent( ThreadItem );
+ end else begin
+ msg := '\82±\82Ì\83X\83\8c\83b\83h\82Å\82Í\8cÂ\95Ê\82 \82Ú\81`\82ñ\82ð\8ds\82Á\82Ä\82Ü\82¹\82ñ';
+ MsgBox(Handle, msg, '\83\81\83b\83Z\81[\83W', MB_OK);
end;
+ finally
+ IndividualForm.Free;
+ end;
end;
procedure TGikoForm.SelectComboBoxEnter(Sender: TObject);
if TreeView.Selected = nil then
CurItem := TreeView.Items.GetFirstNode
else begin
- CurItem := TreeView.Selected.GetNext;
- if CurItem = nil then
- CurItem := TreeView.Items.GetFirstNode;
+ CurItem := TreeView.Selected.GetNext;
+ if CurItem = nil then
+ CurItem := TreeView.Items.GetFirstNode;
end;
while CurItem <> nil do begin
if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin
Node.ImageIndex := 15;
Node.SelectedIndex := 15;
end else if Source is TFavoriteBoardItem then begin
- FavoBoardItem := TFavoriteBoardItem( Source );
- Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID );
- if Board <> nil then
- if not Board.IsThreadDatRead then
- GikoSys.ReadSubjectFile(Board);
+ FavoBoardItem := TFavoriteBoardItem( Source );
+ Board := BBS2ch.FindBBSID( FavoBoardItem.BBSID );
+ if Board <> nil then
+ if not Board.IsThreadDatRead then
+ GikoSys.ReadSubjectFile(Board);
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Board.Title, Source);
Node.ImageIndex := 15;
Node.SelectedIndex := 15;
Node.ImageIndex := 16;
Node.SelectedIndex := 16;
end else if Source is TFavoriteThreadItem then begin
- FavoThreadItem := TFavoriteThreadItem( Source );
- Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID );
- if Board <> nil then
- if not Board.IsThreadDatRead then
- GikoSys.ReadSubjectFile(Board);
- ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID );
+ FavoThreadItem := TFavoriteThreadItem( Source );
+ Board := BBS2ch.FindBBSID( FavoThreadItem.BBSID );
+ if Board <> nil then
+ if not Board.IsThreadDatRead then
+ GikoSys.ReadSubjectFile(Board);
+ ThreadItem := BBS2ch.FindThreadItem( FavoThreadItem.BBSID, FavoThreadItem.ThreadID );
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, Source);
Node.ImageIndex := 16;
Node.SelectedIndex := 16;
ThreadItem := BBS2ch.FindThreadItem(FavThread.BBSID, FavThread.ThreadID);
try
-
s := ThreadItem.URL + #13#10;
if s <> '' then
Clipboard.AsText := s;
GikoSys.ReadSubjectFile(Board);
try
-
s := Board.URL + #13#10;
if s <> '' then
Clipboard.AsText := s;
GikoSys.ReadSubjectFile(Board);
try
-
s := Board.Title + #13#10;
if s <> '' then
Clipboard.AsText := s;
GikoSys.ReadSubjectFile(Board);
try
-
s := Board.URL + #13#10 + Board.Title + #13#10;
if s <> '' then
Clipboard.AsText := s;
SenderNode: TTreeNode;
begin
+ SenderNode := nil;
for i := 0 to FavoriteTreeView.Items.Count - 1 do begin
if FavoriteTreeView.Items[i].Text = Favorite.FAVORITE_LINK_NAME then begin
SenderNode := FavoriteTreeView.Items[i];
procedure TGikoForm.BrowserTabMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
- if FDragWFirst <> true then begin
- FDragWFirst := false;
- end;
+ if FDragWFirst <> true then begin
+ FDragWFirst := false;
+ end;
end;
procedure TGikoForm.LinkToolBarDragOver(Sender, Source: TObject; X,
procedure TGikoForm.ExportFavoriteFileAccept(Sender: TObject);
begin
if FavoriteDM.SaveFavoriteFile( ExportFavoriteFile.Dialog.FileName ) Then begin
- ShowMessage('\83t\83@\83C\83\8b\82ð\8fo\97Í\82µ\82Ü\82µ\82½');
- end else begin
- ShowMessage('\83t\83@\83C\83\8b\82Ì\8fo\97Í\82É\8e¸\94s\82µ\82Ü\82µ\82½');
- end;
+ ShowMessage('\83t\83@\83C\83\8b\82ð\8fo\97Í\82µ\82Ü\82µ\82½');
+ end else begin
+ ShowMessage('\83t\83@\83C\83\8b\82Ì\8fo\97Í\82É\8e¸\94s\82µ\82Ü\82µ\82½');
+ end;
end;
procedure TGikoForm.ExportFavoriteFileBeforeExecute(Sender: TObject);
OSDN Git Service
