喫茶XRAYトップページ

[スレッド全体]
[11452] Re:サイズ変更グリップ返信　削除
2017/10/15 (日) 18:38:26 Mr.XRAY
▼ igyさん
> ># 実際、サイズ変更グリップを表示するコンポーネントを作りました。

おお，なるほど．
テストコードと実行結果です．
例によって Windows 7 U64(SP1) + Delphi XE(UP1) Pro です．

procedure TForm1.FormCreate(Sender: TObject);
begin
  FResizeGrip := TIgySizingMark.Create(Self);
  FResizeGrip.Parent := Panel1;
end;

procedure TForm1.Panel1Resize(Sender: TObject);
begin
　FResizeGrip.Left := Panel1.Width - FResizeGrip.Width ;
　FResizeGrip.Top := Panel1.Height- FResizeGrip.Height;
end;

[11454] Re2:サイズ変更グリップ返信　削除
2017/10/15 (日) 18:50:06 Mr.XRAY
そうか，これはグリップというわけではなく，マークなんですね．
それで Mark なんですね．なるほど．

[11455] Re3:サイズ変更グリップ返信　削除
2017/10/15 (日) 18:58:48 igy
▼ Mr.XRAYさん
> そうか，これはグリップというわけではなく，マークなんですね．
> それで Mark なんですね．なるほど．

あ、当時、なんて名前を付ければよいか、わからなかったので、マークにしてました・・・
今だったら、TxxxSizingGrip や TxxxSizeGrip とか、
テストコードに書かれているように TxxxResizeGrip のほうがよさそうですね。

[11456] Re4:サイズ変更グリップ返信　削除
2017/10/15 (日) 19:02:29 Mr.XRAY
▼ igyさん

> あ、当時、なんて名前を付ければよいか、わからなかったので、マークにしてました・・・
> 今だったら、TxxxSizingGrip や TxxxSizeGrip とか、テストコードに書かれているように TxxxResizeGrip のほうがよさそうですね。

いや，Mark とかのが適切のような．
FireMonkey は Grip ですが，実際にその部分にマウスカーソルがいくと
リサイズになるようです．つまり実際に「握る」ことになるようです．
Grip のための表示という意味では Grip でもいいのかな ?

[11457] Re5:サイズ変更グリップ返信　削除
2017/10/15 (日) 19:21:53 igy
▼ Mr.XRAYさん
> FireMonkey は Grip ですが，実際にその部分にマウスカーソルがいくと
> リサイズになるようです．つまり実際に「握る」ことになるようです．

たしかに！

SezeGripをフォーム（右下じゃないところ）に置き、
SezeGripのところにマウスカーソルを合わせると、カーソルの表示も変わり、
ドラッグするとフォーム自体がリサイズしますね！！


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82