Подсветка кода



unit CHILDWIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, IEAddress, OleCtrls,
SHDocVw_EWB, EwbCore, EmbeddedWB, ComCtrls, RichEditBrowser, EditDesigner,
fs_synmemo, fs_ipascal, fs_iinterpreter, ExtCtrls, fs_tree, fs_iextctrlsrtti,
fs_iformsrtti, fs_iclassesrtti;

type
TMDIChild = class(TForm)
ieAdr1: TIEAddress;
fscrpt1: TfsScript;
fspscr1: TfsPascal;
SynMemo1: TfsSyntaxMemo;
btn1: TButton;
fstree1: TfsTree;
fsclsrt1: TfsClassesRTTI;
fsfrmsrt1: TfsFormsRTTI;
fsxtctrlsrt1: TfsExtCtrlsRTTI;
pagectr1: TPageControl;
ts1: TTabSheet;
ts2: TTabSheet;
wb1: TEmbeddedWB;
RichEdt1: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ieAdr1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ts1Show(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var MDIChild1:TMDIChild;
implementation

{$R *.dfm}

procedure TMDIChild.btn1Click(Sender: TObject);
begin
fscrpt1.Clear;
fscrpt1.Lines:=synmemo1.Lines;
if not  fscrpt1.Run then
SynMemo1.ShowMessage(fscrpt1.ErrorMsg);
end;

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

procedure TMDIChild.FormCreate(Sender: TObject);
begin
MDIChild1:=Self;
fscrpt1.Parent:=fsGlobalUnit;
fsGlobalUnit.AddForm(MDIChild1);
end;

11.10.2009 · 13-ый · 2 комментария
Метки:  · Рубрики: 13-ый, Авторы, О блоге

2 комментария

  1. Тест - 11.10.2009

    Анонимы тоже могут писать комментарии…

  2. Аноним - 12.10.2009

    Подсветка ништяковая!

Написать комментарий