| 2791 |
ThreadTitle := Thread.Thread.Title; |
ThreadTitle := Thread.Thread.Title; |
| 2792 |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
ThreadPTitle := Thread.Thread.ParentBoard.Title; |
| 2793 |
//ThreadScrollTop := Thread.Thread.ScrollTop; |
//ThreadScrollTop := Thread.Thread.ScrollTop; |
| 2794 |
|
if Thread.Thread.IsLogFile then begin |
| 2795 |
|
if not FileExists(Thread.Thread.GetThreadFileName) then begin |
| 2796 |
|
Thread.Thread.DeleteLogFile; |
| 2797 |
|
end; |
| 2798 |
|
end; |
| 2799 |
|
|
| 2800 |
ThreadIsLog := Thread.Thread.IsLogFile; |
ThreadIsLog := Thread.Thread.IsLogFile; |
| 2801 |
ThreadItem := Thread.Thread; |
ThreadItem := Thread.Thread; |
| 2802 |
ThreadNewArraical := Thread.Thread.NewArrival; |
ThreadNewArraical := Thread.Thread.NewArrival; |
| 6975 |
|
|
| 6976 |
procedure TGikoForm.BrowserPanelResize(Sender: TObject); |
procedure TGikoForm.BrowserPanelResize(Sender: TObject); |
| 6977 |
begin |
begin |
| 6978 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (FIsMinimize <> mtMinimizing) then begin |
| 6979 |
MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false); |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 6980 |
end; |
MoveWindow(FActiveContent.Browser.Handle, 0, 0, BrowserPanel.ClientWidth, BrowserPanel.ClientHeight, false); |
| 6981 |
|
end; |
| 6982 |
|
end; |
| 6983 |
end; |
end; |
| 6984 |
procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar); |
procedure TGikoForm.CoolBarResized(Sender: TObject; CoolBar: TCoolBar); |
| 6985 |
var |
var |
| 7666 |
//! ファイルチェック |
//! ファイルチェック |
| 7667 |
function TGikoForm.isValidFile(FileName: String) : boolean; |
function TGikoForm.isValidFile(FileName: String) : boolean; |
| 7668 |
var |
var |
|
tmp: String; |
|
|
unixtime: Int64; |
|
| 7669 |
dt: TDateTime; |
dt: TDateTime; |
| 7670 |
begin |
begin |
| 7671 |
Result := True; |
Result := True; |