source: trunk/IDE/Forms/FormSourceCode.pas

unit FormSourceCode;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  SynEdit, SynHighlighterPas, Project;

type

  { TFormSourceCode }

  TFormSourceCode = class(TForm)
    SynEditSource: TSynEdit;
    SynPasSyn1: TSynPasSyn;
    procedure SynEditSourceChange(Sender: TObject);
  private
    FProjectFile: TProjectFile;
    procedure SetProjectFile(const AValue: TProjectFile);
  public
    property ProjectFile: TProjectFile read FProjectFile write SetProjectFile;
    procedure Save;
    procedure UpdateInterface;
    procedure SelectFile(FileName: string; Position: TPoint);
  end; 


implementation

uses
  FormMain, Core;

{$R *.lfm}

{ TFormSourceCode }

procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
begin
  Save;
  if Assigned(Core.Core.Project) and Assigned(ProjectFile) then
    ProjectFile.Modified := True;
end;

procedure TFormSourceCode.SetProjectFile(const AValue: TProjectFile);
begin
  if FProjectFile = AValue then Exit;
  FProjectFile := AValue;
  if Assigned(AValue) then
    SynEditSource.Lines.Assign(FProjectFile.Source)
    else SynEditSource.ClearAll;
end;

procedure TFormSourceCode.Save;
begin
  if Assigned(ProjectFile) then
    ProjectFile.Source.Assign(SynEditSource.Lines);
end;

procedure TFormSourceCode.UpdateInterface;
begin
  SynEditSource.Enabled := Assigned(Core.Core.Project);
  if not Assigned(Core.Core.Project) then SynEditSource.ClearAll;
end;

procedure TFormSourceCode.SelectFile(FileName: string; Position: TPoint);
var
  ProjectFile: TProjectFile;
begin
  with Core.Core do begin
    ProjectFile := Project.Files.SearchFile(FileName);
    if Assigned(ProjectFile) then
      SynEditSource.Lines.Assign(ProjectFile.Source)
      else if FileExists(FileName) then
        SynEditSource.Lines.LoadFromFile(FileName);
    SynEditSource.CaretXY := Position;
    TForm(SynEditSource.Owner).Show;
    SynEditSource.SetFocus;
  end;
end;

end.