☆EditコントロールのSelText

前回、書いたものを テーマの有効／無効に関係なく使えるように修正しました。
又、引数をTCustomEditとすることで、TEdit、TMemo、TInplaceEdit等にも対応できるようにしました。

uses Themes;

function GetSelText(CustomEdit: TCustomEdit): String;
var
  S, Str: WideString;
  I, Start, Len: Integer;
begin
  if ThemeServices.ThemesEnabled then   // テーマが有効の時
    begin
      S := WideString(CustomEdit.Text);
      Start := CustomEdit.SelStart + 1;
      Len := Start + CustomEdit.SelLength -1;

      Str := '';
      for I := Start to Len do
        Str := Str + S[I];
      Result := Str;
    end
  else
    Result := CustomEdit.SelText;       // テーマが無効の時
end;