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.453 by h677, Fri Oct 8 16:37:32 2004 UTC revision 1.454 by h677, Sat Oct 9 04:03:35 2004 UTC
# Line 1077  type Line 1077  type
1077                  procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);                  procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1078                  /// ブラウザのキーダウンイベント                  /// ブラウザのキーダウンイベント
1079                  /// イベントを取り扱った場合は True を返す                  /// イベントを取り扱った場合は True を返す
1080                  function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;  //              function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1081                  /// 各所にあるキャビネット・ BBS メニューをセット/更新                  /// 各所にあるキャビネット・ BBS メニューをセット/更新
1082                  procedure SetBBSMenu;                  procedure SetBBSMenu;
1083                  function WebBrowserClick(Sender: TObject): WordBool;                  function WebBrowserClick(Sender: TObject): WordBool;
# Line 1094  type Line 1094  type
1094                  function        ActiveListTrueColumn( column : TListColumn ) : TListColumn;                  function        ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1095                  /// ListColumnPopupMenu アイテムのクリックイベント                  /// ListColumnPopupMenu アイテムのクリックイベント
1096                  procedure       ListColumnPopupMenuOnClick( Sender : TObject );                  procedure       ListColumnPopupMenuOnClick( Sender : TObject );
1097                    // BrowserRecordについているFBrowserを外す
1098                    procedure ReleaseBrowser( BRecord: TBrowserRecord);
1099          protected          protected
1100                  procedure CreateParams(var Params: TCreateParams); override;                  procedure CreateParams(var Params: TCreateParams); override;
1101                  procedure WndProc(var Message: TMessage); override;                  procedure WndProc(var Message: TMessage); override;
# Line 1103  type Line 1105  type
1105    
1106          public          public
1107                  { Public 宣言 }                  { Public 宣言 }
 //              FDownload: TDownload;  
1108                  FControlThread: TThreadControl;                  FControlThread: TThreadControl;
1109                  procedure MoveToURL(const inURL: string);                  procedure MoveToURL(const inURL: string);
1110                  function InsertBrowserTab(                  function InsertBrowserTab(
# Line 1115  type Line 1116  type
1116                  procedure SetEnabledCloseButton(Enabled: Boolean);                  procedure SetEnabledCloseButton(Enabled: Boolean);
1117                  function GetTreeNode(Data: TObject): TTreeNode;                  function GetTreeNode(Data: TObject): TTreeNode;
1118                  procedure AppFormDeactivate(Sender: TObject);                  procedure AppFormDeactivate(Sender: TObject);
 //              procedure CabinetPanelVisible(PanelVisible: Boolean);  
1119                  procedure ListViewAllSelect;                  procedure ListViewAllSelect;
   
1120                  property ListStyle: TViewStyle read FListStyle write FListStyle;                  property ListStyle: TViewStyle read FListStyle write FListStyle;
1121                  property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;                  property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1122                  property ViewType: TGikoViewType read FViewType write FViewType;                  property ViewType: TGikoViewType read FViewType write FViewType;
   
1123                  property NameCookie: string read FNameCookie write FNameCookie;                  property NameCookie: string read FNameCookie write FNameCookie;
1124                  property MailCookie: string read FMailCookie write FMailCookie;                  property MailCookie: string read FMailCookie write FMailCookie;
   
1125                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
1126                  function GetActiveContent: TThreadItem;                  function GetActiveContent: TThreadItem;
1127                  function GetActiveList: TObject;                  function GetActiveList: TObject;
   
   
 //              property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;  
   
1128                  procedure SetListViewType(AViewType: TGikoViewType); overload;                  procedure SetListViewType(AViewType: TGikoViewType); overload;
1129                  procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;                  procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1130                  procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);                  procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1131                  procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);                  procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1132                  procedure PlaySound(SoundEventName: string);                  procedure PlaySound(SoundEventName: string);
   
1133                  function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;                  function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1134                  procedure DeleteHistory( threadItem: TThreadItem );                  procedure DeleteHistory( threadItem: TThreadItem );
1135                  procedure ClearHistory;                  procedure ClearHistory;
# Line 1147  type Line 1139  type
1139                  procedure ShowBBSTreeOld( inBBS : TBBS );                  procedure ShowBBSTreeOld( inBBS : TBBS );
1140                  procedure ShowHistoryTree;                  procedure ShowHistoryTree;
1141                  procedure SetHistoryTreeNode;                  procedure SetHistoryTreeNode;
 //              procedure SelectTreeNode(Item: TObject);  
1142                  procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);                  procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1143                  procedure SetBrowserTabState;                  procedure SetBrowserTabState;
 //              property Favorite: TFavorite read FFavorite write FFavorite;  
1144                  procedure SetToolBarPopup;                  procedure SetToolBarPopup;
1145                  procedure ShowFavoriteAddDialog( Item : TObject );                  procedure ShowFavoriteAddDialog( Item : TObject );
1146                  procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
# Line 1158  type Line 1148  type
1148                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;                  property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1149                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;                  property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1150                  property OddColor : TColor read FOddColor write FOddColor;                  property OddColor : TColor read FOddColor write FOddColor;
   
1151                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;                  function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1152                  procedure OnPlugInMenuItem( Sender : TObject );                  procedure OnPlugInMenuItem( Sender : TObject );
1153                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);                  procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
# Line 1309  begin Line 1298  begin
1298          Self.OnDeactivate := AppFormDeactivate;          Self.OnDeactivate := AppFormDeactivate;
1299          Application.HookMainWindow(Hook);          Application.HookMainWindow(Hook);
1300          Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ          Application.OnMessage := HandleAppMessage; //なんか無くても大丈夫になった by もじゅ
 //      Self.DoubleBuffered := true;  
1301          FTreeType := gttNone;          FTreeType := gttNone;
1302    
1303          FSearchDialog := nil;          FSearchDialog := nil;
# Line 3675  begin Line 3663  begin
3663                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin
3664                                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3665                                                          if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                                          if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
3666                                                                  TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil;                                                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
                                                                 if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin  
                                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free;  
                                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil;  
                                                                 end;  
3667                                                                  break;                                                                  break;
3668                                                          end;                                                          end;
3669                                                  end;                                                  end;
# Line 3701  begin Line 3685  begin
3685                          newBrowser := TBrowserRecord.Create;                          newBrowser := TBrowserRecord.Create;
3686                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3687                                  if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                  if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
3688                                          TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil;                                          ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
                                         if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin  
                                                 TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free;  
                                                 TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil;  
                                         end;  
3689                                          break;                                          break;
3690                                  end;                                  end;
3691                          end;                          end;
# Line 3730  begin Line 3710  begin
3710                          newBrowser := TBrowserRecord.Create;                          newBrowser := TBrowserRecord.Create;
3711                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                          for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3712                                  if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                  if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
3713                                          TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser := nil;                                          ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
                                         if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin  
                                                 TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free;  
                                                 TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil;  
                                         end;  
3714                                          break;                                          break;
3715                                  end;                                  end;
3716                          end;                          end;
# Line 3831  begin Line 3807  begin
3807                          FBrowsers.Move(BROWSER_COUNT - 1, 0);                          FBrowsers.Move(BROWSER_COUNT - 1, 0);
3808                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin                  for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
3809                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
3810                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil;                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i]));
                                 if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin  
                                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free;  
                                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil;  
                                 end;  
3811                                  break;                                  break;
3812                          end;                          end;
3813                  end;                  end;
# Line 4019  begin Line 3991  begin
3991                          BBSs[i].KubetsuChk := KubetsuChk;                          BBSs[i].KubetsuChk := KubetsuChk;
3992                  end;                  end;
3993                  Board := TBoard(ActiveList);                  Board := TBoard(ActiveList);
 //              Board.ParentCategory.ParenTBBS.SelectText := SelectText;  
 //              Board.ParentCategory.ParenTBBS.KubetsuChk := KubetsuChk;  
 //              Board.SelectText := SelectText;  
 //              Board.KubetsuChk := KubetsuChk;  
3994                  ViewType := AViewType;                  ViewType := AViewType;
3995                  SetActiveList(Board);                  SetActiveList(Board);
3996                  SetThreadListItem(Board);                  SetThreadListItem(Board);
# Line 5404  var Line 5372  var
5372  begin  begin
5373          Item := GetActiveContent;          Item := GetActiveContent;
5374          if Item = nil then Exit;          if Item = nil then Exit;
5375          Editor := TEditorForm.Create(Self);          Editor := TEditorForm.Create(Application.MainForm);
5376          Editor.SetThreadItem(Item);          Editor.SetThreadItem(Item);
5377      GikoSys.LoadEditorKeySetting(Editor.ActionList);      GikoSys.LoadEditorKeySetting(Editor.ActionList);
5378          Editor.Show;          Editor.Show;
# Line 5790  begin Line 5758  begin
5758                                          if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser                                          if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
5759                                                   = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then                                                   = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
5760                                          begin                                          begin
5761                                                  TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil;                                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
                                                 if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free;  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil;  
                                                 end;  
5762                                                  break;                                                  break;
5763                                          end;                                          end;
5764                                  end;                                  end;
# Line 5852  begin Line 5816  begin
5816                                          if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser                                          if(TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser
5817                                                   = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then                                                   = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) )then
5818                                          begin                                          begin
5819                                                  TBrowserRecord(BrowserTab.Tabs.Objects[j]).Browser := nil;                                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[j]));
                                                 if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent <> nil then begin  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent.Free;  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[j]).FEvent := nil;  
                                                 end;  
5820                                                  break;                                                  break;
5821                                          end;                                          end;
5822                                  end;                                  end;
# Line 5873  begin Line 5833  begin
5833                  end;                  end;
5834          end;          end;
5835  end;  end;
   
5836  procedure TGikoForm.KokomadeActionExecute(Sender: TObject);  procedure TGikoForm.KokomadeActionExecute(Sender: TObject);
5837  var  var
5838          No: Integer;          No: Integer;
# Line 6470  begin Line 6429  begin
6429    
6430                                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin                                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin
6431                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
6432                                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil;                                                  ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i]));
6433                                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Repaint := true;                                                  break;
                                                 if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent <> nil then begin  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent.Free;  
                                                         TBrowserRecord(BrowserTab.Tabs.Objects[i]).FEvent := nil;  
                                                 end;  
6434                                          end;                                          end;
6435                                  end;                                  end;
6436                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);                                  TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]);
# Line 9313  end; Line 9268  end;
9268  procedure TGikoForm.IndividualAbon1Click(Sender: TObject);  procedure TGikoForm.IndividualAbon1Click(Sender: TObject);
9269  var  var
9270          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
         i: Integer;  
9271  begin  begin
9272          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent;
9273          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 1, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
# Line 9325  end; Line 9279  end;
9279  procedure TGikoForm.IndividualAbon2Click(Sender: TObject);  procedure TGikoForm.IndividualAbon2Click(Sender: TObject);
9280  var  var
9281          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
         i: Integer;  
9282  begin  begin
9283          ThreadItem := GetActiveContent;          ThreadItem := GetActiveContent;
9284          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));          GikoSys.FAbon.AddIndividualAbon(KokoPopupMenu.Tag, 0, ChangeFileExt(ThreadItem.GetThreadFileName, '.NG'));
# Line 10717  end; Line 10670  end;
10670    
10671  // ブラウザのキーダウンイベント    //なんか使わなくても動いてる気がする byもじゅ  // ブラウザのキーダウンイベント    //なんか使わなくても動いてる気がする byもじゅ
10672  // イベントを取り扱った場合は True を返す  // イベントを取り扱った場合は True を返す
10673    {
10674  function TGikoForm.BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;  function TGikoForm.BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
10675  var  var
10676          iOIPAO          : IOleInPlaceActiveObject;          iOIPAO          : IOleInPlaceActiveObject;
# Line 10726  begin Line 10680  begin
10680          if Key = VK_BACK then begin          if Key = VK_BACK then begin
10681                  UpBoardAction.Execute;                  UpBoardAction.Execute;
10682                  Result := True;                  Result := True;
10683          {end else if Key in [VK_ESCAPE..VK_HELP] then begin          //end else if Key in [VK_ESCAPE..VK_HELP] then begin
10684                  // 十字、Page Up、Page Down 等は Browser が勝手に受け取るのでイベントをカット          //      // 十字、Page Up、Page Down 等は Browser が勝手に受け取るのでイベントをカット
10685                  Result := True;          //      Result := True;
10686          }          //
10687          end else if(Key in [VK_SPACE..VK_HELP]) and          end else if(Key in [VK_SPACE..VK_HELP]) and
10688                  not(ssCtrl in State) and not(ssAlt in State) and not (ssShift in State) then begin                  not(ssCtrl in State) and not(ssAlt in State) and not (ssShift in State) then begin
10689                  Result := True;                  Result := True;
# Line 10747  begin Line 10701  begin
10701                  //Result := False;                  //Result := False;
10702          end;          end;
10703    
10704  end;  end;}
10705    
10706  // ギコナビのメッセージループを横取りします  // ギコナビのメッセージループを横取りします
10707  procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean);  procedure TGikoForm.HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
# Line 11803  begin Line 11757  begin
11757          end;          end;
11758    
11759  end;  end;
11760    procedure TGikoForm.ReleaseBrowser( BRecord: TBrowserRecord);
11761    begin
11762            if BRecord <> nil then begin
11763                    BRecord.Browser := nil;
11764                    if BRecord.FEvent <> nil then begin
11765                            BRecord.FEvent.Free;
11766                            BRecord.FEvent := nil;
11767                    end;
11768                    BRecord.Repaint := true;
11769            end;
11770    end;
11771    
11772  initialization  initialization
11773                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.453  
changed lines
  Added in v.1.454

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