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.39 by yoffy, Tue Sep 2 16:48:19 2003 UTC revision 1.40 by h677, Thu Sep 4 08:22:07 2003 UTC
# Line 2114  var Line 2114  var
2114          wkBBS: string;          wkBBS: string;
2115          wkKey: string;          wkKey: string;
2116    
2117          wkInt: Integer;          //wkInt: Integer;
2118          wkIntSt: Integer;          wkIntSt: Integer;
2119          wkIntTo: Integer;          wkIntTo: Integer;
2120    
# Line 2214  begin Line 2214  begin
2214                                  end else if (wkIntSt > 0) and (wkIntTo = 0) then begin                                  end else if (wkIntSt > 0) and (wkIntTo = 0) then begin
2215                                          wkIntTo := wkIntSt;                                          wkIntTo := wkIntSt;
2216                                  end else if wkIntSt > wkIntTo then begin                                  end else if wkIntSt > wkIntTo then begin
2217                                          wkInt := wkIntTo;                                          //wkInt := wkIntTo;
2218                                          wkIntTo := wkIntSt;                                          wkIntTo := wkIntSt;
2219                                          wkIntSt := wkIntTo;                                          wkIntSt := wkIntTo;
2220                                  end;                                  end;
# Line 2789  end;} Line 2789  end;}
2789  procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);  procedure TGikoForm.InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
2790  var  var
2791          i: Integer;          i: Integer;
2792          OldIndex: Integer;     //   OldIndex: Integer;
2793  begin  begin
2794          if ThreadItem.IsLogFile then begin          if ThreadItem.IsLogFile then begin
2795                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin                  for i := 0 to BrowserTab.Tabs.Count - 1 do begin
2796                          if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin                          if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin
2797                                  if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin                                  if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin
2798                                          if ActiveTab then begin                                          if ActiveTab then begin
2799                                                  OldIndex := BrowserTab.TabIndex;                                                  //OldIndex := BrowserTab.TabIndex;
2800                                                  BrowserTab.TabIndex := i;                                                  BrowserTab.TabIndex := i;
2801  //                                              if OldIndex <> i then  //                                              if OldIndex <> i then
2802                                                          BrowserTab.OnChange(nil);                                                          BrowserTab.OnChange(nil);
# Line 2822  begin Line 2822  begin
2822                          BrowserNullTab := nil;                          BrowserNullTab := nil;
2823                  end;                  end;
2824          end else begin          end else begin
2825                  OldIndex := BrowserTab.TabIndex;                  //OldIndex := BrowserTab.TabIndex;
2826                  BrowserNullTab := ThreadItem;                  BrowserNullTab := ThreadItem;
2827                  BrowserTab.TabIndex := -1;                  BrowserTab.TabIndex := -1;
2828  //              if OldIndex = -1 then  //              if OldIndex = -1 then
# Line 2838  var Line 2838  var
2838          BBSID: string;          BBSID: string;
2839          FileName: string;          FileName: string;
2840          sTitle: string;          sTitle: string;
2841          HtmlName: string;  //      HtmlName: string;
2842          doc: Variant;          doc: Variant;
2843          s: string;          s: string;
2844          OldCursor: TCursor;          OldCursor: TCursor;
2845          i: Integer;          //i: Integer;
2846  begin  begin
2847          while (Browser.ReadyState <> READYSTATE_COMPLETE) and          while (Browser.ReadyState <> READYSTATE_COMPLETE) and
2848                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                                  (Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
# Line 2920  begin Line 2920  begin
2920                          except                          except
2921                          end;                          end;
2922                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin                          if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin
2923                                  i := 0;                                  //i := 0;
2924                                  try                                  try
2925                                          try                                          try
2926                                                  doc := Browser.Document;                                                  doc := Browser.Document;
# Line 3157  var Line 3157  var
3157          Item: TThreadItem;          Item: TThreadItem;
3158          Node: TTreeNode;          Node: TTreeNode;
3159  begin  begin
3160          Result := False;  //      Result := False;
3161  //      if (GetActiveContent = ThreadItem) and  //      if (GetActiveContent = ThreadItem) and
3162  //                      (ThreadItem.Count <= ThreadItem.Kokomade) then  //                      (ThreadItem.Count <= ThreadItem.Kokomade) then
3163  //              Exit;  //              Exit;
# Line 3165  begin Line 3165  begin
3165  //              Exit;  //              Exit;
3166    
3167          Result := True;          Result := True;
3168        item := nil;
3169          for i := 0 to FHistoryList.Count - 1 do begin          for i := 0 to FHistoryList.Count - 1 do begin
3170                  if TObject(FHistoryList[i]) is TThreadItem then begin                  if TObject(FHistoryList[i]) is TThreadItem then begin
3171                          Item := TThreadItem(FHistoryList[i]);                          Item := TThreadItem(FHistoryList[i]);
# Line 3273  var Line 3274  var
3274          ChangingEvent: TTVChangingEvent;          ChangingEvent: TTVChangingEvent;
3275          i: Integer;          i: Integer;
3276  begin  begin
3277            ChangeEvent := nil;
3278        ChangingEvent := nil;
3279    
3280          if not CallEvent then begin          if not CallEvent then begin
3281                  ChangeEvent := TreeView.OnChange;                  ChangeEvent := TreeView.OnChange;
3282                  ChangingEvent := TreeView.OnChanging;                  ChangingEvent := TreeView.OnChanging;
# Line 3950  var Line 3954  var
3954          Editor: TEditorForm;          Editor: TEditorForm;
3955          Item: TThreadItem;          Item: TThreadItem;
3956          msg: string;          msg: string;
3957      buf: Integer;      //buf: Integer;
3958  begin  begin
3959          Item := GetActiveContent;          Item := GetActiveContent;
3960          if Item = nil then Exit;          if Item = nil then Exit;
# Line 4917  end; Line 4921  end;
4921    
4922  procedure TGikoForm.SetBrowserTabState;  procedure TGikoForm.SetBrowserTabState;
4923  var  var
4924          i: Integer;  //      i: Integer;
4925          CoolBand: TCoolBand;          CoolBand: TCoolBand;
4926  begin  begin
4927          BrowserBottomPanel.AutoSize := False;          BrowserBottomPanel.AutoSize := False;
# Line 5541  var Line 5545  var
5545          FavThread: TFavoriteThreadItem;          FavThread: TFavoriteThreadItem;
5546          Item: TObject;          Item: TObject;
5547  begin  begin
5548          Item := nil;  //      Item := nil;
5549          if Sender is TFavoriteMenuItem then          if Sender is TFavoriteMenuItem then
5550                  Item := TFavoriteMenuItem(Sender).Data                  Item := TFavoriteMenuItem(Sender).Data
5551          else if Sender is TLinkToolButton then          else if Sender is TLinkToolButton then
# Line 5777  end; Line 5781  end;
5781  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);  procedure TGikoForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
5782  var  var
5783          hComboEdit: THandle;          hComboEdit: THandle;
5784          KeyData: Integer;  //      KeyData: Integer;
5785  begin  begin
5786          Handled := False;          Handled := False;
5787          if AddressComboBox.Focused or SelectComboBox.Focused then begin          if AddressComboBox.Focused or SelectComboBox.Focused then begin
# Line 6347  begin Line 6351  begin
6351    Idx := 0;    Idx := 0;
6352    for i := 0 to MainCoolBar.Bands.Count - 1 do begin    for i := 0 to MainCoolBar.Bands.Count - 1 do begin
6353      if MainCoolBar.Bands[ i ].Visible then begin      if MainCoolBar.Bands[ i ].Visible then begin
6354        if Idx = RebarChevron^.uBand then begin        if Idx = Int64(RebarChevron^.uBand) then begin
6355          Idx := i;          Idx := i;
6356          break;          break;
6357        end;        end;
# Line 6376  procedure TGikoForm.MenuBarChevronMenu; Line 6380  procedure TGikoForm.MenuBarChevronMenu;
6380          begin          begin
6381                  MenuItem.Click;                  MenuItem.Click;
6382                  for i := 0 to MenuItem.Count - 1 do begin                  for i := 0 to MenuItem.Count - 1 do begin
6383                          Item := nil;  //                      Item := nil;
6384                          if MenuItem[i] is TFavoriteMenuItem then begin                          if MenuItem[i] is TFavoriteMenuItem then begin
6385                                  Item := TFavoriteMenuItem.Create(Self);                                  Item := TFavoriteMenuItem.Create(Self);
6386                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(MenuItem[i]).Data;                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(MenuItem[i]).Data;
# Line 6424  procedure TGikoForm.ToolBarChevronMenu(T Line 6428  procedure TGikoForm.ToolBarChevronMenu(T
6428                  if Assigned(PopupMenu.OnPopup) then                  if Assigned(PopupMenu.OnPopup) then
6429                          PopupMenu.OnPopup(nil);                          PopupMenu.OnPopup(nil);
6430                  for i := 0 to PopupMenu.Items.Count - 1 do begin                  for i := 0 to PopupMenu.Items.Count - 1 do begin
6431                          Item := nil;  //                      Item := nil;
6432                          if PopupMenu.Items[i] is TFavoriteMenuItem then begin                          if PopupMenu.Items[i] is TFavoriteMenuItem then begin
6433                                  Item := TFavoriteMenuItem.Create(Self);                                  Item := TFavoriteMenuItem.Create(Self);
6434                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data;                                  TFavoriteMenuItem(Item).Data := TFavoriteMenuItem(PopupMenu.Items[i]).Data;
# Line 6680  procedure TGikoForm.FormMouseWheel(Sende Line 6684  procedure TGikoForm.FormMouseWheel(Sende
6684  var  var
6685          Wnd: THandle;          Wnd: THandle;
6686          delta: Integer;          delta: Integer;
6687    msg: TMessage;  //  msg: TMessage;
6688  begin  begin
6689          Handled := False;          Handled := False;
6690          Wnd := WindowFromPoint(MousePos);          Wnd := WindowFromPoint(MousePos);
# Line 6702  end; Line 6706  end;
6706    
6707    
6708  procedure TGikoForm.SelectComboBoxChange(Sender: TObject);  procedure TGikoForm.SelectComboBoxChange(Sender: TObject);
6709    {
6710  var  var
6711          theType: TGikoViewType;  //        theType: TGikoViewType;
6712    }
6713  begin  begin
6714          if Length( SelectComboBox.Text ) = 0 then          if Length( SelectComboBox.Text ) = 0 then
6715          begin          begin
# Line 6805  var Line 6811  var
6811    FilterList : TStringList;    FilterList : TStringList;
6812    idx : Integer;    idx : Integer;
6813  begin  begin
6814      Dlg := TListSelectDialog.Create(Self);
6815    try    try
     Dlg := TListSelectDialog.Create(Self);  
6816      Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);      Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
6817      Dlg.SelectComboBox.Text := '';      Dlg.SelectComboBox.Text := '';
6818      Dlg.ShowModal;      Dlg.ShowModal;
# Line 6874  end; Line 6879  end;
6879    
6880  procedure TGikoForm.FormKeyDown(Sender: TObject; var Key: Word;  procedure TGikoForm.FormKeyDown(Sender: TObject; var Key: Word;
6881    Shift: TShiftState);    Shift: TShiftState);
6882    
6883  var  var
6884    
6885          Doc: IHtmlDocument2;          Doc: IHtmlDocument2;
6886          Range: IHTMLTxtRange;  //      Range: IHTMLTxtRange;
6887          s: string;          s: string;
6888          Num: Integer;          Num: Integer;
6889          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
6890    
6891  begin  begin
6892      if ssCtrl in Shift then begin  
6893          if ssAlt in Shift then begin      ThreadItem := GetActiveContent;
6894              Doc := Browser.Document as IHtmlDocument2;      if ThreadItem <> nil then begin
6895              s := IntToStr(Fkeynum);              if ssCtrl in Shift then begin
6896              if GikoSys.IsNumeric(s) then begin              if ssAlt in Shift then begin
6897                  ThreadItem := GetActiveContent;                      Doc := Browser.Document as IHtmlDocument2;
6898                  if ThreadItem <> nil then begin                      s := IntToStr(Fkeynum);
6899                      Num := StrToInt(s);                  if GikoSys.IsNumeric(s) then begin
6900                      FHint.PopupType := gptThread;                          ThreadItem := GetActiveContent;
6901                      SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False);                      if ThreadItem <> nil then begin
6902                      if FHint.ResCount <> 0 then begin                              Num := StrToInt(s);
6903                          ShowTextPopup;                              FHint.PopupType := gptThread;
6904                      end;                          SetResPopupText(ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), Num, Num, False, False);
6905                  end;                              if FHint.ResCount <> 0 then begin
6906                  end;                              ShowTextPopup;
6907              Fkeynum := 0;                              end;
6908          end else begin                      end;
6909              if Fkeynum = 0 then begin                      end;
6910                  if (Key >= $60) and (Key <= $69) then begin                  Fkeynum := 0;
6911                      Fkeynum := Key - $60;                  end else begin
6912                  end;                  if Fkeynum = 0 then begin
6913              end else begin                          if (Key >= $60) and (Key <= $69) then begin
6914                  if (Key >= $60) and (Key <= $69) then begin                          Fkeynum := Key - $60;
6915                      Fkeynum := Fkeynum * 10 + Key - $60;                          end;
6916                  end;                      end else begin
6917              end;                      if (Key >= $60) and (Key <= $69) then begin
6918          end;                              Fkeynum := Fkeynum * 10 + Key - $60;
6919      end else begin                      end;
6920          Fkeynum := 0;                      end;
6921          if FHint <> nil then begin              end;
6922                  FHint.ReleaseHandle;              end else begin
6923                      FHint.ClearAllRes;              Fkeynum := 0;
6924          end;                  if FHint <> nil then begin
6925                            FHint.ReleaseHandle;
6926                                FHint.ClearAllRes;
6927                end;
6928            end;
6929      end;      end;
6930    
6931  end;  end;
# Line 6923  end; Line 6934  end;
6934  procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word;  procedure TGikoForm.FormKeyUp(Sender: TObject; var Key: Word;
6935    Shift: TShiftState);    Shift: TShiftState);
6936  begin  begin
6937    
6938      if Key = $11 then begin      if Key = $11 then begin
6939          Fkeynum := 0;          Fkeynum := 0;
6940          if FHint <> nil then begin          if FHint <> nil then begin
# Line 6931  begin Line 6943  begin
6943          end;          end;
6944    
6945      end;      end;
6946    
6947  end;  end;
6948    
6949  // 全てのレスを表示  // 全てのレスを表示
# Line 7123  var Line 7136  var
7136      i : Integer;      i : Integer;
7137      msg : String;      msg : String;
7138  begin  begin
7139        IndividualForm := TIndividualAbonForm.Create(Self);
7140      try      try
                 IndividualForm := TIndividualAbonForm.Create(Self);  
7141          if GikoSys.FAbon.GetAbonResCount <> 0 then begin          if GikoSys.FAbon.GetAbonResCount <> 0 then begin
7142              for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin              for i :=0 to GikoSys.FAbon.GetAbonResCount-1 do begin
7143                          IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i));                          IndividualForm.ComboBox1.Items.Add(GikoSys.FAbon.GetAbonResString(i));

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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