GDI+ TGPImage RotateFlip 旋轉鏡像操作完整演示

效果展示

核心 API

img.RotateFlip(TRotateFlipType) 即時修改圖片像素資料，支援 8 種組合：

互動介面

• ListBox 列出 8 種模式，OnClick 觸發 Repaint
• OnPaint 每次重建 TGPImage、套用 RotateFlip、繪製

關鍵代碼

procedure TForm1.FormPaint(Sender: TObject);
var g: TGPGraphics; img: TGPImage;
begin g := TGPGraphics.Create(Self.Canvas.Handle);
  img := TGPImage.Create('C:\temp\test.jpg');
  img.RotateFlip(TRotateFlipType(ListBox1.ItemIndex));
  g.DrawImage(img, 4, 4, img.GetWidth, img.GetHeight);
  img.Free; g.Free; end;