anchor.diff:      AddMenuItem('-', '', nil);
       AddMenuItem('About fpGUI Toolkit...', '', @miAboutFPGuiClicked);
       AddMenuItem('About fpGUI IDE...', '', @miAboutIDE);
  -  end;
  -
  -  tsMessages := TfpgTabSheet.Create(pnlWindow);
  -  with tsMessages do
  -  begin
  -    Name := 'tsMessages';
  -    SetPosition(73, 3, 188, 78);
  -    Text := 'Messages';
  -  end;
  -
  -  tsScribble := TfpgTabSheet.Create(pnlWindow);
  -  with tsScribble do
  -  begin
  -    Name := 'tsScribble';
  -    SetPosition(3, 24, 258, 57);
  -    Text := 'Scribble';
  -  end;
  -
  -  tsTerminal := TfpgTabSheet.Create(pnlWindow);
  -  with tsTerminal do
  -  begin
  -    Name := 'tsTerminal';
  -    SetPosition(3, 24, 258, 57);
  -    Text := 'Terminal';
  -  end;
  -
  -  tsProject := TfpgTabSheet.Create(pnlTool);
  -  with tsProject do
  -  begin
  -    Name := 'tsProject';
  -    SetPosition(3, 24, 134, 109);
  -    Text := 'Project';
  -  end;
  -
  -  tsFiles := TfpgTabSheet.Create(pnlTool);
  -  with tsFiles do
  -  begin
  -    Name := 'tsFiles';
  -    SetPosition(3, 24, 134, 109);
  -    Text := 'Files';
  -  end;
  -
  -  tvProject := TfpgTreeView.Create(tsProject);
  -  with tvProject do
  -  begin
  -    Name := 'tvProject';
  -    SetPosition(1, 1, 132, 107);
  -    Anchors := [anLeft,anRight,anTop,anBottom];
  -    FontDesc := '#Label1';
  -    Hint := '';
  -    TabOrder := 1;
  -    OnDoubleClick := @tvProjectDoubleClick;
  -  end;
  -
  -  grdFiles := TfpgFileGrid.Create(tsFiles);
  -  with grdFiles do
  -  begin
  -    Name := 'grdFiles';
  -    SetPosition(1, 1, 131, 106);
  -    Anchors := [anLeft,anRight,anTop,anBottom];
  -  end;
  -
  -  grdMessages := TfpgStringGrid.Create(tsMessages);
  -  with grdMessages do
  -  begin
  -    Name := 'grdMessages';
  -    SetPosition(0, 4, 188, 73);
  -    Anchors := [anLeft,anRight,anTop,anBottom];
  -    AddColumn('New', 800, taLeftJustify);
  -    FontDesc := '#Grid';
  -    HeaderFontDesc := '#GridHeader';
  -    Hint := '';
  -    RowCount := 0;
  -    RowSelect := True;
  -    ShowHeader := False;
  -    TabOrder := 1;
  -  end;
  -
  -  memScribble := TfpgMemo.Create(tsScribble);
  -  with memScribble do
  -  begin
  -    Name := 'memScribble';
  -    SetPosition(0, 4, 257, 52);
  -    Anchors := [anLeft,anRight,anTop,anBottom];
  -    Hint := '';
  -    Lines.Add('Make notes, use it as a clipboard');
  -    Lines.Add('or type whatever you want...');
  -    FontDesc := '#Edit2';
  -    TabOrder := 1;
  -  end;
  -
  -  btnTest := TfpgButton.Create(Bevel1);
  -  with btnTest do
  -  begin
  -    Name := 'btnTest';
  -    SetPosition(168, 2, 80, 24);
  -    Text := 'test';
  -    FontDesc := '#Label1';
  -    Hint := '';
  -    ImageName := '';
  -    TabOrder := 5;
  -    OnClick := @miTest;
     end;
   
     {@VFD_BODY_END: MainForm}
  
positive.code:   end;
  
  begin
    edt := TfpgTextEdit(Sender);
    AllowSelfDraw := False;
    ACanvas.TextColor := clBlack;
  
negative.code:     procedure   miProjectNewFromTemplate(Sender: TObject);
      procedure   miProjectOptions(Sender: TObject);
      procedure   miProjectOpen(Sender: TObject);
      procedure   miRecentProjectsClick(Sender: TObject; const FileName: String);
      procedure   miProjectSave(Sender: TObject);
      procedure   miProjectSaveAs(Sender: TObject);
      procedure   miProjectAddUnitToProject(Sender: TObject);
  