□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

  TeraPad ユニット Ver.0.18                                 2004/05/20
                                                               寺尾 進
                                            t-susumu@mvh.biglobe.ne.jp
                                 http://www5f.biglobe.ne.jp/~t-susumu/

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□

■TeraPad ユニットについて

  TeraPadを扱うためのDelphi用ユニットです。

■著作権その他

  このプログラムはフリーなのでどうぞ自由に御使用ください。なお、著作権
  を放棄します。転載、改造等自由に行ってください。

■更新履歴

2001/10/23  Ver.0.01

  ・初公開

2001/10/24  Ver.0.02

  ・選択モードを取得する TpGetSelMode を追加。

2001/10/25  Ver.0.03

  ・TpLength を追加。

2001/10/25  Ver.0.04

  ・TpGetSelText のバグ修正。
    ＃西原さん。ありがとう〜♪

2001/10/29  Ver.0.05

  ・MAX_GETTEXT_SIZE を 65534 に。

2001/11/15  Ver.0.06

  ・TeraPadのINIファイルのパスを取得する TpGetIniPath を追加。
  ・任意のINIフォルダの設定を読み込んで反映する TpSetIniDir を追加。

2001/11/16  Ver.0.07

  ・全てのテキストを選択する TpSelectAll を追加。
  ・テキストの開始位置から終了位置まで選択する TpSelect を追加。

2002/01/10  Ver.0.08

  ・以下を追加。(TeraPad v0.73β1 以降で使用可能)
    ----------------------------------------------------
    // 全てのテキストを取得(スワップファイル経由)
    function TpGetTextEx(TpWnd: HWND): string;
    
    // 全てのテキストをセット(スワップファイル経由)
    procedure TpSetTextEx(TpWnd: HWND; Text: string);
    
    // 選択テキストを取得(スワップファイル経由)
    function TpGetSelTextEx(TpWnd: HWND): string;
    
    // 選択領域にテキストをセット(スワップファイル経由)
    procedure TpReplaceSelEx(TpWnd: HWND; Text: string);
    ----------------------------------------------------

2002/03/15  Ver.0.09

  ・TeraPad.pas のコメントも誤記訂正。(^^;

2002/04/27  Ver.0.10

  ・以下を追加。(TeraPad v0.73β1 以降で使用可能)
    ----------------------------------------------------
    //キャレット位置の行番号を取得
    //NumMode: TP_NUM_ROW=描画される１行ごとの行番号, TP_NUM_LINE=論理行
    function TpGetNum(TpWnd: HWND; NumMode: integer): integer;
    ----------------------------------------------------

2003/05/13  Ver.0.11

  ・以下を追加。(TeraPad v0.79β37 以降で使用可能)
    ----------------------------------------------------
    //アクティブなエディットコントロールの表示行数を取得する
    function TpGetRowCount(TpWnd: HWND): integer;
    
    //アクティブなエディットコントロールの表示桁数を取得する
    function TpGetColCount(TpWnd: HWND): integer;
    
    //アクティブなエディットコントロールの画面上端の行番号を取得する
    function TpGetTopRow(TpWnd: HWND): integer;
    
    //アクティブなエディットコントロールの画面左端の桁番号を取得する
    function TpGetTopCol(TpWnd: HWND): integer;
    ----------------------------------------------------

2003/06/08  Ver.0.14

  ・以下を追加。
    ----------------------------------------------------
    TpAppWindow: HWND; //TApplicationのウィンドウハンドル
    
    // ツールバーのウィンドウハンドルを取得
    function TpGetToolbarWnd(TpWnd: HWND): HWND;

    // TeraPadで編集中のファイルパスを取得
    function TpGetFilePath(TpWnd: HWND): string;
    ----------------------------------------------------

2003/07/23  Ver.0.15

  ・TpActiveWindow の改良。

2003/12/08  Ver.0.16

  ・TpSetTextExLines を追加。TeraPad v0.85β10以降で使用可能。

2003/12/17  Ver.0.17

  ・TpGetOutputMode/TpSetOutputMode を追加。TeraPad v0.85β13以降で使用
    可能。

2004/05/20  Ver.0.18

  ・TpSetSel を追加。TeraPad v0.86β5以降で使用可能。
  ・スペルミス TPMSG_ROWJUNP を TPMSG_ROWJUMP に訂正。

□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□