1 files changed, 204 insertions, 0 deletions
diff --git a/extras/contributed/nicegrid/main3.pas b/extras/contributed/nicegrid/main3.pas
new file mode 100644
index 00000000..84853b42
--- /dev/null
+++ b/extras/contributed/nicegrid/main3.pas
@@ -0,0 +1,204 @@
+unit main3;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes,  fpg_base, fpg_main, fpg_form, fpg_panel, fpg_splitter,
+  fpg_nicegrid;
+
+type
+  TfrmMain = class(TfpgForm)
+  private
+    Panel1: TfpgPanel;
+    Splitter1: TfpgSplitter;
+    Grid1: TfpgNiceGrid;
+    GridSync1: TfpgNiceGridSync;
+  public
+    procedure AfterCreate; override;
+  end;
+
+
+
+implementation
+
+procedure TfrmMain.AfterCreate;
+begin
+  Name := 'frmMain';
+  SetPosition(260, 99, 719, 570);
+  WindowTitle := 'Tabel Budget';
+  Hint := ''; 
+  WindowAttributes := [waSizeable, waScreenCenterPos];
+  
+  Panel1:= TfpgPanel.Create(self);
+  with Panel1 do
+  begin	  
+    Left:= 16;
+    Top:= 16;
+    Width:= 682;
+    Height:= 504;
+    Anchors:= [anLeft, anTop, anRight, anBottom];
+    TabOrder:= 0;
+  end;
+
+  GridSync1:= TfpgNiceGridSync.Create(Panel1);
+  with GridSync1 do
+  begin
+    BeginUpdate;
+    Name := 'GridSync1';
+    Left:= 1;
+    Top:= 1;
+    Width:= 329;
+    Height:= 502;
+    ColCount:= 3;
+    RowCount:= 20;
+    AutoAddRow:= True;
+    GridColor:= clSilver;
+    HeaderLine:= 2;
+    FooterFontColor:= clBlack;
+    FitToWidth:= True;
+
+    with Columns.Items[0]do
+    begin
+      Title:= 'Unit Name';
+      Width:= 135;
+    end;
+    with Columns.Items[1]do
+    begin
+      Title:= 'Unit Cost|Capital';
+      Width:= 80;
+      Color:= 15790335;
+      CanResize:= False;
+    end;
+    with Columns.Items[2]do
+    begin
+      Title:= 'Unit Cost|Non Capital';
+      Width:= 80;
+      Color:= 14671871;
+      CanResize:= False;
+    end;
+    GutterKind:= gkNumber;
+    GutterWidth:= 30;
+    ShowFooter:= False;
+    GutterFont:='Arial-8';
+    GutterFontColor:=clBlack;
+    Align:= alLeft;
+    TabOrder:= 1;
+    EndUpdate;
+  end;
+  
+  Splitter1:= TfpgSplitter.Create(Panel1);
+  with Splitter1 do
+  begin
+    Name:='Splitter1';
+    SetPosition(330,1,8,502);  
+    Align := alLeft;
+  end;
+  
+  Grid1:= TfpgNiceGrid.Create(Panel1);
+  with Grid1 do
+  begin
+    BeginUpdate;
+    Name := 'Grid1';
+    Left:= 338;
+    Top:= 1;
+    Width:= 344;
+    Height:= 502;
+    ColCount:= 12;
+    RowCount:= 20;
+    GridColor:= clSilver;
+    HeaderLine:= 2;
+    HeaderColor := clButtonFace;
+    HeaderLightColor := clHilite1;
+    HeaderDarkColor := clShadow1;
+    FooterFontColor:= clBlack;
+
+    with Columns.Items[0]do
+    begin
+      Title:= '0|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[1]do
+    begin
+      Title:= '0|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    with Columns.Items[2]do
+    begin
+      Title:= '2000|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[3]do
+    begin
+      Title:= '2000|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    with Columns.Items[4]do
+    begin
+      Title:= '2001|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[5]do
+    begin
+      Title:= '2001|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    with Columns.Items[6]do
+    begin
+      Title:= '2002|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[7]do
+    begin
+      Title:= '2002|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    with Columns.Items[8]do
+    begin
+      Title:= '2003|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[9]do
+    begin
+      Title:= '2003|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    with Columns.Items[10]do
+    begin
+      Title:= '2004|Capital';
+      Width:= 80;
+      Color:= 16775924;
+    end;
+    with Columns.Items[11]do
+    begin
+      Title:= '2004|Non Capital';
+      Width:= 80;
+      Color:= 16773601;
+    end;
+    GutterKind:= gkNone;
+    GutterWidth:= 40;
+    Align:= alClient;
+
+    GutterFont:='Arial-8';
+    GutterFontColor:=clBlack;
+    ShowFooter:=True;
+
+    TabOrder:= 0;
+    EndUpdate;
+  end;
+  
+  GridSync1.MasterGrid:= Grid1;
+end;
+
+end.