この発言に対し以下のコメントが寄せられています

#00059　瑠瓏            さん　RE:ダイヤログ選択の色をRGB値に





　ColorDialogで選択、表示した色のRGB値を表示します。
FormにEditBox,Button,ColorDialogを置きます。
Buttonを押すとColorDialogが開き、そこで指定した色のRGB値をEditBoxに表示
します。
　ColorDialogのColorはColorToRGBで変換しただけではBBGGRRの順なので最後か
ら２桁づつR,G,Bと遡って計算します。
　あまりに「石」ですが、この程度をアップしておかないと「玉」ばかりになり
そうで・・。

procedure TForm1.Button1Click(Sender: TObject);
var
        L,R,G,B:String;
        IntColor:Integer;
begin
        if ColorDialog1.Execute then
        begin
        IntColor :=ColorToRGB(ColorDialog1.Color);
        L:=IntToHex(IntColor,6);       //この状態ではBBGGRRになっている
        R:=Copy(L,5,2);
        G:=Copy(L,3,2);
        B:=Copy(L,1,2);
        Edit1.Text:=R+G+B;
        end;
end;


                                     97/10/19(日) 多摩の岳夫(GFA03144)
                                http://www.asahi-net.or.jp/~ij7t-snhr/

Original document by 篠原岳夫　　　　氏 ID:(GFA03144)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。