/usr/lib/lazarus/0.9.30.4/examples/edittest.pp is in lazarus-src-0.9.30.4 0.9.30.4-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | { $Header$
/***************************************************************************
EditTest.pp
-------------------
Test aplication for editors
Initial Revision : Sun Dec 31 17:30:00:00 CET 2000
***************************************************************************/
***************************************************************************
* *
* This source is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This code is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* A copy of the GNU General Public License is available on the World *
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
* obtain it by writing to the Free Software Foundation, *
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
* *
***************************************************************************
}
{
@author(Marc Weustink <marc@lazarus.dommelstein.net>)
@created(31-Dec-2000)
Detailed description of the Unit.
}
program EditTest;
{$mode objfpc}{$H+}
uses
Interfaces,
StdCtrls, Buttons, Classes, Forms, Controls, SysUtils, Graphics,
SynEdit, SynHighlighterPas, SynGutterLineNumber;
type
TEditTestForm = class(TForm)
public
FText: TEdit;
FEdit: TSynEdit;
FHighlighter: TSynPasSyn;
constructor Create(AOwner: TComponent); override;
end;
var
EditTestForm: TEditTestForm;
{------------------------------------------------------------------------------}
{ TEditTestorm }
{------------------------------------------------------------------------------}
constructor TEditTestForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width := 300;
Height := 250;
Left := 200;
Top := 200;
Caption := 'Editor tester';
FHighlighter := TSynPasSyn.Create(Self);
FHighlighter.CommentAttri.Foreground := clNavy;
FHighlighter.NumberAttri.Foreground := clRed;
FHighlighter.KeyAttri.Foreground := clGreen;
FEdit := TSynEdit.Create(Self);
with FEdit
do begin
Parent := Self;
Width := 300;
Height := 200;
Gutter.Color := clBtnface;
Gutter.LineNumberPart.Visible := True;
Color := clWindow;
Visible := True;
Font.Name := 'courier';
Font.Size := 12;
HighLighter := Self.FHighLighter;
end;
FText := TEdit.Create(Self);
with FText do
begin
Parent := Self;
Top := 208;
Width := 300;
Height := 25;
Visible := True;
Font.Name := 'courier';
Font.Size := 12;
end;
end;
begin
Application.Initialize;
Application.CreateForm(TEditTestForm, EditTestForm);
Application.Run;
end.
|