require "phi"
require "rdb"

# （１）
# →C:/PROGRA~1/Borland/Delphi6/Source/Vcl/ExtDlgs.pas[TReplaceDialog]
# からコピーしてきて、「<<MMMM」〜「MMMM」に貼り付ける。
# （２）行の泣き別れを一つにして
# （３）不要な行をコメントアウトして
# （４）このスクリプトを実行し
# （５）
# →C:/ap-cvs/apollo/src/ext/dialogs/dialogs.dpr[TReplaceDialog]
# に貼り付ける。
# （６）保存が必要なら、名前を変えて「ap_xx.rb」→「ap_Field.rb」保存。
# （７）出来た uField.pas を使って Phi.dpr をコンパイルする。
# （８）エラーが出た部分はとりあえず削除して、コンパイル可能にする。
# （９）それを初期バージョンとしてＭＬにアップする。
# （10）エラーが得た部分に関して、ap_src_maker.rb の訂正や、手動補正でメソッドを増やす。
# （11）methods_for_wiki でマニュアルの項目を作り、
# （12）ヘルプなどを見ながら、作りすぎを削除したり、補正したりする。また、マニュアルを作る。

$ap_class = Phi::ReplaceDialog
$dl_class = "TReplaceDialog"
$public_method_data =<<MMMM
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure CloseDialog;
    function Execute: Boolean; override;
    property Left: Integer read GetLeft write SetLeft;
    property Position: TPoint read GetPosition write SetPosition;
    property Top: Integer read GetTop write SetTop;
  published
    property FindText: string read GetFindText write SetFindText;
    property Options: TFindOptions read FOptions write FOptions default [frDown];
    property OnFind: TNotifyEvent read FOnFind write FOnFind;
MMMM

require "../ap_src_maker"  # ../ap_src_maker
