rgn := TGPRegion.Create(MakeRect(rt)); // rt 為可拖曳矩形 if CheckBox1.Checked then g.SetClip(rgn); // 啟用裁剪 g.DrawString(str, -1, font, RectF, nil, b); // 長字串僅在區域內顯示
拖曳矩形移動裁剪窗口,CheckBox 切換啟用/停用,直觀展示 SetClip 限制後續繪圖指令輸出範圍。
CheckBox
SetClip
TDIB.Spray 以隨機位移採樣模擬**噴霧/氣霧/飛濺
使用 Rectangle 函數繪製矩形 Rectangle
Delphi 網絡對戰平台:Indy 組件實現多人在線遊戲大
TDXImageList 與標準 VCL 圖形類別互通性驗證