再学 GDI+[78]: 区域(7) - Translate - 区域的平移变换
2008-06-30 21:25
281 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TTrackBar; TrackBar2: TTrackBar; procedure FormPaint(Sender: TObject); procedure FormCreate(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.Min := -ClientWidth div 2; TrackBar1.Max := ClientWidth div 2; TrackBar2.Min := -ClientHeight div 2; TrackBar2.Max := ClientHeight div 2; DoubleBuffered := True; end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; b: TGPBrush; rgn: TGPRegion; begin g := TGPGraphics.Create(Canvas.Handle); b := TGPHatchBrush.Create(HatchStyleShingle, aclSilver, aclDarkCyan); rgn := TGPRegion.Create(MakeRect(40, 40, ClientWidth-100, ClientHeight-100)); rgn.Translate(TrackBar1.Position, TrackBar2.Position); g.FillRegion(b, rgn); rgn.Free; b.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 = 174 ClientWidth = 219 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 = 0 Top = 151 Width = 217 Height = 23 ShowSelRange = False TabOrder = 1 OnChange = TrackBar1Change end object TrackBar2: TTrackBar Left = 196 Top = 0 Width = 23 Height = 166 Orientation = trVertical ShowSelRange = False TabOrder = 0 OnChange = TrackBar2Change end end
相关文章推荐
- 再学 GDI+[80]: 区域(9) - GetHRGN - 转为 GDI 的区域句柄
- gdi+ 局部刷新(区域的失效)
- C# 使用 GDI+ 给图片添加文字,并使文字自适应矩形区域 C# 使用 GDI+ 画图
- GDI+学习及代码总结之------区域
- 再学 GDI+[72]: 区域(1) - 建立区域
- GDI+学习及代码总结之------区域
- C#利用GDI+给图片添加文字(文字自适应矩形区域)
- GDI+如何判断一个点是否在区域内
- GDI+ 学习记录(29): 区域 - Region
- 再学 GDI+[73]: 区域(2) - 区域运算
- GDI+如何判断一个点是否在区域内
- 再学 GDI+[74]: 区域(3) - IsVisible
- GDI+:自定义控件时如何使用Region来输出特定区域
- GDI+计算文本矩形区域
- GDI+学习及代码总结之------画线、区域填充、写字
- GDI+学习及代码总结之------画线、区域填充、写字
- GDI+如何判断一个点是否在区域内
- 再学 GDI+[75]: 区域(4) - 根据区域剪切画板
- 用GDI+画图像,根据鼠标区域改变填充颜色
- GDI+绘图时出现局部区域未刷新