Memoで縦位置を中央揃えするには？ (ID:38679)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 コントロールにEM_SETRECTを送ると編集領域の位置や大きさを設定できるので 文字列が中央にくるように変更してやればよいかと。 と言っても文字列のサイズを求めるのがちょっと面倒そうですけれど、とりあえずやっつけで…… type TDummyMemo = class(TCustomMemo); // TCustomMemoのprotectedプロパティにアクセスするのに使う procedure TForm1.vcenter_memo(memo: TCustomMemo); var rc: TRect; tmp_canvas: TCanvas; line_count, char_index: Integer; y_start, y_end: Integer; hi: Integer; begin // 現在の文字列の高さを計算 tmp_canvas := Canvas; // 文字サイズを求めるためTForm.Canvasを借りる tmp_canvas.Font.Assign(TDummyMemo(memo).Font); if memo is TRichEdit then begin // 段落ごとにフォントが異なっていたりすると単純には計算できないので // 文字の座標を問い合わせ、そこから全体の高さを求める line_count := memo.Perform(EM_GETLINECOUNT, 0, 0); char_index := memo.Perform(EM_LINEINDEX, line_count - 1, 0); y_start := HIWORD(memo.Perform(EM_POSFROMCHAR, 0, 0)); // 最初の行のY座標を... y_end := HIWORD(memo.Perform(EM_POSFROMCHAR, char_index, 0)); // 最後の行のY座標から引いて... hi := y_end - y_start + tmp_canvas.TextHeight(' '); // さらに最後の行の高さを足す end else // TMemoの場合 begin // memo.Lines.Countだと最後の行が空白の時に正しく計算できないので // EM_GETLINECOUNTで問い合わせる hi := tmp_canvas.TextHeight(' ') * memo.Perform(EM_GETLINECOUNT, 0, 0); end; // テキストが中央にくるよう、編集領域の範囲を計算 rc := memo.ClientRect; rc.Top := (rc.Top + rc.Bottom - hi) div 2; rc.Bottom := rc.Top + hi; // 境界線の分を引いておく // TRichEditだと、BorderStyleにかかわらず引いておかないといけないみたい InflateRect(rc, 0, GetSystemMetrics(SM_CYEDGE)); // 領域を設定する memo.Perform(EM_SETRECT, 0, LParam(@rc)); end; こんな感じのメソッドを作って、OnChangeとかOnResizeのタイミングで呼んでみてはどうでしょう。