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.428 by yoffy, Sun Sep 12 14:18:58 2004 UTC revision 1.429 by h677, Mon Sep 13 15:13:12 2004 UTC
# Line 577  type Line 577  type
577          TabAutoSaveAction: TAction;          TabAutoSaveAction: TAction;
578      TabAutoLoadAction: TAction;      TabAutoLoadAction: TAction;
579      ListColumnPopupMenu: TPopupMenu;      ListColumnPopupMenu: TPopupMenu;
580        JumpToNumOfResAction: TAction;
581                                  procedure FormCreate(Sender: TObject);                                  procedure FormCreate(Sender: TObject);
582                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
583                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 926  type Line 927  type
927      procedure TabAutoLoadActionExecute(Sender: TObject);      procedure TabAutoLoadActionExecute(Sender: TObject);
928                  procedure ListViewColumnRightClick(Sender: TObject;                  procedure ListViewColumnRightClick(Sender: TObject;
929        Column: TListColumn; Point: TPoint);        Column: TListColumn; Point: TPoint);
930        procedure JumpToNumOfResActionExecute(Sender: TObject);
931        procedure JumpToNumOfResActionUpdate(Sender: TObject);
932          private          private
933                  { Private 宣言 }                  { Private 宣言 }
934          //RoundList : TRoundList;          //RoundList : TRoundList;
# Line 2672  begin Line 2675  begin
2675                                                  Item.SubItems[ idx ] := '';                                                  Item.SubItems[ idx ] := '';
2676    
2677                                  gbcLastModified:                                  gbcLastModified:
2678                                          if ThreadItem.RoundDate = ZERO_DATE then begin                                          if (ThreadItem.LastModified = ZERO_DATE)  then begin
2679                                                  Item.SubItems[ idx ] := '';                                                  Item.SubItems[ idx ] := '';
2680                                          end else                                          end else
2681                                                  Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.RoundDate);                                                  Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.LastModified);
2682    
2683                                  gbcCreated:                                  gbcCreated:
2684                                          if ThreadItem.CreateDate = ZERO_DATE then begin                                          if ThreadItem.CreateDate = ZERO_DATE then begin
# Line 2703  begin Line 2706  begin
2706                                          Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);                                          Item.SubItems[ idx ] := IntToStr(ThreadItem.AllResCount);
2707    
2708                                  gbcLastModified:                                  gbcLastModified:
2709                                          if not GikoSys.Setting.CreationTimeLogs then                                          Item.SubItems[ idx ] := '';
                                                 if ThreadItem.CreateDate = ZERO_DATE then  
                                                         Item.SubItems[ idx ] := ''  
                                                 else  
                                                         Item.SubItems[ idx ] := FormatDateTime('yyyy/mm/dd hh:mm:ss', ThreadItem.CreateDate);  
2710    
2711                                  gbcCreated:                                  gbcCreated:
2712                                          if ThreadItem.CreateDate = ZERO_DATE then begin                                          if ThreadItem.CreateDate = ZERO_DATE then begin
# Line 4728  begin Line 4727  begin
4727                          top := 0;                          top := 0;
4728                          nm := AName;                          nm := AName;
4729                          item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);                          item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);
4730                            item.focus();
4731                          repeat                          repeat
4732                                  top := top + item.offsetTop;                                  top := top + item.offsetTop;
4733                                  item := item.offsetParent;                                  item := item.offsetParent;
4734                          until AnsiCompareText(item.tagName, 'body' ) = 0;                          until AnsiCompareText(item.tagName, 'body' ) = 0;
   
4735                          OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top;                          OleVariant(activeBrower.Document as IHTMLDocument2).body.scrollTop := top;
4736                  except                  except
4737                  end;                  end;
# Line 4760  begin Line 4759  begin
4759                          top := 0;                          top := 0;
4760                          nm := AName;                          nm := AName;
4761                          item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);                          item := OleVariant( activeBrower.Document as IHTMLDocument2).anchors.item(nm);
4762                item.focus();
4763                          repeat                          repeat
4764                                  top := top + item.offsetTop;                                  top := top + item.offsetTop;
4765                                  item := item.offsetParent;                                  item := item.offsetParent;
# Line 8842  var Line 8842  var
8842  const  const
8843          ICON_SIZE = 16;          ICON_SIZE = 16;
8844  begin  begin
8845          Wnd := WindowFromPoint(MousePos);          Wnd := WindowFromPoint(Mouse.CursorPos);
8846          Handled := True;          Handled := True;
8847          if WheelDelta > 0 then          if WheelDelta > 0 then
8848                  Delta := -1                  Delta := -1
# Line 8852  begin Line 8852  begin
8852          if (Wnd = BrowserTab.Handle) or          if (Wnd = BrowserTab.Handle) or
8853                   (Wnd = BrowserTab.Parent.Handle) then begin                   (Wnd = BrowserTab.Parent.Handle) then begin
8854                  BrowserTab.ScrollTabs(Delta);                  BrowserTab.ScrollTabs(Delta);
8855          end else begin          end;
8856            { else begin
8857                  if FIsHandledWheel then begin                  if FIsHandledWheel then begin
8858                          FIsHandledWheel := False;                          FIsHandledWheel := False;
8859                          Handled := False;                          Handled := False;
# Line 8863  begin Line 8864  begin
8864                                  browserPos.X := 0;                                  browserPos.X := 0;
8865                                  browserPos.Y := 0;                                  browserPos.Y := 0;
8866                                  Windows.ClientToScreen( Browser.Handle, browserPos );                                  Windows.ClientToScreen( Browser.Handle, browserPos );
8867                                  if (Longword(MousePos.X - browserPos.X) >= Browser.Width)                                  //if (Longword(Mouse.CursorPos.X - browserPos.X) >= Browser.Width)
8868                                  or (Longword(MousePos.Y - browserPos.Y) >= Browser.Height) then begin                                  //or (Longword(Mouse.CursorPos.Y - browserPos.Y) >= Browser.Height) then begin
8869  //                              or not FActiveContent.Browser.Focused then  //                              or not FActiveContent.Browser.Focused then
8870                                          // TWebBrowser は無限ループするのでそれ以外ならコントロールに送信                                          // TWebBrowser は無限ループするのでそれ以外ならコントロールに送信
8871                                          SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );                                  //      SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
8872                                  end else begin                                  //end else begin
8873                                          Handled := False;                                          Handled := False;
8874                                  end;                                  //end;
8875  //                      end else begin  //                      end else begin
8876  //                              SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );  //                              SendMessage( Wnd, WM_MOUSEWHEEL, WheelDelta shl 16, (MousePos.X shl 16) or MousePos.Y );
8877  //                      end;  //                      end;
8878                  end;                  end;
8879          end;          end;}
8880  end;  end;
8881    
8882    
# Line 11639  begin Line 11640  begin
11640          SetActiveList( FActiveList );          SetActiveList( FActiveList );
11641    
11642  end;  end;
11643    //指定した番号のレスにjumpするAction
11644    procedure TGikoForm.JumpToNumOfResActionExecute(Sender: TObject);
11645    var
11646            str: string;
11647            res: integer;
11648    begin
11649            str := '1';
11650            if( InputQuery('指定した番号のレスに飛ぶ', '番号を入力してください', str) ) then begin
11651                    str := ZenToHan(str);
11652                    res := StrToIntDef(str, -1);
11653                    if (res > 0) and (res <= GetActiveContent.Count) then begin
11654                            BrowserMovement(IntToStr(res), FActiveContent);
11655                            SetFocusForBrowserAction.Execute;
11656                    end else if res > GetActiveContent.Count then begin
11657                            BrowserMovement(IntToStr(GetActiveContent.Count), FActiveContent);
11658                            SetFocusForBrowserAction.Execute;
11659                    end;
11660            end;
11661    end;
11662    
11663    procedure TGikoForm.JumpToNumOfResActionUpdate(Sender: TObject);
11664    begin
11665            JumpToNumOfResAction.Enabled := (GetActiveContent <> nil) and (GetActiveContent.IsLogFile);
11666    end;
11667    
11668  initialization  initialization
11669                                  OleInitialize(nil);                                  OleInitialize(nil);

Legend:
Removed from v.1.428  
changed lines
  Added in v.1.429

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