お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RGB表記の色の表示"

この発言に対し以下のコメントが寄せられています
#00054 瑠瓏 さん RE:RGB表記の色の表示

 RGB値で入力、表示された色を表示します。 FormにEditBox,Button,Shapeを置きます。 EditBoxにRGB値(FF0000とか)を入力するとその色をShapeに表示します。 0〜9,A〜Fの範囲チェックをしてね。でないと落ちます。 16進表示の$を忘れずに  あまりに「石」でしたでしょうか・・。 超初心者が添削を期待して・・。 procedure TForm1.Button1Click(Sender: TObject); var H1,H2,H3,H4,H5,H6:Integer; RGB:String; begin if Edit1.Text <> '' then begin RGB:=Edit1.Text; H6:=StrToInt('$'+Copy(RGB,1,1)); H5:=StrToInt('$'+Copy(RGB,2,1)); H4:=StrToInt('$'+Copy(RGB,3,1)); H3:=StrToInt('$'+Copy(RGB,4,1)); H2:=StrToInt('$'+Copy(RGB,5,1)); H1:=StrToInt('$'+Copy(RGB,6,1)); Shape1.Brush.Color:=H2*16*16*16*16*16+H1*16*16*16*16+H4*16*16*16+H3*16*16+H6*16+H5; 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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum