ペイントイベントのTShape描画の問題

Question

TShapeから派生したクラスでスタックされています。私は、四角形を描画するためにCanvasを使用Paint方法では、

。フォームには、LeftとTopの座標をTShapeに変更することができるTTrackBarがあります。

とTopにどの値を設定しても、TTrackBarを使用しても矩形はそれに応じて移動しません。代わりに、コードでこれらの値を設定すると、矩形が正しい位置に表示されます。

は、私は、Windows 10

unit frmShapeStudy; 

interface 

type 
    tMy_Shape = class (tShape) 
    protected 
    procedure Paint; override; 
    public 
    constructor Create (aOwner: tComponent); override; 
    procedure Draw; 
    end; 

    tformShapeStudy = class (tForm) 
    trkBarLeft: TTrackBar; 
    trkBarTop: TTrackBar; 
    procedure FormCreate  (Sender: tObject); 
    procedure TrackBarChange (Sender: tObject); 
    end; 

var 
    formShapeStudy: tformShapeStudy; 

implementation 

{$R *.fmx} 

var 
    My_Shape : tMy_Shape; 
    lvShapeRect : tRectF ; 

procedure tformShapeStudy.FormCreate (Sender: tObject); 
begin 
    My_Shape := tMy_Shape.Create (Self); 
    with My_Shape do begin 
    Parent := Self; 
    TrackBarChange (Self); 
    end; 
end; 

procedure tformShapeStudy.TrackBarChange (Sender: TObject); 
begin 
    My_Shape.Draw; 
end; 

constructor tMy_Shape.Create (aOwner: tComponent); 
begin 
    inherited; 
    with lvShapeRect do begin 
     Left := Self.Left; 
     Top := Self.Top ; 
     Height := 20; 
     Width := 20; 
    end; 
end; 

procedure tBS_Shape.Draw; 
begin 
    l := formShapeStudy.trkBarLeft.Value; 
    t := formShapeStudy.trkBarTop .Value; 
    {`Left & Top` are set with `l & t` or with `120 & 150` 
    and tested separately, by commenting the propper code lines} 
    lvShapeRect.Left := l; // this does no work 
    lvShapeRect.Top := t; // this does no work 
    lvShapeRect.Left := 120; // this works 
    lvShapeRect.Top := 150; // this works 
    Repaint; 
end; 

procedure tMy_Shape.Paint; 
begin 
    inherited; 
    with Canvas do begin 
     Fill .Color := tAlphaColorRec.Aqua; 
     Stroke.Color := tAlphaColorRec.Blue; 
     BeginScene; 
     FillRect (lvShapeRect, 0, 0, Allcorners, 1, tCornerType.Bevel); 
     DrawRect (lvShapeRect, 0, 0, Allcorners, 1, tCornerType.Bevel); 
     EndScene; 
    end; 
end; 

end. 

Answer 1

申し訳ありません皆さんにデルファイ10.1ベルリンでのFireMonkeyのアプリをコーディングしています！ & Top代わりのPosition.X & Position.YLeftを使用しての古い習慣があります。私はLeft & Topを設定するための新しいPosition方法に同意するが、それはエンバカデロはまだこのプロパティを利用できるようにするという意味がありませんが、彼らは制御のLeft & Topを設定するという点で何もしません。これらの古いプロパティがまだ使用可能であるため、彼らはPosition.X & Position.Yと同じLeft & Topプロパティを設定する必要があり、他の言葉でそれを言って、それ以外の場合はあなたがLeft & Topを設定している誓ったこの種の誤り、が、コントロールにつながります動かない。

Left & Topを設定するための正しい方法である：

Position.X := aLeft; 
Position.Y := aTop; 

エンバカデロがLeft & Top特性（WICHが非常に低い）の動作を変更しない限り。