この発言は
#00039　篠原岳夫　　　　さんのダイヤログ選択の色をRGB値に
に対するコメントです



篠原岳夫 さん、どもです　瑠瓏です。折角ですからこちらも(^^)v


　ColorDialogで選択、表示した色のRGB値を表示します。
FormにEditBox,Button,ColorDialogを置きます。
Buttonを押すとColorDialogが開き、そこで指定した色のRGB値をEditBoxに表
示します。
procedure TForm1.Button1Click(Sender: TObject);
var IntColor:Integer;
begin
  if ColorDialog1.Execute then begin
    IntColor :=ColorToRGB(ColorDialog1.Color);
    asm mov eax,IntColor; rol eax,8; bswap eax; mov IntColor,eax end;
    Edit1.Text:=IntToHex(IntColor,6);
  end;
end;


神無月。寒露、涼風の舞 FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      FJBUILDR    Mon,10/20/97  16:18

Original document by 瑠瓏            氏 ID:(KHB05271)

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