FireMonkey DrawLine & FillPath BUG ? |
|
缺席
|
|
mainchen2
一般會員   發表：3 回覆：16 積分：3 註冊：2006-07-14 發送簡訊給我 |
目前發現直線某些斜度 Mac 不會顯示虛線及Mac 下 Path 無法顯示互斥效果, 這是正常的嗎?
以下程式在 Windows 是可以正常顯示的! procedure TForm1.LinePaintBoxPaint(Sender: TObject; Canvas: TCanvas); begin with Canvas do begin BeginScene; Stroke.Thickness := 5; Stroke.Color := claRed; Stroke.Dash := TStrokeDash.sdDot; DrawLine(PointF(126, 10), PointF(200, 280), 1); EndScene; end; end; procedure TForm1.PathPaintBoxPaint(Sender: TObject; Canvas: TCanvas); var R: TRectF; Path: TPathData; begin with Canvas do begin BeginScene; R := PathPaintBox.BoundsRect; InflateRect(R, -R.Width * 0.2, -R.Height * 0.2); Path := TPathData.Create; try Path.AddRectangle(R, 0, 0, []); InflateRect(R, -R.Width * 0.2, -R.Height * 0.2); Path.AddEllipse(R); FillPath(Path, 1); finally Path.Free; end; EndScene; end; end; |
|
mainchen2
一般會員 發表：3 回覆：16 積分：3 註冊：2006-07-14 發送簡訊給我 |
找到問題, 修正方法如下:
直線修正方法:
Path 無法顯示互斥效果修正:
|
|
mainchen2
一般會員 發表：3 回覆：16 積分：3 註冊：2006-07-14 發送簡訊給我 |
發表時間：2012-09-27 08:59:01
IP:112.104.xxx.xxx 訂閱
附加檔案：
系統時間：2024-07-05 3:15:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |