Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
3.847 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#13

AW: Delphi-Versionsnummer per IOTA-Service abfragen?

  Alt 19. Mär 2021, 18:48
Gibt es eine Möglichkeit mittels der IOTA-Services die exakte Position (in Pixel auf dem Screen) des ersten Chars des Quellcodes (also quasi der in Columne 1) festzustellen? Bzw. die Breite festzustellen, zwischen dem linken Rand des Editors und dem ersten Char im Editor.
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;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight

Geändert von Stevie (19. Mär 2021 um 18:50 Uhr)
  Mit Zitat antworten Zitat