| 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); |
| 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; |
| 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; |
| 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; |
| 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; |
| 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 ); |
| 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; |
| 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 |
|
|