社区
Delphi
帖子详情
TFont与TLogFont有无必然的联系?
CathyWang
2002-04-02 04:03:35
加精
前者的Size、Height和Name与后者的lfHeight, lfFaceName等有什么关系
...全文
106
1
打赏
收藏
TFont与TLogFont有无必然的联系?
前者的Size、Height和Name与后者的lfHeight, lfFaceName等有什么关系
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Borlandor
2002-04-02
打赏
举报
回复
TLogicFont用法:
procedure SetLogicFont(ACanvas: TCanvas;W: Integer = 0;H: Integer = 0);
var LogicFont: TLogFont;
begin
with LogicFont,ACanvas.Font do
begin
if H = 0 then lfHeight := Height
else lfHeight := H;
lfWidth := W;
lfEscapement := 10*Direction;
lfOrientation := 10*Direction;
lfWeight := FW_NORMAL;//FW_BOLD;
lfItalic := BYTE(fsItalic in Style);
lfUnderline := BYTE(fsUnderline in Style);
lfStrikeOut := BYTE(fsStrikeOut in Style);
lfCharSet := Charset;
lfOutPrecision := OUT_TT_PRECIS;
lfClipPrecision := CLIP_DEFAULT_PRECIS;
lfQuality := DEFAULT_QUALITY;
lfPitchAndFamily := DEFAULT_PITCH or FF_DONTCARE;
StrCopy(lfFaceName,PChar(Name));
end;
ACanvas.Font.Handle := Windows.CreateFontIndirect(LogicFont);
end;
T
Font
.rar_SUNPLUS_
T
Font
T
Font
.rar sunplus system
TMS.rar_advofficepager_delphi
t
font
_ellipsis
function DrawVistaText(Canvas: TCanvas Alignment: TAlignment r: TRect FCaption:string A
Font
:
T
Font
Enabled: Boolean RealDraw: Boolean AntiAlias: TAntiAlias Direction: TTabPosition Ellipsis: Boolean):...
MCalendar_piccalandar_
// procedure setDay
Font
( Value:
T
Font
);// procedure setDesc
Font
(Value:
T
Font
);// procedure setDetail
Font
(Value:
T
Font
); procedure setDayKind( Value: TDayKind); procedure setDay
Font
Name( Value: String)...
Delphi 详细介绍了TCanvas的使用
详细介绍了TCanvas的使用 希望对各位有所帮助 解压后有许多文件夹 包括矩形类 圆弧类图形绘制 获取Canvas图像 曲线图绘制 文本输出到屏幕
T
FONT
TBrush和Tpen类使用 如何初始化矩形 捕捉全屏图像 绘制正余弦曲线等等...
DemoPrint.rar
c#调用打印机打印,适合初学者参考 ;case PrintType.Text: ...
Font
t
Font
= new
Font
("Arial", p.Size, p.
Font
Style); Brush b = new SolidBrush(p.PrtColor); g.DrawString(p.Content,
t
Font
, b, p.Start);
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章