DelphiX TDIB.DoSpotLight 聚光燈效果範例

效果展示

參數化調用

procedure TForm1.Button2Click(Sender: TObject);
var r: TRect;
begin
  r := Bounds(10, 10, 80, 80); // 聚光區域矩形
  DXPaintBox1.DIB.DoSpotLight(100, r); // 100 為強度/半徑參數
  DXPaintBox1.Repaint;
end;

在指定矩形區域產生聚光燈高亮效果，模擬手電筒照射，參數控制亮度範圍。