「マウスカーソルポイント色取得コンポーネント」 MyColorPic V1.1 Copyright 2020- Arihiko.

  MYColorPic11.zip

マウスカーソルポイントの色をリアルタイムに取得するコンポーネントです。
コンポーネントやソース等すべてフリーですので、自由に変更・使用してください。

【1】ファイル群
解凍すると下記のファイル群が展開されます。
MyColorPic.pas (コンポーネント本体のソースです)
MyColorPic.dcr (コンポーネントのアイコンのリソースです)
MyColorPic.dcu (コンパイルされたコンポーネント本体です)
「Helpフォルダ」 (ヘルプファイル群)
「sampleフォルダ」 (実行例のサンプルファイル群)

【2】環境
Delphi5で作成しWindows11で動作確認しています。

【3】インストール
任意のフォルダに「MyColorPic.pas」と「MyColorPic.dcr 」を置いて、
コンポーネントメニューのインストールからインストールしてください。
「Samples」タブに(水色のトレイにCRrと書いてある模様の)アイコンが登録されます。


【4】使用方法
１．フォームに「MyColorPic」コンポーネントを置く。
２．「色取得」ボタンをクリックすると、マウスカーソルポイントの色を1/10おきに取得します。
３．「色決定」ボタンをクリックすると、取得した色を決定色にします。
４．プログラム中の必要なところで、「MyColorPic1.keteiIro」とすることで決定色を得る事ができます。
５．「カラーパターン変更」ボタンをクリックすると、カラーパターンの色を変更することができます。
６．マウスカーソルは、コンポーネントパネル以外のデスクトップ画面にあるどこの色でも取得できます。
７．sampleフォルダのProject1.dprを読み込んで実行し、「決定色をパネルに表示する」ボタンをクリック
すると、パネルの色を決定色にすることができます。


【5】読み出し専用プロパティ ： keteiIro:TColor型 (決定色)

【6】その他
エラー対策はほとんどしてません。

【7】更新履歴
2020/05/10 V1.0 初回原型、Windows10環境でDelphi5にて作成。
2024/10/19 v1.1 色変更ボタンや決定ボタンでフォームを閉じないように変更。