1 files changed, 170 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_debug.pas b/examples/apps/ide/src/frm_debug.pas
new file mode 100644
index 00000000..267871c2
--- /dev/null
+++ b/examples/apps/ide/src/frm_debug.pas
@@ -0,0 +1,170 @@
+unit frm_debug;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_tab, fpg_grid;
+
+type
+
+  TDebugForm = class(TfpgForm)
+  private
+    {@VFD_HEAD_BEGIN: DebugForm}
+    PageControl1: TfpgPageControl;
+    TabSheet1: TfpgTabSheet;
+    TabSheet2: TfpgTabSheet;
+    TabSheet3: TfpgTabSheet;
+    TabSheet4: TfpgTabSheet;
+    TabSheet5: TfpgTabSheet;
+    TabSheet6: TfpgTabSheet;
+    TabSheet7: TfpgTabSheet;
+    Grid1: TfpgStringGrid;
+    Grid2: TfpgStringGrid;
+    Grid3: TfpgStringGrid;
+    {@VFD_HEAD_END: DebugForm}
+  public
+    procedure AfterCreate; override;
+  end;
+
+{@VFD_NEWFORM_DECL}
+
+var
+  DebugForm: TDebugForm;
+
+implementation
+
+{@VFD_NEWFORM_IMPL}
+
+procedure TDebugForm.AfterCreate;
+begin
+  {%region 'Auto-generated GUI code' -fold}
+  {@VFD_BODY_BEGIN: DebugForm}
+  Name := 'DebugForm';
+  SetPosition(690, 193, 512, 247);
+  WindowTitle := 'Debug Window';
+  Hint := '';
+
+  PageControl1 := TfpgPageControl.Create(self);
+  with PageControl1 do
+  begin
+    Name := 'PageControl1';
+    SetPosition(4, 4, 506, 240);
+    ActivePageIndex := 0;
+    Hint := '';
+    TabOrder := 0;
+  end;
+
+  TabSheet1 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet1 do
+  begin
+    Name := 'TabSheet1';
+    SetPosition(3, 24, 500, 213);
+    Text := 'Watches';
+  end;
+
+  TabSheet2 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet2 do
+  begin
+    Name := 'TabSheet2';
+    SetPosition(3, 24, 500, 213);
+    Text := 'BreakPoints';
+  end;
+
+  TabSheet3 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet3 do
+  begin
+    Name := 'TabSheet3';
+    SetPosition(3, 24, 500, 213);
+    Text := 'Local Vars';
+  end;
+
+  TabSheet4 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet4 do
+  begin
+    Name := 'TabSheet4';
+    SetPosition(3, 24, 500, 213);
+    Text := 'Call Stack';
+  end;
+
+  TabSheet5 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet5 do
+  begin
+    Name := 'TabSheet5';
+    SetPosition(3, 24, 500, 213);
+    Text := 'Registers';
+  end;
+
+  TabSheet6 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet6 do
+  begin
+    Name := 'TabSheet6';
+    SetPosition(3, 24, 500, 213);
+    Text := 'Asm';
+  end;
+
+  TabSheet7 := TfpgTabSheet.Create(PageControl1);
+  with TabSheet7 do
+  begin
+    Name := 'TabSheet7';
+    SetPosition(3, 24, 500, 213);
+    Text := 'GDB output';
+  end;
+
+  Grid1 := TfpgStringGrid.Create(TabSheet1);
+  with Grid1 do
+  begin
+    Name := 'Grid1';
+    SetPosition(0, 4, 496, 204);
+    AddColumn('Expression', 100, taLeftJustify);
+    AddColumn('Value', 350, taLeftJustify);
+    FontDesc := '#Grid';
+    HeaderFontDesc := '#GridHeader';
+    Hint := '';
+    RowCount := 5;
+    RowSelect := False;
+    TabOrder := 0;
+  end;
+
+  Grid2 := TfpgStringGrid.Create(TabSheet2);
+  with Grid2 do
+  begin
+    Name := 'Grid2';
+    SetPosition(0, 4, 496, 204);
+    AddColumn('State', 50, taLeftJustify);
+    AddColumn('Filename/Addres', 120, taLeftJustify);
+    AddColumn('Line/Length', 85, taLeftJustify);
+    AddColumn('Condition', 70, taLeftJustify);
+    AddColumn('Action', 50, taLeftJustify);
+    AddColumn('Count', 50, taLeftJustify);
+    AddColumn('Group', 80, taLeftJustify);
+    FontDesc := '#Grid';
+    HeaderFontDesc := '#GridHeader';
+    Hint := '';
+    RowCount := 5;
+    RowSelect := False;
+    TabOrder := 0;
+  end;
+
+  Grid3 := TfpgStringGrid.Create(TabSheet3);
+  with Grid3 do
+  begin
+    Name := 'Grid3';
+    SetPosition(0, 4, 496, 204);
+    AddColumn('Name', 150, taLeftJustify);
+    AddColumn('Value', 250, taLeftJustify);
+    FontDesc := '#Grid';
+    HeaderFontDesc := '#GridHeader';
+    Hint := '';
+    RowCount := 5;
+    RowSelect := False;
+    TabOrder := 0;
+  end;
+
+  {@VFD_BODY_END: DebugForm}
+  {%endregion}
+end;
+
+
+end.