喫茶XRAYトップページ
[
スレッド全体
]
[13778]
Re:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/3 (月) 08:36:58
Mr.XRAY
▼ dilさん、さんにちは。
当サイトをご利用いただきありがとうございます。
また、報告に感謝いたします。
現在、申し訳ないのですが、サンプル、コンポーネント類の全て、
放置状態となっています。
他の方にも参考にして頂けるよう、リンクを貼らせていただきました。
http://
mrxray.
on.
coocan.
jp/
Delphi/
ResizeSa
mples/
index.
htm#
05
これは、スクリーンキャプチャに簡単な画像処理機能を実装しよう思って作成しました。
テキスト描画用のコントロールなども、と考えていたのですが、放置のままです。
コードあるいは手法が何かしらの参考になれば幸いです。
[13791]
Re2:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/13 (木) 06:47:58
dil
▼ Mr.XRAYさん
返信いただき、ありがとうございます。
現在、Lineを使っていますが、MouseイベントのXY座標が、
DragResizeのサイズ変更用Shapeの上にあると、
親コントロールの座標になって困っています。
もう・・・Delphiさん
まあ、カーソル位置を取得しなおしてScreenToClientすればいいだけの話ですが。
[13792]
Re3:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/13 (木) 08:52:09
Mr.XRAY
> DragResizeのサイズ変更用Shapeの上にあると、
よく理解してのレスではありませんが、TShape を独立して配置するといことであれば、
この [ 図形の移動リサイズ関係サンプル ] は、
基本的に、
TMyDragResize = class(TplBaseDragResize)
のように、TplBaseDragResize を継承したクラスを作成 (コード) し、
そのインスタンスを実行時に生成して使用する形式となります。
例えば、円を描画するクラス、四角形を描画するクラス、文字を描画するクラス
なとを作成します。
TShape を単独使用することは考慮していません。
TShape はすでにグラブハンドルとラバーバンドで使用しています。
[ 09_描画用コントロールの基本クラスのソースコード ]
http://
mrxray.
on.
coocan.
jp/
Delphi/
ResizeSa
mples/
R010_Bas
eDragRes
ize.
htm#
09
TplBaseRubberBand = class(TShape)
^^^^^^
TplBaseGrabHandle = class(TShape)
^^^^^^
[13795]
楕円(円)描画用のクラスの例
返信
削除
2025/2/14 (金) 14:05:08
Mr.XRAY
> 例えば、円を描画するクラス、四角形を描画するクラス、文字を描画するクラス
> なとを作成します。
作成するクラスのクラス名は任意です。
楕円 (円) 描画用のクラスの例です。
プロパティなどの設定は一切ありません。
http://
mrxray.
on.
coocan.
jp/
Delphi/
zip/
Resize_E
llipse_C
lass.
zip
[13796]
Re: 楕円(円)描画用のクラスの例(更新)
返信
削除
2025/2/16 (日) 14:15:54
Mr.XRAY
>
http://
mrxray.
on.
coocan.
jp/
Delphi/
zip/
Resize_E
llipse_C
lass.
zip
更新しました。
テスト用プロジェクトのコードの変更だけです。
クラスのコードに変更はありません。
[13793]
Re3:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/13 (木) 08:58:04
Mr.XRAY
> 親コントロールの座標になって困っています。
実は、TSpape を単独で使用する場合、
親コントロールがマウスイベントを捕捉してもらわないと困るのです。
それは、複数のコントルールの選択用に TShape をラバーバンドを使用したい
からです。
[13794]
Re3:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/14 (金) 09:12:34
Mr.XRAY
もし、移動リサイズするオブジェクトが 1 つだけであれば、
以下を検討してみてください。
[ 157_移動リサイズ可能な TImage ラバーバンドとグラブハンドル ]
http://
mrxray.
on.
coocan.
jp/
Delphi/
plSample
s/
157_Move
Resize_G
rabHandl
e.
htm
[13797]
Re4:TplBaseDragResize 最新のDelphiでの動作
返信
削除
2025/2/17 (月) 07:08:42
Mr.XRAY
▼ Mr.XRAYさん
> もし、移動リサイズするオブジェクトが 1 つだけであれば、
> 以下を検討してみてください。
>
> [ 157_移動リサイズ可能な TImage ラバーバンドとグラブハンドル ]>
>
http://
mrxray.
on.
coocan.
jp/
Delphi/
plSample
s/
157_Move
Resize_G
rabHandl
e.
htm
[ G050_描画オブジェクトのマウスによる移動とリサイズ ]
http://
mrxray.
on.
coocan.
jp/
Delphi/
GDIPlusS
amples/
G050_GDI
Plus_Mov
eResize.
htm
[
▼次のスレッド
]
INCM/CMT
Cyclamen v3.82