再学 GDI+[34]: TGPPen - 画笔的缩放变换 - ScaleTransform
2008-06-13 23:07
459 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TTrackBar; TrackBar2: TTrackBar; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure TrackBar2Change(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI; procedure TForm1.FormCreate(Sender: TObject); begin TrackBar1.ShowSelRange := False; TrackBar1.Height := 20; TrackBar1.Min := 1; TrackBar1.Max := 100; TrackBar1.Position := 10; TrackBar2.ShowSelRange := False; TrackBar2.Height := 20; TrackBar2.Min := 1; TrackBar2.Max := 100; TrackBar2.Position := 10; end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; p: TGPPen; r: TRect; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclBrown, 3); p.ScaleTransform(TrackBar1.Position / 10, TrackBar2.Position / 10); r := ClientRect; InflateRect(r, -30, -30); OffsetRect(r, 0, -10); g.DrawEllipse(p, MakeRect(r)); p.Free; g.Free; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Repaint; end; procedure TForm1.TrackBar2Change(Sender: TObject); begin Repaint; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 196 ClientWidth = 296 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 TrackBar1: TTrackBar Left = 2 Top = 172 Width = 143 Height = 45 TabOrder = 0 OnChange = TrackBar1Change end object TrackBar2: TTrackBar Left = 151 Top = 172 Width = 143 Height = 45 TabOrder = 1 OnChange = TrackBar2Change end end
相关文章推荐
- 再学 GDI+[30]: TGPPen - 用画刷定义的画笔
- GDI+基础知识——画笔的变换(缩放及旋转)
- 再学 GDI+[26]: TGPPen - 画笔对齐 - SetAlignment
- 再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform
- 再学 GDI+[27]: TGPPen - 画笔样式 - SetDashStyle
- 再学 GDI+[35]: TGPPen - 虚线画笔位移 - SetDashOffset
- 再学 GDI+[28]: TGPPen - 自定义画笔的虚线样式 - SetDashPattern
- 再学 GDI+[29]: TGPPen - 自定义复合画笔 - SetCompoundArray
- 再学 GDI+[37]: TGPPen - TGPCustomLineCap、SetCustomStartCap、SetCustomEndCap
- 再学 GDI+[31]: TGPPen - 设置端点连接方式 - SetLineJoin
- 再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
- GDI+ 学习记录(1): 画笔 - Pen
- 再学 GDI+[25]: TGPPen - 宽度、颜色与线帽
- 再学 GDI+[32]: TGPPen - 拐角长度的限制 - SetMiterLimit
- 再学 GDI+[83]: TGPImage(3) - 平行四边形变换
- GDI+学习记录(2)-画笔 Pen
- GDI+ 学习记录(31) 图像颜色变换(TGPImageAttributes)
- 使用GDI+绘制的360风格按钮控件(使用CN_DRAWITEM消息重绘,并使用TGPGraphics,TGPPen,TGPImage,TGPBitmap等)good
- ScaleTransform缩放变换
- GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)