再學GDI+[63]: 路徑漸層筆刷焦點縮放控制 - SetFocusScales、GetFocusScales 打造聚光燈效果

前言

SetFocusScales 是路徑漸層筆刷獨有的強大功能，允許獨立控制焦點區域（中心純色範圍）的水平與垂直縮放比例。配合滑鼠拖曳中心點，可實現即時互動的聚光燈、光暈效果。

焦點縮放參數詳解

procedure SetFocusScales(xScale, yScale: Single);  {0.0 ~ 1.0}
procedure GetFocusScales(var xScale, yScale: Single);

• xScale, yScale：焦點區域相對外接矩形寬高的比例
• 1.0：焦點填滿整個區域（無漸層，純中心色）
• 0.0：焦點縮為一點（標準漸層）
• 非對稱值：產生橢圓形焦點，模擬非正入射光源

互動式範例：雙軌條控制 + 滑鼠拖曳中心點

• TrackBar1：X 方向焦點縮放
• TrackBar2：Y 方向焦點縮放
• 滑鼠按下/移動：即時更新中心點位置

核心實作程式碼

var
  rect: TGPRect;
  pb: TGPPathGradientBrush;  {全域保持筆刷狀態}

procedure TForm1.FormCreate(Sender: TObject);
var
  path: TGPGraphicsPath;
  ColorSurround: TGPColor;
  num: Integer;
begin
  rect := MakeRect(10, 10, ClientWidth-40, ClientHeight-40);
  path := TGPGraphicsPath.Create;
  path.AddEllipse(rect);
  pb := TGPPathGradientBrush.Create(path);
  pb.SetCenterColor(aclLime);
  ColorSurround := aclBlack;
  num := 1;
  pb.SetSurroundColors(@ColorSurround, num);
  path.Free;
  DoubleBuffered := True;
  TrackBar1.Max := 100; TrackBar1.Position := 100;
  TrackBar2.Max := 100; TrackBar2.Position := 100;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  p: TGPPen;
  x, y: Single;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclRed);
  g.FillEllipse(pb, rect);
  pb.SetCenterPoint(MakePoint(rect.X + rect.Width div 2, rect.Y + rect.Height div 2));
  {套用焦點縮放}
  pb.SetFocusScales(TrackBar1.Position / 100, TrackBar2.Position / 100);
  {讀回驗證}
  pb.GetFocusScales(x, y);
  Caption := Format('FocusScales: %.2f, %.2f', [x, y]);
  p.Free; g.Free;
end;

procedure TForm1.FormMouseDown(Sender: TObject; ...);
begin
  pt.X := X; pt.Y := Y; Repaint;
end;

執行效果預覽

進階應用技巧

• 非對稱焦點：X≠Y 產生橢圓焦點，模擬斜射光
• 動畫過渡：定時器漸變 Scale 值，實現呼吸燈、脈動效果
• 多光源疊加：多個筆刷疊加繪製，合成複雜光照
• UI 高亮：按鈕懸停時動態縮放焦點，引導視覺焦點

表單定義檔

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 164
  ClientWidth = 208
  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
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object TrackBar1: TTrackBar ... {水平 + 垂直兩個 TrackBar}
end