source: trunk/StudioModules/LDModuleBasic/UFormSourceCode.pas

unit UFormSourceCode;

{$mode delphi}{$H+}

interface

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

type

  { TFormSourceCode }

  TFormSourceCode = class(TForm)
    SynEditSource: TSynEdit;
    SynPasSyn1: TSynPasSyn;
    procedure SynEditSourceChange(Sender: TObject);
  private
    FSource: TSource;
    FOnChange: TNotifyEvent;
    procedure SetSource(AValue: TSource);
  public
    property Source: TSource read FSource write SetSource;
    procedure Save;
    procedure UpdateInterface;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end; 

var
  FormSourceCode: TFormSourceCode;

implementation


{$R *.lfm}

{ TFormSourceCode }

procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
begin
  Save;
  if Assigned(FOnChange) then
    FOnChange(Self);
end;

procedure TFormSourceCode.SetSource(AValue: TSource);
begin
  if FSource = AValue then Exit;
  FSource := AValue;
  if Assigned(Source) and (Source is TSourceText) then
    SynEditSource.Lines.Text := TSourceText(Source).Content.Text
    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(DataModule1.Project);
//  if not Assigned(DataModule1.Project) then SynEditSource.ClearAll;
end;

end.