将Delphi TLabel的字体更改为斜体-为什么？
|
下面显示了默认TLabel的简单演示，其字体设置为Arial Regular 16。
单击该按钮时的代码为：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Font.Style := Label1.Font.Style + [fsItalic];
end;
没有找到相关结果
已邀请:
2 个回复
蜂佬渺
泉秘胁
（或）自己绘制文本，以及 使用（而不是），它只是Windows静态控件的包装器（在文本模式下）。当然，Windows可以正确绘制文本。 使用procedure TForm4.FormPaint(Sender: TObject); const S = \'This is a test\'; begin TextOut(Canvas.Handle, 10, 10, PChar(S), length(S)); end;） 我想这在Microsoft Windows操作系统中不是问题，而仅在VCL 4控件中。 更新资料 我试过了procedure TForm4.FormPaint(Sender: TObject); const S = \'This is a test\'; var r: TRect; begin r.Left := 10; r.Top := 10; r.Bottom := r.Top + DrawText(Canvas.Handle, PChar(S), length(S), r, DT_SINGLELINE or DT_LEFT or DT_CALCRECT); DrawText(Canvas.Handle, PChar(S), length(S), r, DT_SINGLELINE or DT_LEFT); end;procedure TForm4.FormPaint(Sender: TObject); const S = \'This is a test\'; var r: TRect; begin r.Left := 10; r.Top := 10; r.Bottom := r.Top + DrawText(Canvas.Handle, PChar(S), length(S), r, DT_SINGLELINE or DT_LEFT or DT_CALCRECT); DrawText(Canvas.Handle, PChar(S), length(S), r, DT_SINGLELINE or DT_LEFT or DT_NOCLIP); end;type TLabel = class(StdCtrls.TLabel) protected procedure DoDrawText(var Rect: TRect; Flags: Integer); override; end; ... { TLabel } procedure TLabel.DoDrawText(var Rect: TRect; Flags: Integer); begin inherited; if (Flags and DT_CALCRECT) <> 0 then Rect.Right := Rect.Right + 2; end;