GdiPlus[44]: IGPGraphics (三) 关于文本绘制续 - IGPStringFormat

IGPStringFormat 的方法和属性:

---

//方法:

IGPStringFormat.GetTabStops();                  { 获取制表位 }

IGPStringFormat.SetTabStops();                  { 设置制表位 }

IGPStringFormat.SetDigitSubstitution();         { 指定用本地数字替换西方数字时使用的语言和方法 }

IGPStringFormat.SetMeasurableCharacterRanges(); { 指定 IGPCharacterRanges 结构的数组 }



//属性:

IGPStringFormat.FormatFlags;                    { 获取或设置 TGPStringFormatFlags 集合 }

IGPStringFormat.Alignment;                      { 获取或设置水平对齐 }

IGPStringFormat.LineAlignment;                  { 获取或设置垂直对齐 }

IGPStringFormat.HotkeyPrefix;                   { 获取或设置 TGPHotkeyPrefix 枚举 }

IGPStringFormat.DigitSubstitutionLanguage;      { 获取或设置用本地数字替换西方数字时使用的语言 }

IGPStringFormat.DigitSubstitutionMethod;        { 获取或设置要用于数字替换的方法 }

IGPStringFormat.Trimming;                       { 获取或设置 TGPStringTrimming 枚举 }

IGPStringFormat.MeasurableCharacterRangeCount   { 指定的 IGPCharacterRanges 结构中的字符总数 }



//类函数:

TGPStringFormat.GenericDefault;      { 默认的 TGPStringFormat 对象 }

TGPStringFormat.GenericTypographic;  { 一般的版式 TGPStringFormat 对象 }


 
   

IGPStringFormat.Alignment 测试:

---

uses GdiPlus;



procedure TForm1.FormPaint(Sender: TObject);

const

  str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

var

  Graphics: IGPGraphics;

  Brush: IGPSolidBrush;

  Pen: IGPPen;

  Font: IGPFont;

  StringFormat: IGPStringFormat;

  Rect: TGPRectF;

begin

  Graphics := TGPGraphics.Create(Handle);

  Brush := TGPSolidBrush.Create(TGPColor.Red);

  Pen := TGPPen.Create(TGPColor.Black);

  Font := TGPFont.Create('Arial', 16, [FontStyleBold]);

  StringFormat := TGPStringFormat.Create;



  Rect.Initialize(10, 10, 180, 60);

  Graphics.DrawString(str, Font, Rect, nil, Brush);

  Graphics.DrawRectangle(Pen, Rect);



  Rect.Y := Rect.Y + 60 + 20;

  StringFormat.Alignment := StringAlignmentCenter;

  Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

  Graphics.DrawRectangle(Pen, Rect);



  Rect.Y := Rect.Y + 60 + 20;

  StringFormat.Alignment := StringAlignmentFar;

  Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

  Graphics.DrawRectangle(Pen, Rect);

end;


 
   

IGPStringFormat.LineAlignment 测试:

---

uses GdiPlus;



procedure TForm1.FormPaint(Sender: TObject);

const

  str = 'ABCDEFG';

var

  Graphics: IGPGraphics;

  Brush: IGPSolidBrush;

  Pen: IGPPen;

  Font: IGPFont;

  StringFormat: IGPStringFormat;

  Rect: TGPRectF;

begin

  Graphics := TGPGraphics.Create(Handle);

  Brush := TGPSolidBrush.Create(TGPColor.Red);

  Pen := TGPPen.Create(TGPColor.Black);

  Font := TGPFont.Create('Arial', 16, [FontStyleBold]);

  StringFormat := TGPStringFormat.Create;



  Rect.Initialize(10, 10, 180, 60);

  Graphics.DrawString(str, Font, Rect, nil, Brush);

  Graphics.DrawRectangle(Pen, Rect);



  Rect.Y := Rect.Y + 60 + 20;

  StringFormat.LineAlignment := StringAlignmentCenter;

  Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

  Graphics.DrawRectangle(Pen, Rect);



  Rect.Y := Rect.Y + 60 + 20;

  StringFormat.LineAlignment := StringAlignmentFar;

  Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

  Graphics.DrawRectangle(Pen, Rect);

end;


 
   

IGPStringFormat.SetTabStops 测试:

---

uses GdiPlus;



procedure TForm1.FormPaint(Sender: TObject);

const

  Tabs: array [0..2] of Single = (150, 100, 100);

  Str = 'Name'#9'Test 1'#9'Test 2'#9'Test 3'#13#10 +

        'Joe'#9'95'#9'88'#9'91'#13#10 +

        'Mary'#9'98'#9'84'#9'90'#13#10 +

        'Sam'#9'42'#9'76'#9'98'#13#10 +

        'Jane'#9'65'#9'73'#9'92';

var

  Graphics: IGPGraphics;

  Brush: IGPSolidBrush;

  Pen: IGPPen;

  Font: IGPFont;

  StringFormat: IGPStringFormat;

  Rect: TGPRectF;

begin

  Graphics := TGPGraphics.Create(Handle);

  Brush := TGPSolidBrush.Create($FF000000);

  Pen := TGPPen.Create($FFFF0000);

  Font := TGPFont.Create('Courier New', 12);



  StringFormat := TGPStringFormat.Create;

  StringFormat.SetTabStops(0, [150, 100, 100]);

//  StringFormat.SetTabStops(50, [100, 100, 100]); //同上



  Rect.Initialize(10, 10, 420, 100);

  Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

  Graphics.DrawRectangle(Pen, Rect);

end;


 
   

IGPStringFormat.HotkeyPrefix 测试:

---

uses GdiPlus;



procedure TForm1.FormPaint(Sender: TObject);

var

  Graphics: IGPGraphics;

  Font: IGPFont;

  Pt: TGPPointF;

  Brush: IGPSolidBrush;

  StringFormat: IGPStringFormat;

begin

  Graphics := TGPGraphics.Create(Handle);

  Font := TGPFont.Create(Canvas.Font.Name, 12);

  Pt.Initialize(10, 10);

  Brush := TGPSolidBrush.Create($FF000000);



  StringFormat := TGPStringFormat.Create;

  StringFormat.HotkeyPrefix := HotkeyPrefixShow;



  Graphics.DrawString('&Button', Font, Pt, StringFormat, Brush);



  Pt.Y := Pt.Y * 2 + Font.GetHeight(Graphics);

  Graphics.DrawString('Butt&on', Font, Pt, StringFormat, Brush);

end;


 
   

IGPStringFormat.Trimming 测试:

---

uses GdiPlus;



procedure TForm1.FormPaint(Sender: TObject);

var

  Graphics: IGPGraphics;

  Font: IGPFont;

  Rect: TGPRectF;

  Brush: IGPSolidBrush;

  StringFormat: IGPStringFormat;

  str: string;

  i: Integer;

begin

  Graphics := TGPGraphics.Create(Handle);

  Graphics.Clear($FFFFFFFF);

  Brush := TGPSolidBrush.Create($FF000000);

  Font := TGPFont.Create(Canvas.Font.Name, 10);



  Rect.Initialize(20, 20, ClientWidth - 40, Font.GetHeight(Graphics));



  StringFormat := TGPStringFormat.Create;

  str := Application.ExeName;

  for i := 0 to 5 do

  begin

    StringFormat.Trimming := TGPStringTrimming(i);

    Graphics.DrawString(str, Font, Rect, StringFormat, Brush);

    Graphics.TranslateTransform(0, Rect.Y + Rect.Height);

  end;

end;


 
   

另, 关于 TGPStringFormatFlags (对应 FormatFlags 属性或用于建立参数):
http://msdn.microsoft.com/zh-cn/library/system.drawing.stringformatflags(VS.80).aspx

---