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

SynEdit Gutter: Refactor, add ability to save GutterParts to LFM file (fixed example)

Browse Source 
git-svn-id: trunk@18332 -
This commit is contained in:
martin 2009-01-18 19:27:28 +00:00
parent 76ed95a0d7
commit a47670f307
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/edittest.pp
View File

@ -42,7 +42,7 @@ program EditTest;
uses
Interfaces,
StdCtrls, Buttons, Classes, Forms, Controls, SysUtils, Graphics,
SynEdit, SynHighlighterPas;
SynEdit, SynHighlighterPas, SynGutterLineNumber;
type
TEditTestForm = class(TForm)
@ -80,7 +80,7 @@ begin
Width := 300;
Height := 200;
Gutter.Color := clBtnface;
Gutter.ShowLineNumbers := True;
Gutter.GutterPartVisibleByClass[TSynGutterLineNumber] := True;
Color := clWindow;
Visible := True;
Font.Name := 'courier';