フォーム上の指定した座標の色情報 取得方法
解決お世話になっております。
フォーム上にある（tWebBrowser）の一部の座標色情報を取得する方法を探しております。
if 指定した座標の色が●●だったら then
ということを実現したいのですが可能でしょうか？
また、縮小化している状態でも自動実行したいと思ってます。
大変無理言って申し訳ありませんが何卒宜しくお願い申し上げます。
Target座標が
var
Pnt: TPoint;
に入っているとして
var
Color: TColor;
begin
Color := xxx.Canvas.Pixels[Pnt.x, Pnt.y];
マウスクリックで座標を得るのなら xxxMouseDown() イベント内に記述します。
> 縮小化している状態でも自動実行したい
意味が解らないのでパス。
> 縮小化している状態でも自動実行したい
最小化？
>>さどやまさん
アドバイスありがとうございまうｓ。
やってみた所エラーも無くいけました。
Colorに入ったRGB要素をStringで確認したいのですがやり方がいまいちわかりません…
ただいま調べてる最中ですが宜しければお知らせ頂けないでしょうか
>>deldelさん
最小化の間違いでした。
おそらくさどやまさんのやり方で行けそうです。
RGB値でほしいならこんな関数で
function ColorToRGBString(Color :TColor):String;
begin
Result :=Format('%d %d %d',
[GetRValue(Color),
GetGValue(Color),
GetBValue(Color)]);
end;
16進数でいいなら簡単なColorToString関数もあります。
お試しください...。
みんみんさん、お忙しい中ご丁寧にありがとうございました！
無事に表示する事が出来ました。ありがとうございました！
| ツイート |  |