| 38 |
ViewPanel: TPanel; |
ViewPanel: TPanel; |
| 39 |
ListView: TGikoListView; |
ListView: TGikoListView; |
| 40 |
ThreadPanel: TPanel; |
ThreadPanel: TPanel; |
|
Browser: TWebBrowser; |
|
| 41 |
MessagePanel: TPanel; |
MessagePanel: TPanel; |
| 42 |
MessageBar: TPanel; |
MessageBar: TPanel; |
| 43 |
MessageHideButton: TSpeedButton; |
MessageHideButton: TSpeedButton; |
| 521 |
KoreCopy: TAction; |
KoreCopy: TAction; |
| 522 |
N64: TMenuItem; |
N64: TMenuItem; |
| 523 |
dummy1: TMenuItem; |
dummy1: TMenuItem; |
| 524 |
|
Browser: TWebBrowser; |
| 525 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 526 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 527 |
procedure CabinetPanelHide(Sender: TObject); |
procedure CabinetPanelHide(Sender: TObject); |
| 866 |
FDownloadMax: Integer; //ダウンロード中の最大サイズ |
FDownloadMax: Integer; //ダウンロード中の最大サイズ |
| 867 |
FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント |
FEvent: THTMLDocumentEventSink;//ブラウザドキュメントイベント |
| 868 |
|
|
| 869 |
Fkeynum : Integer; //キーボードレスポップアップ用 |
// Fkeynum : Integer; //キーボードレスポップアップ用 |
| 870 |
|
|
| 871 |
IsDraggingSelectComboBox : Boolean; |
IsDraggingSelectComboBox : Boolean; |
| 872 |
DraggingSelectComboBoxPosition : TPoint; |
DraggingSelectComboBoxPosition : TPoint; |
| 2242 |
RepStr := CustomStringReplace(RepStr, '<', '<' ); |
RepStr := CustomStringReplace(RepStr, '<', '<' ); |
| 2243 |
RepStr := CustomStringReplace(RepStr, '>', '>' ); |
RepStr := CustomStringReplace(RepStr, '>', '>' ); |
| 2244 |
RepStr := CustomStringReplace(RepStr, '"', '"' ); |
RepStr := CustomStringReplace(RepStr, '"', '"' ); |
| 2245 |
RepStr := CustomStringReplace(RepStr, '&', '&' ); |
RepStr := CustomStringReplace(RepStr, '&', '&' ); |
| 2246 |
//RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]); |
//RepStr := StringReplace(RepStr, '@`', ',', [rfReplaceAll]); |
| 2247 |
|
|
| 2248 |
if Item.SubItems.Count <> 6 then begin |
if Item.SubItems.Count <> 6 then begin |
| 2724 |
|
|
| 2725 |
TreeView.Canvas.Font.Color := clBlue; |
TreeView.Canvas.Font.Color := clBlue; |
| 2726 |
IsBoardNode := False; |
IsBoardNode := False; |
|
|
|
| 2727 |
for i := 0 to TreeView.Items.Count - 1 do begin |
for i := 0 to TreeView.Items.Count - 1 do begin |
| 2728 |
Cnt := 0; |
Cnt := 0; |
| 2729 |
if not TreeView.Items[i].IsVisible then |
if not TreeView.Items[i].IsVisible then |
| 3117 |
try |
try |
| 3118 |
try |
try |
| 3119 |
Sleep(1); |
Sleep(1); |
| 3120 |
Application.ProcessMessages; |
//Application.ProcessMessages; |
| 3121 |
FActiveContent.ScrollTop := OleVariant(IHTMLDocument2(Browser.Document)).Body.ScrollTop; |
FActiveContent.ScrollTop := OleVariant(IHTMLDocument2(Browser.Document)).Body.ScrollTop; |
| 3122 |
except |
except |
| 3123 |
on E: Exception do |
on E: Exception do |
| 3178 |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
(Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 3179 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 3180 |
end; |
end; |
| 3181 |
//Sleep(1); |
|
|
Application.ProcessMessages; |
|
| 3182 |
try |
try |
| 3183 |
if ThreadItem.UnRead then |
if ThreadItem.UnRead then |
| 3184 |
BrowserMovement('new'); |
BrowserMovement('new'); |
| 3185 |
except |
except |
| 3186 |
end; |
end; |
| 3187 |
|
//Sleep(10); |
| 3188 |
|
Application.ProcessMessages; |
| 3189 |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
if (ThreadItem.ScrollTop <> 0) and (not ThreadItem.UnRead) then begin |
| 3190 |
//i := 0; |
//i := 0; |
| 3191 |
try |
try |
| 3197 |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
MsgBox(Handle, E.Message, 'SetContent[ScrollTop<-]', 0); |
| 3198 |
end; |
end; |
| 3199 |
finally |
finally |
| 3200 |
|
Application.ProcessMessages; |
| 3201 |
end; |
end; |
| 3202 |
end; |
end; |
| 3203 |
|
|
| 3204 |
ThreadItem.UnRead := False; |
ThreadItem.UnRead := False; |
| 3205 |
ListView.Refresh; |
ListView.Refresh; |
| 3206 |
end; |
end; |
| 6761 |
Body := CustomStringReplace(Body, ' ', ' '); |
Body := CustomStringReplace(Body, ' ', ' '); |
| 6762 |
|
|
| 6763 |
FHint.Add(Header, Body); |
FHint.Add(Header, Body); |
| 6764 |
FHint.Title := ''; |
//FHint.Title := ''; |
| 6765 |
end; |
end; |
| 6766 |
end; |
end; |
| 6767 |
end else begin |
end else begin |
| 6783 |
Body := CustomStringReplace(Body, '&', '&'); |
Body := CustomStringReplace(Body, '&', '&'); |
| 6784 |
Body := CustomStringReplace(Body, ' ', ' '); |
Body := CustomStringReplace(Body, ' ', ' '); |
| 6785 |
FHint.Add(Header, Body); |
FHint.Add(Header, Body); |
| 6786 |
FHint.Title := ''; //たぶんこれはいらないんだけどね。もじゅ |
//FHint.Title := ''; //たぶんこれはいらないんだけどね。もじゅ やっぱりいらなかった(2004/01/13) |
| 6787 |
end; |
end; |
| 6788 |
end; |
end; |
| 6789 |
end; |
end; |