paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 19:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: comments

Browse Source
This commit is contained in:
mattias 2022-02-20 20:24:06 +01:00
parent 9ba59b2dfc
commit ea2a452113
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/buildintf/projectintf.pas
View File

@ -60,7 +60,7 @@ type
public
constructor Create;
destructor Destroy; override;
procedure SetSourceText(const SourceText: string; Beautify: boolean = false); virtual; abstract;
procedure SetSourceText(const SourceText: string; Beautify: boolean = false); virtual; abstract; // sets corresponding codetool buffer and source editor, clears undo history
function GetSourceText: string; virtual; abstract;
procedure ClearModifieds; virtual; abstract;
public

12
components/ideintf/srceditorintf.pas
View File

@ -136,8 +136,8 @@ type
// screen and text position mapping
function LineCount: Integer; virtual; abstract;
function TextToScreenPosition(const Position: TPoint): TPoint; virtual; abstract;
function ScreenToTextPosition(const Position: TPoint): TPoint; virtual; abstract;
function TextToScreenPosition(const Position: TPoint): TPoint; virtual; abstract; // aka byte to glyph
function ScreenToTextPosition(const Position: TPoint): TPoint; virtual; abstract; // aka glyph to byte
// characters and pixels
function WidthInChars: Integer; virtual; abstract;
@ -178,8 +178,8 @@ type
property BlockBegin: TPoint read GetBlockBegin write SetBlockBegin;
property BlockEnd: TPoint read GetBlockEnd write SetBlockEnd;
property CodeToolsBuffer: TObject read GetCodeToolsBuffer;
property CursorScreenXY: TPoint read GetCursorScreenXY write SetCursorScreenXY;
property CursorTextXY: TPoint read GetCursorTextXY write SetCursorTextXY;
property CursorScreenXY: TPoint read GetCursorScreenXY write SetCursorScreenXY; // glyph/character,line coord, both 1-based
property CursorTextXY: TPoint read GetCursorTextXY write SetCursorTextXY; // byte,line coord, both 1-based
property EditorControl: TWinControl read GetEditorControl;// normally TSynEdit
property FileName: string read GetFileName;
property Lines: TStrings read GetLines write SetLines;// the whole file
@ -187,10 +187,10 @@ type
property PageCaption: string read GetPageCaption;// the beatified unit name with modifiers ('*', '#') as it is shown in tab caption
property PageName: string read GetPageName;// the beatified unit name
property ReadOnly: Boolean read GetReadOnly write SetReadOnly;
property Selection: string read GetSelection write SetSelection;
property Selection: string read GetSelection write SetSelection; // setting selection is undoable
property SelEnd: Integer read GetSelEnd write SetSelEnd;
property SelStart: Integer read GetSelStart write SetSelStart;
property SourceText: string read GetSourceText write SetSourceText;// the whole file
property SourceText: string read GetSourceText write SetSourceText;// the whole file, raw format, writing clears undo list
property TopLine: Integer read GetTopLine write SetTopLine;// first visible line
property LinesInWindow: Integer read GetLinesInWindow;
property Modified: Boolean read GetModified write SetModified;