Delphi-Versionsnummer per IOTA-Service abfragen?

[r29d43]

Zitat von Stevie:

Ja, der Bereich nennt sich "Gutter".

Delphi-Quellcode:

function GetEditorServices: IOTAEditorServices;
begin
  Result := BorlandIDEServices as IOTAEditorServices;
  Assert(Assigned(Result));
end;

function GetTopMostEditView: IOTAEditView;
begin
  Result := GetEditorServices.TopView;
end;

function GetEditor: TWinControl;
var
  view: IOTAEditView;
begin
  view := GetTopMostEditView;
  Result := TWinControl(view.GetEditWindow.Form.FindComponent('Editor'));
end;

function GetGutterWidth: Integer;
var
  editor: TWinControl;
  ctx: TRttiContext;
begin
  editor := GetEditor;
  Result := ctx.GetType(editor.ClassType).GetProperty('LeftGutter').GetValue(editor).AsInteger;
end;

Oberperfekt! Genau das was ich später dann gesucht hätte und jetzt schon gefunden habe

Besten Dank auch nochmal @all