mylabel.pas

来自「初次上传,不太会规类.这是一个电子文档收集的软件.支持从浏览器窗口中托拽到本地窗」· PAS 代码 · 共 48 行

unit MyLabel;

interface

uses
  Windows, Classes, Graphics, StdCtrls;

type
  TmyLabel = class(TLabel)
  protected
    { Protected declarations }
    procedure Paint; override;
  end;


implementation

procedure TMyLabel.Paint;
var
  Rect: TRect;
  Text: string;
begin
  Text := GetLabelText;
  with Canvas do
  begin
    Brush.Style := bsClear;
    Rect := ClientRect;
  end;
  Canvas.Font := Font;
//  OffsetRect(Rect, 1, 1);
  Canvas.Font.Color := clWhite;
  DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect,
           (DT_VCENTER or DT_EXPANDTABS or DT_CENTER or DT_SINGLELINE));
  OffsetRect(Rect, -1, -1);
  if not Enabled then
  begin
    Canvas.Font.Color := clBtnShadow;
  end
  else
  begin
    Canvas.Font.Color := Font.Color;
  end;
  DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect,
           (DT_VCENTER or DT_EXPANDTABS or DT_CENTER or DT_SINGLELINE));
end;

end.