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