=====================================================================
【名    称】  Progrs10.lzh TProgress コンポーント ver 1.0
【登 録 名】  Progrs10.lzh
【バイト数】  2,378 byte
【制作者名】  本田勝彦 (VYR01647)
【掲載者名】  本田勝彦 (VYR01647)
【動作環境】  Windows95 + Delphi 2.0J
【掲載月日】  1999/11/14
【作成方法】  LHA にて解凍
【検索キー】  1.%VYR01647 2.#SHARE 3.#VCL 4.TPROGRES
【動作確認】  Windows95 + Delphi 2.0j
【ソフト種】  フリーウェア
【転載条件】  自由
=====================================================================
【内容紹介】

１．概要

  プログレスバーを簡単に表示するためのコンポーネントです。
  
２．ファイル構成

  Progrs10.lzh には以下のファイルが梱包されています。
  
  readme.txt 	このファイル
  progress.pas  コンポーネント本体
  progress.dcr  コンポーネントアイコンファイル
  
３．実行方法
  LHA にて解凍をしてください ( LHA Progrs10.lzh )
  progress.pas, progress.dcr の２個のファイルをライブラリパスの通った
  フォルダにコピーした後 progress.pas をコンポーネントインストールして
  下さい。               ^^^^^^^^^^^^

４．使用法

  procedure TForm1.Button1Click(Sender: TObject);
  var
    S: String;
    I, J: Integer;
    List: TStringList;
  begin
    S := '処理中';
    Progress1.BeginProgress(S);           // 表示
    try
      List := TStringList.Create;
      try
        for I := 0 to 100 do
        begin
          Progress1.Progress(S, 100, I);  // 更新
          for J := 1 to 10 do
            List.Add(Format('%.2d', [I]) + Format('%.2d', [J]));
        end;
      finally
        List.Free;
      end;
    finally
      Progress1.EndProgress;              // 終了
    end;
  end;

５．その他
  
  動作確認は Delphi2.0J でしか行っていませんが、2.0J 以降の
  バージョンでも動作すると思います。（たぶん^^;）

  作者メールアドレス katsuhko.honda@nifty.ne.jp
  作者ホームページ   http://homepage3.nifty.com/~katsuhiko/
  
File Name【Progrs10.lzh】
=====================================================================