この発言は
#00446　Fermion         さんのRE^2:グラデーション文字
に対するコメントです

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

#00878　河邦 正         さん　RE:グラデーション文字




　色々試しているときに付けていた"タグフィールド識別子"を外すのを
忘れていました。(((^^;)

　どうでも良いよと言われそうですが、ここはサンプル蔵ということで
一応・・・。(((^^;;;;;;;

>procedure TForm1.Button1Click(Sender: TObject);
>type
>  TRGB = packed record
>    case RGB: Boolean of  //←※この部分です
>      False :( Color: TColor );
>      True  :( R: Byte; G: Byte; B: Byte; P: Byte );
>  end;

　タグフィールド識別子（ この場合は RGB ）は今回のサンプル中では
特に利用する必要がありませんので、

  type
    TRGB = packed record
      case Boolean of  //←※
        False :( Color: TColor );
        True  :( R: Byte; G: Byte; B: Byte; P: Byte );
    end;

　で良いです。(((^^;;;;　失礼しました。m(_"_)m


                                     98/03/26(木) 17:05 Fermion [KHF03264]

Original document by Fermion         氏 ID:(KHF03264)

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