リンクバーでD&Dで入れ替えると例外が起きる不具合の修正
// IE 9\82Ì\8fê\8d\87\82¾\82¯\81A\96³\8cø\83r\83b\83g\82ð\97§\82Ä\82é
Set8087CW(FCwSave or $0004);
end;
- Set8087CW(FCwSave or $0004);
Sort.SetSortDate(Now());
FTreeType := gttNone;
SenderNode.Selected := False;
FavoriteDragDrop( SenderNode, Source );
- SetLinkBar;
-
+ PostMessage( Handle, USER_SETLINKBAR, 0, 0 );
end;
procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);