在画布上绘制文本代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】在画布上绘制文本

作者:jellyvice / 发布于2013/12/3/ 1250

function DrawDisabledText(const Canvas: Graphics.TCanvas; const X, Y: Integer;
 const Text: string; const AllowAccelChars: Boolean): Boolean;
var
 Flags: Windows.UINT; // image type and state flags
begin
 // Determine required flags
 if AllowAccelChars then
  Flags := Windows.DST_PREFIXTEXT
 else
  Flags := Windows.DST_TEXT;
 Flags := Flags or Windows.DSS_DISABLED;
 // Draw text
 Result := Windows.DrawState(
  Canvas.Handle,     // device context to draw on
  0,           // brush (not required)
  nil,          // output function (not required)
  Integer(PChar(Text)),  // text to be rendered
  Length(Text),      // length of text to be rendered
  X, Y,          // co-ords of top left of text
  0, 0,          // size of text (not required)
  Flags          // indicates text type and state
 );
end;

试试其它关键字

　绘制文本　

同语言下

可能有用的

jellyvice贡献的其它代码(28)