[外观] Firemonkey Windows Hint 气球样式

【[外观] Firemonkey Windows Hint 气球样式】的更多相关文章

[外观] Firemonkey Windows Hint 气球样式

Firemonkey 在 Windows 平台下的 Hint 默认为距形,有些单调,现在只要加入一行代码,就可以有气球箭头样式的 Hint. 修改代码: 请将 FMX.Controls.Win.pas 复制到自己的工程目录下,再修改如下代码: constructor TWindowsHint.Create(const AHandle: TWindowHandle); ... 略 ... FToolTipHandle := CreateWindowEx(, TOOLTIPS_CLASS, nil,…

[修正] Berlin Firemonkey Windows 控件左方显示虚线问题

说明:在 Wndows 显示时,有时控件左方会显示一条虚线适用:Berlin Firemonkey 修正方法: 请将源码 FMX.Platform.Win.pas 复制到自己的工程目录里,再进行修改. procedure TPlatformWin.InvalidateWindowRect(const AForm: TCommonCustomForm; R: TRectF); ...略... {---> WR := TRect.Create(Trunc(R.Left), Trunc(R.Top)…

windows phone (13) 样式继承

原文:windows phone (13) 样式继承在上一遍文章中已经介绍到可以在Resources集合中定义样式,我们也可以在一个样式上引用其他的样式,这就是继承的概念,使用方法是将引用的样式放置在Style中的BaseOn属性:这里使用到的是xaml标记扩展进行设置,比如这里定义的三个样式: <phone:PhoneApplicationPage.Resources> <Style x:Key="tbStyle" TargetType="…

[修正] Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG

问题:Firemonkey Windows & macOS 平台下 Edit & Memo 中文输入后会取消原选取文字的 BUG 适用版本:Delphi 10.1.2 & 10.2.1 修正后效果: 修正代码: 请将 FMX.Edit.Style.pas 复制到自己的工程目录下,再修改如下代码: (10.2.2 已修正此问题) procedure TStyledEdit.IMEStateUpdated; var CombinedText: string; begin Combine…

[修正] Firemonkey Windows 控件有虚线残影问题

说明:在 Wndows 显示时,有时控件左方会显示一条虚线适用:Firemonkey Windows (Berlin 或更高版) 修正方法: 请将源码 FMX.Canvas.D2D.pas 复制到自己的工程目录里,再进行修改. procedure TCanvasD2D.SetClipRects(const ARects: array of TRectF); ...略... to High(ARects) do begin R := ARects[I]; {+++>}InflateRect(R,…

Windows常见窗口样式和控件风格

Windows常见窗口样式和控件风格王佰营徐丽红一.窗口样式 WS_POPUP 弹出式窗口(不能与WS_CHILDWINDOW样式同时使用)WS_CHILDWINDOW 子窗口(不能与WS_POPUP合用)WS_MINIMIZE 创建窗口拥有最小化按钮WS_MINIMIZEBOX 创建窗口拥有最小化按钮,须同时指定WS_SYSTEM样式WS_VISIBLE 可见状态WS_DISABLED 不可用状态WS_CLIPSIBLINGS 使窗口排除子窗口之间的相对区域WS_CLIPCHILDREN…

[函数] Firemonkey Windows 重新计算 Font Baseline

计算字型 Baseline 是一个不常用的函数,但如果想要显示不同大小文字下方对齐,就得用它来计算字型的 Baseline 才行,如果计算不准,显示的文字就会高高低低不整齐. 在 Firemonkey 的 Windows 平台下(其它平台没有问题),取得字型文字的 Baseline 总有些不对劲(因为并不是所有的字型都有问题,约 5% 的字型取得的 Baseline 位置会不对). 其实官方提供的计算函数 TFontGlyphManager.Current.GetBaseline 没什么问题,主…