程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 再學 GDI+[42]: 文本輸出 - 字號單位

再學 GDI+[42]: 文本輸出 - 字號單位

編輯:Delphi

本例效果圖:

再學 GDI+[42]: 文本輸出 - 字號單位

  代碼文件:unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
 TForm1 = class(TForm)
  RadioGroup1: TRadioGroup;
  TrackBar1: TTrackBar;
  procedure FormCreate(Sender: TObject);
  procedure FormPaint(Sender: TObject);
  procedure RadioGroup1Click(Sender: TObject);
  procedure TrackBar1Change(Sender: TObject);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
uses GDIPOBJ,GDIPAPI,TypInfo;
procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
begin
 for i := 0 to 6 do
  RadioGroup1.Items.Add(GetEnumName(TypeInfo(TUnit), i));
 RadioGroup1.ItemIndex := 2;
 RadioGroup1.Buttons[0].Enabled := False;
 RadioGroup1.Buttons[1].Enabled := False;
 RadioGroup1.Buttons[4].Enabled := False;
 RadioGroup1.Buttons[5].Enabled := False;
 TrackBar1.ShowSelRange := False;
 TrackBar1.Min := 1;
 TrackBar1.Max := 100;
 TrackBar1.Position := 22;
end;
procedure TForm1.FormPaint(Sender: TObject);
var
 g: TGPGraphics;
 b: TGPBrush;
 font: TGPFont;
begin
 g := TGPGraphics.Create(Canvas.Handle);
 b := TGPSolidBrush.Create(aclDarkOrange);
 font := TGPFont.Create('Arial Black',
             TrackBar1.Position,
             FontStyleBoldItalic,
             TUnit(RadioGroup1.ItemIndex) {字號單位, 默認是像素: UnitPixel}
            );
 g.DrawString('Delphi', -1, font, MakePoint(5.0, 5), b);
 b.Free;
 font.Free;
 g.Free;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 Repaint;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Repaint;
 Text := IntToStr(TrackBar1.Position);
 TrackBar1.Refresh;
end;
end.
窗體文件:object Form1: TForm1
 Left = 0
 Top = 0
 Caption = 'Form1'
 ClIEntHeight = 147
 ClIEntWidth = 336
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 Position = poDesktopCenter
 OnCreate = FormCreate
 OnPaint = FormPaint
 PixelsPerInch = 96
 TextHeight = 13
 object RadioGroup1: TRadioGroup
  Left = 237
  Top = 0
  Width = 99
  Height = 147
  Align = alRight
  Caption = 'RadioGroup1'
  TabOrder = 0
  OnClick = RadioGroup1Click
  ExplicitLeft = 240
 end
 object TrackBar1: TTrackBar
  Left = 0
  Top = 126
  Width = 241
  Height = 45
  TabOrder = 1
  OnChange = TrackBar1Change
 end
end
坐標單位類型表:

Delphi 微軟 說明 UnitWorld World 將世界坐標系單位指定為度量單位。 UnitDisplay Display 指定顯示設備的度量單位。通常,視頻顯示使用的單位是像素;打印機使用的單位是 1/100 英寸。 UnitPixel Pixel 將設備像素指定為度量單位。 UnitPoint Point 將打印機點(1/72 英寸)指定為度量單位。 UnitInch Inch 將英寸指定為度量單位。 UnitDocument Document 將文檔單位(1/300 英寸)指定為度量單位。 UnitMillimeter Millimeter 將毫米指定為度量單位。


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved