delphi - Delphiの画像コンポーネントで「色で塗りつぶす」機能を使用することはできますか？

Question

フォームにTImageコンポーネントがあります。次の機能を実装する必要があります。

（マウスポインタが赤い色のポイントの上にある場合は、そのポイントに「緑の色で塗りつぶす」を適用します）

ここで「色で塗りつぶす」とは、ペイントの機能「色で塗りつぶす」を意味します。TImageに似たようなものはありますか？または、この関数を自分で実装する必要がありますか？

ありがとうございました

PS私はDelphi7を使用しています

Answer 1

あなたが求めることをするために何も組み込まれてTImageいません。

から始めることはないでしょうが、自分で実装することもできますTImage。または、必要な機能を提供するサード パーティ製のペイント コンポーネントを検索する幸運に恵まれているかもしれません。

Answer 2

実際、私は Image1.Canvas.FloodFill 関数を使用してこれを実装することができました。(Image1.ClientWidth/Image1.Picture.Bitmap.Width) 比率 (高さと同じ) を使用して座標をスケーリングする必要がありました。新しい座標を取得した後、 Image1.Canvas.Pixels マトリックスとスケーリングされた座標を使用して、ポイントの色を取得できました。私には問題なく動作するようで、追加の機能は必要ありません。