この発言は
#00038　篠原岳夫　　　　さんのRGB表記の色の表示
に対するコメントです



篠原岳夫 さん、どもです　瑠瓏です。


　RGB値で入力、表示された色を表示します。
FormにEditBox,Button,Shapeを置きます。
EditBoxにRGB値(FF0000とか）を入力するとその色をShapeに表示します。

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//  if UpperCase(Copy(Edit1.Text,1,2))='CL'then
//    Shape1.Brush.Color:=StringToColor(Edit1.Text)
//  else if Copy(Edit1.Text,1,1)='$' then
//    Shape1.Brush.Color:=StringToColor(Edit1.Text)
//  else begin
      i:=StrToIntDef('$'+Edit1.Text,0);
      asm mov eax,i; shl eax,8; bswap eax; mov i,eax end;
      Shape1.Brush.Color:=i
//  end
end;

注釈（//）をはずすと、clBlueなどの表記もＯＫ
自分で＄をつけるとTColor形式（BBGGRR)になる。

こんあんでどうでしょう。

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

Original document by 瑠瓏            氏 ID:(KHB05271)

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