掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コードエディタに指定されたフォントとそのサイズを取得したい (ID：49565)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
通りすがりさん、レスありがとうございました。 いや〜、大変お恥ずかしい、自分は、何を作っていたつもりなんでしょうか。 "OTA"という単語を見て、それだけですっきりしました。 （OTA = Open Tools API の略） 多くは語りませんが、以下のように使うようです。 uses SysUtils, ToolsApi; // "\Software\Borland\Delphi\7.0" 等のレジストリキーを得る場合 function GetBaseRegistryKey: String; var otaServices: IOTAServices; begin if Supports(BorlandIDEServices, IOTAServices, otaServices) then begin Result := otaServices.GetBaseRegistryKey; otaServices := nil; end end; //Memoコンポーネントにフォント名・サイズの反映 procedure SetFont; var otaEditorServices: IOTAEditorServices; begin if Supports(BorlandIDEServices, IOTAEditorServices, otaEditorServices) then begin Memo.Font.Name := otaEditorServices.EditOptions.FontName; Memo.Font.Size := otaEditorServices.EditOptions.FontSize; otaEditorServices := nil; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.