Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
ed04664f
F
fsharp
项目概览
dotNET Platform
/
fsharp
12 个月 前同步成功
通知
0
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
F
fsharp
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
ed04664f
编写于
5月 11, 2017
作者:
J
Jakub Majocha
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
justify, a bit wider
上级
148e8055
变更
1
显示空白变更内容
内联
并排
Showing
1 changed file
with
15 addition
and
17 deletion
+15
-17
vsintegration/src/FSharp.Editor/QuickInfo/Views.fs
vsintegration/src/FSharp.Editor/QuickInfo/Views.fs
+15
-17
未找到文件。
vsintegration/src/FSharp.Editor/QuickInfo/Views.fs
浏览文件 @
ed04664f
...
...
@@ -65,7 +65,7 @@ type internal QuickInfoViewProvider
|>
typeMap
.
Value
.
GetClassificationType
|>
formatMap
.
Value
.
GetTextProperties
let
formatText
(
navigation
:
QuickInfoNavigation
)
(
content
:
seq
<
Layout
.
TaggedText
>)
=
let
formatText
(
navigation
:
QuickInfoNavigation
)
(
content
:
#
seq
<
Layout
.
TaggedText
>)
=
let
navigateAndDismiss
range
_
=
navigation
.
NavigateTo
range
...
...
@@ -78,9 +78,7 @@ type internal QuickInfoViewProvider
t
.
Background
<-
Media
.
SolidColorBrush
(
Media
.
Color
.
FromRgb
(
color
.
R
,
color
.
G
,
color
.
B
))
t
let
inlines
=
seq
{
for
taggedText
in
content
do
let
toInline
(
taggedText
:
Layout
.
TaggedText
)
=
let
run
=
Documents
.
Run
taggedText
.
Text
let
inl
=
match
taggedText
with
...
...
@@ -90,19 +88,19 @@ type internal QuickInfoViewProvider
h
:>
Documents
.
Inline
|
_
->
run
:>
_
DependencyObjectExtensions
.
SetTextProperties
(
inl
,
layoutTagToFormatting
taggedText
.
Tag
)
yield
inl
}
inl
let
tb
=
TextBlock
(
TextWrapping
=
TextWrapping
.
Wrap
,
TextTrimming
=
TextTrimming
.
None
)
DependencyObjectExtensions
.
SetDefaultTextProperties
(
tb
,
formatMap
.
Value
)
tb
.
Inlines
.
AddRange
inlines
tb
.
Inlines
.
AddRange
(
content
|>
Seq
.
map
toInline
)
if
tb
.
Inlines
.
Count
=
0
then
tb
.
Visibility
<-
Visibility
.
Collapsed
tb
.
Resources
.[
typeof
<
Documents
.
Hyperlink
>]
<-
getStyle
()
tb
let
wrap
(
tb
:
TextBlock
)
=
let
maxWidth
=
formatMap
.
Value
.
DefaultTextProperties
.
FontRenderingEmSize
*
4
0
.
0
let
maxWidth
=
formatMap
.
Value
.
DefaultTextProperties
.
FontRenderingEmSize
*
6
0
.
0
tb
.
MaxWidth
<-
maxWidth
tb
.
TextAlignment
<-
TextAlignment
.
Justify
tb
.
HorizontalAlignment
<-
HorizontalAlignment
.
Left
tb
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录