再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中
2008-07-01 15:47
459 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI; var img: TGPImage; rt: TRect; x1,y1: Integer; flag: Boolean; procedure TForm1.FormCreate(Sender: TObject); begin img := TGPImage.Create('C:\temp\test.png'); DoubleBuffered := True; end; procedure TForm1.FormDestroy(Sender: TObject); begin img.Free; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin x1 := X; y1 := Y; flag := True; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if flag then begin DrawFocusRect(Canvas.Handle, rt); rt := Rect(x1, y1, X, Y); DrawFocusRect(Canvas.Handle, rt); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if flag then begin rt := Rect(x1, y1, X, Y); flag := False; Repaint; end; end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; begin g := TGPGraphics.Create(Self.Canvas.Handle); if rt.Right > 0 then g.DrawImage(img, MakeRect(rt)); g.Free; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 267 ClientWidth = 355 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate OnDestroy = FormDestroy OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 end
相关文章推荐
- 再学 GDI+[81]: TGPImage(1) - 显示图像
- GDI+ 学习记录(26): 显示图像 - Image
- GDI+ 学习记录(26): 显示图像 - Image
- 再学 GDI+[87]: TGPImage(7) - 调整图像大小
- 再学 GDI+[86]: TGPImage(6) - 拖动图像
- 再学 GDI+[99]: TGPImage(19) - 把图像转存为其他格式
- GDI+[26] 显示图像 - Image
- 再学 GDI+[91]: TGPImage(11) - 转灰度图像
- 再学 GDI+[97]: TGPImage(17) - 获取 GDI+ 所支持的可编码、可解码的图像格式
- GDI+ 学习记录(26) 显示图像 - Image
- [转]外部css文件中的 BACKGROUND-IMAGE: url(..\image.gif)指定的背景图像无法显示,谁有好主意?
- 再学 GDI+[90]: TGPImage(10) - 获取图像的调色板信息
- 再学 GDI+[98]: TGPImage(18) - 获取 GDI+ 图像格式对应的 GUID
- GDI+中TGPImage从流中加载图像
- [转]外部css文件中的 BACKGROUND-IMAGE: url(../image.gif)指定的背景图像无法显示,谁有好主意?
- 再学 GDI+[92]: TGPImage(12) - 调整图像透明度
- 再学 GDI+[93]: TGPImage(13) - 调整图像红、绿、蓝三原色及透明度
- C++ GDI+ DrawImage方法详解(绘制指定图像Image)
- 再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
- C++ GDI+ DrawImage方法详解(绘制指定图像Image)