BrowserNameLabel.Left := ItemImage.Left + 20;
end;
+ //ActiveContent\81@\82Ì\8dX\90V
+ FActiveContent := Thread;
if not ThreadIsLog then begin
Self.Caption := GikoDataModule.CAPTION_NAME ;
//\83X\83e\81[\83^\83X\83o\81[\82É\95\\8e¦\82µ\82Ä\82¢\82é\83X\83\8c\82Ì\97e\97Ê\82ð\8fÁ\8b\8e
StatusBar.Panels[THREADSIZE_PANEL].Text := '';
try
+ Thread.Browser.BringToFront;
s := '<HTML><BODY><CENTER>\82±\82Ì\83X\83\8c\83b\83h\82Í\8eæ\93¾\82µ\82Ä\82¢\82Ü\82¹\82ñ</CENTER></BODY></HTML>';
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2;
doc.open;
doc.Write(s);
doc.Close;
finally
+
end;
end else begin
Self.Caption := GikoDataModule.CAPTION_NAME + ' - [' + ThreadTitle + ']';
Thread.Browser.OnStatusTextChange := nil;
LockWindowUpdate(Thread.Browser.ParentWindow);
- //LockWindowUpdate(Thread.Browser.Handle);
HTMLCreater.CreateHTML2(
Idispatch( olevariant(Thread.Browser.ControlInterface).Document),
ThreadItem, sTitle);
Application.ProcessMessages;
end;
Thread.Browser.OnStatusTextChange := BrowserStatusTextChange;
- //PostMessage( Handle, USER_DOCUMENTCOMPLETE, Integer( Thread.Browser ), 0 );
- end else begin
- // JUMP\82ð\8ew\92è\82³\82ê\82Ä\82¢\82½\82çJUMP\82·\82é
- //if (Thread.Movement <> '') then begin
- // Thread.Move(Thread.Movement);
- // Thread.Movement := '';
- //end;
end;
end;
- //ActiveContent\81@\82Ì\8dX\90V
- FActiveContent := Thread;
+
//Thread\82Ì\94Â\82Æ\95\\8e¦\82µ\82Ä\82¢\82é\94Â\82ª\93¯\82¶\82È\82ç\95`\89æ\82ð\8dX\90V\82·\82é
if (FActiveList is TBoard) and (TBoard(ActiveList) = ThreadItem.ParentBoard) then begin
s := MouseGesture.GetGestureStr;
Action := GikoSys.Setting.Gestures.GetGestureAction(s);
if Action <> nil then
- MouseGesture.OnGestureStart(nil);
Action.Execute;
StatusBar.Panels[1].Text := '';
end;