anchor.diff:    with pnlWindow do
     begin
       Name := 'pnlWindow';
  -    SetPosition(192, 156, 264, 84);
  +    SetPosition(2, 288, 634, 84);
       ActivePageIndex := 0;
  -    Hint := '';
  -    TabOrder := 1;
  +    Align := alBottom;
  +    Hint := '';
  +    TabOrder := 11;
       TabPosition := tpLeft;
  +  end;
  +
  +  tsMessages := TfpgTabSheet.Create(pnlWindow);
  +  with tsMessages do
  +  begin
  +    Name := 'tsMessages';
  +    SetPosition(73, 3, 558, 78);
  +    Text := 'Messages';
  +  end;
  +
  +  grdMessages := TfpgStringGrid.Create(tsMessages);
  +  with grdMessages do
  +  begin
  +    Name := 'grdMessages';
  +    SetPosition(0, 4, 558, 73);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    BackgroundColor := TfpgColor($80000002);
  +    AddColumn('New', 800, taLeftJustify);
  +    FontDesc := '#Grid';
  +    HeaderFontDesc := '#GridHeader';
  +    Hint := '';
  +    RowCount := 0;
  +    RowSelect := True;
  +    ShowHeader := False;
  +    TabOrder := 13;
  +  end;
  +
  +  tsScribble := TfpgTabSheet.Create(pnlWindow);
  +  with tsScribble do
  +  begin
  +    Name := 'tsScribble';
  +    SetPosition(73, 3, 188, 78);
  +    Text := 'Scribble';
  +  end;
  +
  +  memScribble := TfpgMemo.Create(tsScribble);
  +  with memScribble do
  +  begin
  +    Name := 'memScribble';
  +    SetPosition(0, 4, 187, 73);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    FontDesc := '#Edit2';
  +    Hint := '';
  +    Lines.Add('Make notes, use it as a clipboard');
  +    Lines.Add('or type whatever you want...');
  +    TabOrder := 15;
  +  end;
  +
  +  tsTerminal := TfpgTabSheet.Create(pnlWindow);
  +  with tsTerminal do
  +  begin
  +    Name := 'tsTerminal';
  +    SetPosition(73, 3, 188, 78);
  +    Text := 'Terminal';
     end;
   
     Splitter1 := TfpgSplitter.Create(pnlClientArea);
     with Splitter1 do
     begin
       Name := 'Splitter1';
  -    SetPosition(152, 140, 352, 8);
  +    SetPosition(2, 281, 634, 7);
  +    Align := alBottom;
     end;
   
     pnlTool := TfpgPageControl.Create(pnlClientArea);
     with pnlTool do
     begin
       Name := 'pnlTool';
  -    SetPosition(12, 4, 140, 136);
  +    SetPosition(2, 2, 140, 279);
       ActivePageIndex := 0;
  -    Hint := '';
  -    TabOrder := 3;
  +    Align := alLeft;
  +    Hint := '';
  +    TabOrder := 18;
  +  end;
  +
  +  tsProject := TfpgTabSheet.Create(pnlTool);
  +  with tsProject do
  +  begin
  +    Name := 'tsProject';
  +    SetPosition(3, 24, 134, 252);
  +    Text := 'Project';
  +  end;
  +
  +  tvProject := TfpgTreeView.Create(tsProject);
  +  with tvProject do
  +  begin
  +    Name := 'tvProject';
  +    SetPosition(1, 1, 132, 250);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    TabOrder := 20;
  +    OnDoubleClick := @tvProjectDoubleClick;
  +  end;
  +
  +  tsFiles := TfpgTabSheet.Create(pnlTool);
  +  with tsFiles do
  +  begin
  +    Name := 'tsFiles';
  +    SetPosition(3, 24, 134, 193);
  +    Text := 'Files';
  +  end;
  +
  +  grdFiles := TfpgFileGrid.Create(tsFiles);
  +  with grdFiles do
  +  begin
  +    Name := 'grdFiles';
  +    SetPosition(1, 1, 131, 190);
  +    Anchors := [anLeft,anRight,anTop,anBottom];
  +    Options := Options + [go_SmoothScroll];
     end;
   
     Splitter2 := TfpgSplitter.Create(pnlClientArea);
     with Splitter2 do
     begin
       Name := 'Splitter2';
  -    SetPosition(160, 8, 8, 116);
  +    SetPosition(142, 2, 8, 279);
  +    Align := alLeft;
  +  end;
  +
  +  grdOpenFiles := TfpgStringGrid.Create(pnlClientArea);
  +  with grdOpenFiles do
  +  begin
  +    Name := 'grdOpenFiles';
  +    SetPosition(516, 2, 120, 279);
  +    Align := alRight;
  +    BackgroundColor := TfpgColor($80000002);
  +    AddColumn('File', 100, taLeftJustify);
  +    FontDesc := '#Grid';
  +    HeaderFontDesc := '#GridHeader';
  +    Hint := '';
  +    RowCount := 0;
  +    RowSelect := True;
  +    ShowHeader := False;
  +    TabOrder := 24;
  +  end;
  +
  +  Splitter3 := TfpgSplitter.Create(pnlClientArea);
  +  with Splitter3 do
  +  begin
  +    Name := 'Splitter3';
  +    SetPosition(508, 2, 8, 279);
  +    Align := alRight;
     end;
   
     pcEditor := TfpgPageControl.Create(pnlClientArea);
     with pcEditor do
     begin
       Name := 'pcEditor';
  -    SetPosition(208, 8, 324, 120);
  +    SetPosition(150, 2, 358, 279);
       ActivePageIndex := 0;
  -    Hint := '';
  -    TabOrder := 5;
  +    Align := alClient;
  +    Hint := '';
  +    TabOrder := 18;
       TabPosition := tpRight;
  -    Options := [to_PMenuClose];
  -    OnClosingTabSheet := @TabSheetClosing;
  -  end;
  -
  -  tsEditor1 := TfpgTabSheet.Create(pcEditor);
  -  with tsEditor1 do
  -  begin
  -    Name := 'tsEditor1';
  -    SetPosition(3, 3, 267, 114);
  -    Text := 'Editor1';
  -  end;
  -
  -  Memo1 := TfpgMemo.Create(tsEditor1);
  -  with Memo1 do
  -  begin
  -    Name := 'Memo1';
  -    SetPosition(64, 16, 120, 52);
  -    Hint := '';
  -    FontDesc := '#Edit2';
  -    TabOrder := 1;
  +  end;
  +
  +  tseditor := TfpgTabSheet.Create(pcEditor);
  +  with tseditor do
  +  begin
  +    Name := 'tseditor';
  +    SetPosition(3, 3, 282, 273);
  +    Text := 'Tabsheet1';
  +  end;
  +
  +  TextEditor := TfpgTextEdit.Create(tseditor);
  +  with TextEditor do
  +  begin
  +    Name := 'TextEditor';
  +    SetPosition(0, 0, 130, 200);
       Align := alClient;
  -  end;
  -
  -  lblStatus := TfpgLabel.Create(pnlStatusBar);
  -  with lblStatus do
  -  begin
  -    Name := 'lblStatus';
  -    SetPosition(4, 2, 636, 16);
  -    Anchors := [anLeft,anRight,anTop];
  -    FontDesc := '#Label1';
  -    Hint := '';
  -    Text := '';
     end;
   
     mnuFile := TfpgPopupMenu.Create(self);
  
positive.code:   with mainmenu do
    begin
      Name := 'mainmenu';
      SetPosition(0, 0, 648, 24);
      Anchors := [anLeft,anRight,anTop];
    end;
  
    Bevel1 := TfpgBevel.Create(pnlMenu);
    with Bevel1 do
    begin
      Name := 'Bevel1';
      SetPosition(0, 24, 648, 28);
      Anchors := [anLeft,anRight,anTop];
      Hint := '';
      Shape := bsSpacer;
    end;
  
    btnQuit := TfpgButton.Create(Bevel1);
    with btnQuit do
    begin
      Name := 'btnQuit';
      SetPosition(4, 2, 24, 24);
      Text := '';
      Embedded := True;
      FontDesc := '#Label1';
      Hint := '';
      ImageMargin := 0;
      ImageName := 'stdimg.quit';
      TabOrder := 1;
      OnClick  := @btnQuitClicked;
    end;
  
    btnOpen := TfpgButton.Create(Bevel1);
    with btnOpen do
    begin
      Name := 'btnOpen';
      SetPosition(28, 2, 24, 24);
      Text := '';
      Embedded := True;
      FontDesc := '#Label1';
      Hint := '';
      ImageMargin := 0;
      ImageName := 'stdimg.open';
      TabOrder := 2;
      OnClick := @btnOpenFileClicked;
    end;
  
    btnSave := TfpgButton.Create(Bevel1);
    with btnSave do
    begin
      Name := 'btnSave';
      SetPosition(56, 2, 24, 24);
      Text := '';
      Embedded := True;
      FontDesc := '#Label1';
      Hint := '';
      ImageMargin := 0;
      ImageName := 'stdimg.save';
      TabOrder := 3;
      OnClick := @miFileSave;
    end;
  
    btnSaveAll := TfpgButton.Create(Bevel1);
    with btnSaveAll do
    begin
      Name := 'btnSaveAll';
      SetPosition(80, 2, 24, 24);
      Text := '';
      Embedded := True;
      FontDesc := '#Label1';
      Hint := '';
      ImageMargin := 0;
      ImageName := 'stdimg.saveall';
      TabOrder := 4;
      Enabled := False;
    end;
  
    pnlStatusBar := TfpgBevel.Create(self);
    with pnlStatusBar do
    begin
      Name := 'pnlStatusBar';
      SetPosition(0, 338, 648, 20);
      Anchors := [anLeft,anRight,anBottom];
      Hint := '';
      Style := bsLowered;
    end;
  
    pnlClientArea := TfpgBevel.Create(self);
    with pnlClientArea do
    begin
      Name := 'pnlClientArea';
      SetPosition(0, 57, 648, 248);
      Anchors := [anLeft,anRight,anTop,anBottom];
      Hint := '';
      Shape := bsSpacer;
    end;
  
negative.code:     SetPosition(476, 98, 172, 20);
      AddMenuItem('Find...', '', nil).Enabled := False;
      AddMenuItem('Find in Files...', '', nil).Enabled := False;
      AddMenuItem('Procedure List...', '', @miSearchProcedureList);
    end;
  
    mnuView := TfpgPopupMenu.Create(self);
  