delphi中DrawText()使用一例

var Size: Byte; TmpRect: TRect; Flags: Word; S: string;begin TmpRect.Left := 60; TmpRect.Top := 60; tmpRect.Right := 160; tmpRect.Bottom := 260; Canvas.F

var

  Size: Byte;

  TmpRect: TRect;

  Flags: Word;

  S: string;

begin

  TmpRect.Left := 60; TmpRect.Top := 60; tmpRect.Right := 160; tmpRect.Bottom := 260;

  Canvas.FillRect(TmpRect);

  Canvas.Brush.Color :=clRed;

  Canvas.Font.Color :=clGreen;

  Flags := DT_NOCLIP or DT_VCENTER or DT_WORDBREAK; //?


  S := 'DDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFF';

  DrawText(Canvas.Handle, Pchar(S), Length(S), TmpRect, Flags);

end;


相关推荐

[!--temp.pl--]