mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 19:17:52 +02:00
111 lines
3.5 KiB
ObjectPascal
111 lines
3.5 KiB
ObjectPascal
{ $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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, 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 CreateNew(AOwner, 1);
|
|
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.
|
|
|
|
|