ColorGridの使い方

SamplesといってもDelphiのサンプルはあなどれません。実用性は十分です。

Samplesタブにあるコンポーネントはヘルプがありません。その代わりソースが\Delphi3\Source\Samplesにあります。

ColorGridにユーザがフォアグランドカラーとバックグランドカラーを選択させる時使用できます。

フォアグランドカラーとバックグランドカラーを得るには

ColorGridで左クリックをするとフォアグランドカラー(FG)が、右クリックをするとバックグランドカラー(BG)が移動します。これは次のようにして捕捉できます。

例

procedure TForm1.ColorGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := IntToStr(ColorGrid1.ForegroundIndex);
Edit2.Text := IntToStr(ColorGrid1.BackgroundIndex);
end;