Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.106 by yoffy, Sat Nov 15 13:01:26 2003 UTC revision 1.107 by yoffy, Sun Nov 16 08:45:14 2003 UTC
# Line 6  uses Line 6  uses
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,
# Line 506  type Line 506  type
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);
# Line 805  type Line 805  type
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    
# Line 854  type Line 854  type
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;
# Line 1090  begin Line 1090  begin
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;                //ボードファイル読込
# Line 2817  begin Line 2817  begin
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);
# Line 2839  begin Line 2839  begin
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    
# Line 3124  begin Line 3124  begin
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;
# Line 3608  begin Line 3608  begin
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);
# Line 3621  begin Line 3621  begin
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);
# Line 4544  begin Line 4544  begin
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);
# Line 4602  begin Line 4602  begin
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;
# Line 5015  var Line 5015  var
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
# Line 5177  var Line 5177  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);
# Line 5921  begin Line 5921  begin
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;
# Line 6665  procedure TGikoForm.LinkToolButtonOnMous Line 6665  procedure TGikoForm.LinkToolButtonOnMous
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);
# Line 7513  var Line 7513  var
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);
# Line 7564  begin Line 7564  begin
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
# Line 7665  begin Line 7665  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;
# Line 7683  begin Line 7683  begin
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;
# Line 8086  begin Line 8086  begin
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;
# Line 8102  begin Line 8101  begin
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;
# Line 8149  begin Line 8147  begin
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;
# Line 8197  begin Line 8194  begin
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;
# Line 8238  var Line 8234  var
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];
# Line 8252  end; Line 8249  end;
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,
# Line 8316  end; Line 8313  end;
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);

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26