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

Documentation added.

Browse Source 
Shane

git-svn-id: trunk@136 -
This commit is contained in:
lazarus 2001-01-25 15:42:57 +00:00
parent 2661a323d9
commit ad995611b8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/uniteditor.pp
View File

@ -45,6 +45,12 @@ type
TNotifyFileEvent = procedure(Sender: Tobject; Filename : String) of Object;
{---- TSource Editor ---
TSourceEditor is the class that controls access the the Editor and the source code.
It creates the PopupMenu that appears when you right-click on the editor. It calls
the editor functions for bookmarks, saves/opens files, adds control code to the source,
creates the initial code for a form, and holds the unitname and filename properties.
---- TSource Editor ---}
TSourceEditor = class
private
FAOwner : TComponent; //Owned by a TSourceNotebook
@ -55,7 +61,8 @@ type
FHighlighter: TmwPasSyn;
FEditor : TmwCustomEdit;
{$endif}
FControl: TComponent; //if this is a Form or Datamodule, this is used
//if this is a Form or Datamodule, this is used
FControl: TComponent;
//pulled out of the editor by the Function Getxxx
FCurrentCursorXLine : Integer;