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.585 by h677, Sun Jan 22 16:40:48 2006 UTC revision 1.586 by h677, Mon Jan 23 16:03:12 2006 UTC
# Line 593  type Line 593  type
593                  FOrigenCaption: String;                         //お気に入りツリーのアイテム編集時の編集前の文字列                  FOrigenCaption: String;                         //お気に入りツリーのアイテム編集時の編集前の文字列
594                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する                  FPreviewBrowserRect: TRect;                     ///< プレビューの表示位置を記憶する
595                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列                  FActionListGroupIndexes: array of Integer;      ///<GikoDM上のアクションリストの各アクションに設定されたGroupIndexを保存する配列
                 FListDrawTime: TDateTime;  ///< ListViewを描画しようとした時刻(勢いの計算用)  
596                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);                  procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
597                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);                  procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
598                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);                  procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
# Line 700  type Line 699  type
699                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;                  property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
700                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;                  property ActiveBBS : TBBS read FActiveBBS write FActiveBBS;
701                  property WorkCount: Integer read FWorkCount write FWorkCount;                  property WorkCount: Integer read FWorkCount write FWorkCount;
                 property ListDrawTime: TDateTime read FListDrawTime;  
702                  procedure SetContent(inThread: TBrowserRecord);                  procedure SetContent(inThread: TBrowserRecord);
703                  function GetActiveContent: TThreadItem;                  function GetActiveContent: TThreadItem;
704                  function GetActiveList: TObject;                  function GetActiveList: TObject;
# Line 882  begin Line 880  begin
880          Writeln('============================================================');          Writeln('============================================================');
881  {$ENDIF}  {$ENDIF}
882  //try  //try
883            Sort.SetSortDate(Now());
884            
885          FTreeType := gttNone;          FTreeType := gttNone;
886          // 起動時に保存されてしまう対策          // 起動時に保存されてしまう対策
887          FStartUp := true;          FStartUp := true;
# Line 2303  begin Line 2303  begin
2303                                                  GikoSys.Setting.BoardSortIndex := 0;                                                  GikoSys.Setting.BoardSortIndex := 0;
2304                                                  GikoSys.Setting.BoardSortOrder := True;                                                  GikoSys.Setting.BoardSortOrder := True;
2305                                          end;                                          end;
2306                                            Sort.SetSortDate(Now());
2307                                          SetActiveList(Item.Board);                                          SetActiveList(Item.Board);
2308                                  end;                                  end;
2309                                  Item.Board.Modified := True;                                  Item.Board.Modified := True;
# Line 2905  begin Line 2906  begin
2906                                                           (ListView.ClientHeight div 2) - (ListView.Canvas.TextHeight(s) div 2));                                                           (ListView.ClientHeight div 2) - (ListView.Canvas.TextHeight(s) div 2));
2907                  ListView.Canvas.TextOut(p.X, p.Y, s);                  ListView.Canvas.TextOut(p.X, p.Y, s);
2908          end else begin          end else begin
                 FListDrawTime := Now();  
2909                  DefaultDraw := True;                  DefaultDraw := True;
2910          end;          end;
2911  end;  end;
# Line 3399  begin Line 3399  begin
3399          end else begin          end else begin
3400                  if Item <> FActiveList then begin                  if Item <> FActiveList then begin
3401                          ActiveListColumnSave;                          ActiveListColumnSave;
   
3402                          if (Item is TBBS) or (Item is TCategory) then begin                          if (Item is TBBS) or (Item is TCategory) then begin
3403                                  ListView.Columns.Clear;                                  ListView.Columns.Clear;
3404                                  SetActiveList( Item );                                  SetActiveList( Item );
# Line 3413  begin Line 3412  begin
3412                                                  Screen.Cursor := crDefault;                                                  Screen.Cursor := crDefault;
3413                                          end;                                          end;
3414                                  end;                                  end;
3415                                    Sort.SetSortDate(Now());
3416                                  SetActiveList( Item );                                  SetActiveList( Item );
3417                          end;                          end;
3418                  end;                  end;
# Line 6665  begin Line 6665  begin
6665                                  Screen.Cursor := crDefault;                                  Screen.Cursor := crDefault;
6666                          end;                          end;
6667                  end;                  end;
6668                    Sort.SetSortDate(Now());
6669                  SetActiveList(Node.data);                  SetActiveList(Node.data);
6670          end;          end;
6671    

Legend:
Removed from v.1.585  
changed lines
  Added in v.1.586

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