mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 22:58:05 +02:00
340 lines
8.3 KiB
ObjectPascal
340 lines
8.3 KiB
ObjectPascal
{
|
|
/***************************************************************************
|
|
IDEEditor.pp
|
|
-------------------
|
|
|
|
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program 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. *
|
|
* *
|
|
***************************************************************************/
|
|
}
|
|
{$H+}
|
|
//{$DEFINE NEW_EDITOR}
|
|
//{$DEFINE NEW_EDITOR_SYNEDIT}
|
|
unit IDEEditor;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
classes, Controls, forms,buttons,sysutils,
|
|
{$ifdef NEW_EDITOR_SYNEDIT}
|
|
synedit,SysHighlighterpas,
|
|
{$else}
|
|
mwcustomedit,mwPasSyn,
|
|
{$endif}
|
|
Graphics,Extctrls;
|
|
|
|
type
|
|
|
|
{$ifdef NEW_EDITOR_SYNEDIT}
|
|
TmwCustomEdit = TSynEdit;
|
|
TmwPasSyn = TSynPasSyn;
|
|
{$endif}
|
|
|
|
TIDEEditor = class(TFORM)
|
|
Notebook1 : TNotebook;
|
|
private
|
|
FEmpty : Boolean;
|
|
{$ifdef NEW_EDITOR_SYNEDIT}
|
|
FHighlighter: TSynPasSyn;
|
|
{$else}
|
|
FHighlighter: TmwPasSyn;
|
|
{$endif}
|
|
FCurrentSource : TStrings;
|
|
FCurrentCursorXLine : Integer;
|
|
FCurrentCursorYLine : Integer;
|
|
function CreateNewEditor(const AParent: TWinControl): TmwCustomEdit;
|
|
Function GetCurrentSource : TStrings;
|
|
Function GetCurrentCursorXLine : Integer;
|
|
Procedure SetCurrentCursorXLine(num : Integer);
|
|
Function GetCurrentCursorYLine : Integer;
|
|
Procedure SetCurrentCursorYLine(num : Integer);
|
|
protected
|
|
Procedure IDEEditorPaint(Sender : TObject);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
Function AddPage(title: String; Lines : TStringList) : TmwCustomEdit;
|
|
Procedure DeletePage(Value : Integer);
|
|
Function GetEditorfromPage(Value : Integer) : TmwCustomEdit;
|
|
Procedure SelectText(LineNum,CharStart,LineNum2,CharEnd : Integer);
|
|
Procedure KeyPressed(Sender : TObject; var key: char);
|
|
property CurrentSource : TStrings read GetCurrentSource;
|
|
property CurrentCursorXLine : Integer read GetCurrentCursorXLine write SetCurrentCursorXLine;
|
|
property CurrentCursorYLine : Integer read GetCurrentCursorYLine write SetCurrentCursorYLine;
|
|
property Empty : Boolean read FEmpty write FEmpty;
|
|
end;
|
|
|
|
|
|
var
|
|
IDEEditor1 : TIDEEditor;
|
|
|
|
implementation
|
|
uses
|
|
LCLLinux;
|
|
|
|
constructor TIDEEDitor.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
Caption := 'Lazarus Editor';
|
|
Left := 0;
|
|
Top := 0;
|
|
Width := 600;
|
|
height := 600;
|
|
|
|
Notebook1 := TNotebook.Create(Self);
|
|
Notebook1.Parent := Self;
|
|
Notebook1.Align := alClient;
|
|
Notebook1.Left := 0;
|
|
Notebook1.Top :=2;
|
|
Notebook1.Width := ClientWidth;
|
|
Notebook1.Height := ClientHeight-Notebook1.top;
|
|
Notebook1.Pages.Strings[0] := 'NewUnit.pp';
|
|
Notebook1.PageIndex := 0; // Set it to the first page
|
|
Notebook1.Show;
|
|
Empty := True;
|
|
|
|
FHighlighter := nil;
|
|
{
|
|
FHighlighter := TmwPasSyn.Create(Self);
|
|
FHighlighter.CommentAttri.Foreground := clNavy;
|
|
FHighlighter.NumberAttri.Foreground := clRed;
|
|
FHighlighter.KeyAttri.Foreground := clGreen;
|
|
}
|
|
|
|
//OnPaint := @IDEEditorPaint;
|
|
end;
|
|
|
|
destructor TIDEEditor.Destroy;
|
|
begin
|
|
FHighlighter.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
function TIDEEditor.CreateNewEditor(const AParent: TWinControl): TmwCustomEdit;
|
|
begin
|
|
if FHighlighter = nil
|
|
then begin
|
|
FHighlighter := TmwPasSyn.Create(Self);
|
|
FHighlighter.CommentAttri.Foreground := clNavy;
|
|
FHighlighter.NumberAttri.Foreground := clRed;
|
|
FHighlighter.KeyAttri.Foreground := clGreen;
|
|
end;
|
|
|
|
|
|
Result := TmwCustomEdit.Create(Self);
|
|
with Result do
|
|
begin
|
|
Parent := AParent;
|
|
Top := 25;
|
|
Left := 0;
|
|
Align := alClient;
|
|
Width := Notebook1.ClientWidth - 10;//clientwidth;//500;
|
|
Height := Notebook1.ClientHeight -10;//clientheight;//250;
|
|
{$IFDEF NEW_EDITOR}
|
|
Gutter.Color := clBtnface;
|
|
Gutter.ShowLineNumbers := True;
|
|
{$ELSE}
|
|
GutterColor := clBtnface;
|
|
{$ENDIF}
|
|
Color := clWindow;
|
|
Visible := True;
|
|
Font.Name := 'courier';
|
|
Font.Size := 12;
|
|
if FHighlighter = nil
|
|
then begin
|
|
// MWE: Don't ask me wy but a highlighter created outside
|
|
// an editor doesn't work
|
|
Highlighter := TmwPasSyn.Create(Self);
|
|
with TmwPasSyn(HighLighter) do
|
|
begin
|
|
CommentAttri.Foreground := clNavy;
|
|
NumberAttri.Foreground := clRed;
|
|
KeyAttri.Foreground := clGreen;
|
|
end;
|
|
FHighLighter := HighLighter;
|
|
end
|
|
else HighLighter := FHighLighter;
|
|
// HighLighter := TmwPasSyn.Create(Self);
|
|
// TmwPasSyn(HighLighter).CommentAttri.Foreground := clNavy;
|
|
// TmwPasSyn(HighLighter).NumberAttri.Foreground := clRed;
|
|
// TmwPasSyn(HighLighter).KeyAttri.Foreground := clGreen;
|
|
OnKeyPress := @KeyPRessed;
|
|
end;
|
|
|
|
end;
|
|
|
|
Procedure TIDEEditor.KeyPressed(Sender : TObject; var key: char);
|
|
Begin
|
|
writeln('KEYPRESS '+inttostr(ord(key)));
|
|
end;
|
|
|
|
|
|
|
|
Procedure TIDEEditor.IDEEditorPaint(Sender : TObject);
|
|
Begin
|
|
Assert(False, 'Trace:IDEEDitor paint...');
|
|
end;
|
|
|
|
|
|
Function TIDEEditor.AddPage(title: String; Lines : TStringList) : TmwCustomEdit;
|
|
var
|
|
PageIndex: Integer;
|
|
Begin
|
|
if Empty
|
|
then begin
|
|
// temp fix for empty notebook (it has one page)
|
|
Empty := False;
|
|
Notebook1.Pages.Strings[0] := Title;
|
|
PageIndex := 0;
|
|
end
|
|
else PageIndex := Notebook1.Pages.Add(Title);
|
|
|
|
Result := CreateNewEditor(Notebook1.Page[PageIndex]);
|
|
Result.Lines.Assign(Lines);
|
|
|
|
|
|
with Notebook1.Pages do
|
|
Assert(False, Format('Trace:New Page title is %s --- New Page Index is %d',[Strings[Count - 1], Count - 1]));
|
|
|
|
end;
|
|
|
|
Procedure TIDEEditor.DeletePage(Value : Integer);
|
|
var
|
|
tempedit : TmwCustomEdit;
|
|
Begin
|
|
//Check to see if the page is changed
|
|
with Notebook1.Page[Value] do
|
|
Begin
|
|
TempEdit := GetEditorFromPage(Value);
|
|
if tempEdit <> nil then
|
|
Begin
|
|
if TempEdit.Modified then
|
|
begin
|
|
if Application.Messagebox('Save this unit first?', 'Question', MB_YESNO) = IDYES then
|
|
Assert(False, 'Trace:**************************MRYES')
|
|
else
|
|
Assert(False, 'Trace:**************************MRNO');
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
Notebook1.Pages.Delete(Value);
|
|
if Notebook1.Pages.Count = 0 then
|
|
Begin
|
|
Empty := True;
|
|
Close;
|
|
end;
|
|
end;
|
|
|
|
Function TIdeEditor.GetEditorfromPage(Value : Integer) : TmwCustomEdit;
|
|
var
|
|
I : Integer;
|
|
Begin
|
|
Result := nil;
|
|
with Notebook1.Page[Value] do
|
|
Begin
|
|
for I := 0 to ControlCount-1 do
|
|
Begin
|
|
if Controls[I] is TmwCustomEdit then
|
|
Begin
|
|
Assert(False, 'Trace:*******************************FOUND TmwCUSTOMEDIT**************');
|
|
Result := TmwCustomEdit(Controls[I]);
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end;
|
|
|
|
Function TIdeEditor.GetCurrentSource : TStrings;
|
|
var
|
|
temp : TmwCustomEdit;
|
|
begin
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
if Temp <> nil then
|
|
Result := Temp.Lines
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
Function TIdeEditor.GetCurrentCursorYLine : Integer;
|
|
var
|
|
temp : TmwCustomEdit;
|
|
begin
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
if Temp <> nil then
|
|
Result := Temp.CaretY
|
|
else
|
|
Result := 0;
|
|
end;
|
|
|
|
Procedure TIdeEditor.SetCurrentCursorYLine(num : Integer);
|
|
var
|
|
temp : TmwCustomEdit;
|
|
begin
|
|
FCurrentCursorYLine := Num;
|
|
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
if Temp <> nil then
|
|
Temp.CaretY := Num;
|
|
|
|
end;
|
|
|
|
Function TIdeEditor.GetCurrentCursorXLine : Integer;
|
|
var
|
|
temp : TmwCustomEdit;
|
|
begin
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
if Temp <> nil then
|
|
Result := Temp.CaretX
|
|
else
|
|
Result := 0;
|
|
end;
|
|
|
|
Procedure TIdeEditor.SetCurrentCursorXLine(num : Integer);
|
|
var
|
|
temp : TmwCustomEdit;
|
|
begin
|
|
FCurrentCursorXLine := Num;
|
|
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
if Temp <> nil then
|
|
Temp.CaretX := Num;
|
|
|
|
end;
|
|
|
|
Procedure TideEditor.SelectText(LineNum,CharStart,LineNum2,CharEnd : Integer);
|
|
var
|
|
temp : TmwCustomEdit;
|
|
P : TPoint;
|
|
begin
|
|
Temp := GetEditorFromPage(Notebook1.PageIndex);
|
|
Writeln('In SelectText');
|
|
if Temp <> nil then
|
|
Begin
|
|
P.X := CharStart;
|
|
P.Y := LineNum;
|
|
Temp.BlockBegin := P;
|
|
P.X := CharEnd;
|
|
P.Y := LineNum2;
|
|
Temp.BlockEnd := P;
|
|
end;
|
|
|
|
end;
|
|
|
|
|
|
end.
|