summaryrefslogtreecommitdiff
path: root/extras
diff options
context:
space:
mode:
Diffstat (limited to 'extras')
-rw-r--r--extras/contributed/nicegrid/main1.pas7
-rw-r--r--extras/contributed/nicegrid/main2.pas6
-rw-r--r--extras/contributed/nicegrid/main3.pas10
-rw-r--r--extras/contributed/nicegrid/nicegrid1.lpi72
-rw-r--r--extras/contributed/nicegrid/nicegrid1.lpr19
-rw-r--r--extras/contributed/nicegrid/nicegrid2.lpi72
-rw-r--r--extras/contributed/nicegrid/nicegrid2.lpr19
-rw-r--r--extras/contributed/nicegrid/nicegrid3.lpi73
-rw-r--r--extras/contributed/nicegrid/nicegrid3.lpr19
9 files changed, 269 insertions, 28 deletions
diff --git a/extras/contributed/nicegrid/main1.pas b/extras/contributed/nicegrid/main1.pas
index b9a37b4a..67a39621 100644
--- a/extras/contributed/nicegrid/main1.pas
+++ b/extras/contributed/nicegrid/main1.pas
@@ -5,8 +5,8 @@ unit main1;
interface
uses
- SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_menu,fpg_nicegrid,fpg_button,
- fpg_checkbox,fpg_label;
+ SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_menu,
+ fpg_nicegrid, fpg_button, fpg_checkbox, fpg_label;
type
@@ -45,7 +45,6 @@ type
procedure AfterCreate; override;
end;
- var frmMain: TfrmMain;
implementation
@@ -55,7 +54,7 @@ var x: integer;
begin
Name := 'frmMain';
SetPosition(252, 121, 638, 575);
- WindowTitle := 'frmMain';
+ WindowTitle := 'NiceGrid - Demo 1';
Hint := '';
FFileSubMenu := TfpgPopupMenu.Create(self);
with FFileSubMenu do
diff --git a/extras/contributed/nicegrid/main2.pas b/extras/contributed/nicegrid/main2.pas
index 877249a3..11696d0d 100644
--- a/extras/contributed/nicegrid/main2.pas
+++ b/extras/contributed/nicegrid/main2.pas
@@ -11,17 +11,15 @@ type
TfrmMain = class(TfpgForm)
private
Grid1: TfpgNiceGrid;
- procedure Grid1DrawCell(Sender: TObject; ACanvas: TfpgCanvas;
- X,Y: Integer; Rc: TfpgRect; var Handled: Boolean);
+ procedure Grid1DrawCell(Sender: TObject; ACanvas: TfpgCanvas; X, Y: Integer; Rc: TfpgRect; var Handled: Boolean);
public
- { Public declarations }
procedure AfterCreate; override;
end;
-var frmMain: TfrmMain;
implementation
+
procedure TfrmMain.AfterCreate;
var
x: Integer;
diff --git a/extras/contributed/nicegrid/main3.pas b/extras/contributed/nicegrid/main3.pas
index 7ad9c24e..84853b42 100644
--- a/extras/contributed/nicegrid/main3.pas
+++ b/extras/contributed/nicegrid/main3.pas
@@ -1,25 +1,25 @@
unit main3;
+
{$mode objfpc}{$H+}
interface
uses
- SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_splitter, fpg_nicegrid;
+ 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;
- private
- { Private declarations }
public
- { Public declarations }
procedure AfterCreate; override;
end;
-var frmMain: TfrmMain;
+
implementation
diff --git a/extras/contributed/nicegrid/nicegrid1.lpi b/extras/contributed/nicegrid/nicegrid1.lpi
new file mode 100644
index 00000000..d135cef7
--- /dev/null
+++ b/extras/contributed/nicegrid/nicegrid1.lpi
@@ -0,0 +1,72 @@
+<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <Version Value="9"/>
+ <General>
+ <Flags>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ <MainUnitHasTitleStatement Value="False"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <Title Value="nicegrid1"/>
+ <UseAppBundle Value="False"/>
+ <ResourceType Value="res"/>
+ </General>
+ <i18n>
+ <EnableI18N LFM="False"/>
+ </i18n>
+ <VersionInfo>
+ <StringTable ProductVersion=""/>
+ </VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="default" Default="True"/>
+ </BuildModes>
+ <PublishOptions>
+ <Version Value="2"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="/usr/local/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <RequiredPackages Count="1">
+ <Item1>
+ <PackageName Value="fpgui_toolkit"/>
+ </Item1>
+ </RequiredPackages>
+ <Units Count="2">
+ <Unit0>
+ <Filename Value="nicegrid1.lpr"/>
+ <IsPartOfProject Value="True"/>
+ </Unit0>
+ <Unit1>
+ <Filename Value="main1.pas"/>
+ <IsPartOfProject Value="True"/>
+ <UnitName Value="main1"/>
+ </Unit1>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="nicegrid1"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="."/>
+ <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ <Parsing>
+ <SyntaxOptions>
+ <AllowLabel Value="False"/>
+ </SyntaxOptions>
+ </Parsing>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+</CONFIG>
diff --git a/extras/contributed/nicegrid/nicegrid1.lpr b/extras/contributed/nicegrid/nicegrid1.lpr
index 73966951..c63e4942 100644
--- a/extras/contributed/nicegrid/nicegrid1.lpr
+++ b/extras/contributed/nicegrid/nicegrid1.lpr
@@ -7,17 +7,26 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
- Classes, fpg_main, main1;
+ Classes, SysUtils,
+ fpg_base, fpg_main, fpg_form,
+ main1;
+
procedure MainProc;
+var
+ frm: TfrmMain;
begin
fpgApplication.Initialize;
- frmMain := TfrmMain.Create(nil);
- frmMain.Show;
- fpgApplication.Run;
- frmMain.Free;
+ frm := TfrmMain.Create(nil);
+ try
+ frm.Show;
+ fpgApplication.Run;
+ finally
+ frm.Free;
+ end;
end;
begin
MainProc;
end.
+
diff --git a/extras/contributed/nicegrid/nicegrid2.lpi b/extras/contributed/nicegrid/nicegrid2.lpi
new file mode 100644
index 00000000..71538a5e
--- /dev/null
+++ b/extras/contributed/nicegrid/nicegrid2.lpi
@@ -0,0 +1,72 @@
+<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <Version Value="9"/>
+ <General>
+ <Flags>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ <MainUnitHasTitleStatement Value="False"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <Title Value="nicegrid2"/>
+ <UseAppBundle Value="False"/>
+ <ResourceType Value="res"/>
+ </General>
+ <i18n>
+ <EnableI18N LFM="False"/>
+ </i18n>
+ <VersionInfo>
+ <StringTable ProductVersion=""/>
+ </VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="default" Default="True"/>
+ </BuildModes>
+ <PublishOptions>
+ <Version Value="2"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="/usr/local/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <RequiredPackages Count="1">
+ <Item1>
+ <PackageName Value="fpgui_toolkit"/>
+ </Item1>
+ </RequiredPackages>
+ <Units Count="2">
+ <Unit0>
+ <Filename Value="nicegrid2.lpr"/>
+ <IsPartOfProject Value="True"/>
+ </Unit0>
+ <Unit1>
+ <Filename Value="main2.pas"/>
+ <IsPartOfProject Value="True"/>
+ <UnitName Value="main2"/>
+ </Unit1>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="nicegrid2"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="."/>
+ <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ <Parsing>
+ <SyntaxOptions>
+ <AllowLabel Value="False"/>
+ </SyntaxOptions>
+ </Parsing>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+</CONFIG>
diff --git a/extras/contributed/nicegrid/nicegrid2.lpr b/extras/contributed/nicegrid/nicegrid2.lpr
index b9b1a5cc..db26713f 100644
--- a/extras/contributed/nicegrid/nicegrid2.lpr
+++ b/extras/contributed/nicegrid/nicegrid2.lpr
@@ -7,17 +7,26 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
- Classes, fpg_main, main2;
+ Classes, SysUtils,
+ fpg_base, fpg_main, fpg_form,
+ main2;
+
procedure MainProc;
+var
+ frm: TfrmMain;
begin
fpgApplication.Initialize;
- frmMain := TfrmMain.Create(nil);
- frmMain.Show;
- fpgApplication.Run;
- frmMain.Free;
+ frm := TfrmMain.Create(nil);
+ try
+ frm.Show;
+ fpgApplication.Run;
+ finally
+ frm.Free;
+ end;
end;
begin
MainProc;
end.
+
diff --git a/extras/contributed/nicegrid/nicegrid3.lpi b/extras/contributed/nicegrid/nicegrid3.lpi
new file mode 100644
index 00000000..8efb6f56
--- /dev/null
+++ b/extras/contributed/nicegrid/nicegrid3.lpi
@@ -0,0 +1,73 @@
+<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <Version Value="9"/>
+ <General>
+ <Flags>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ <MainUnitHasTitleStatement Value="False"/>
+ <UseDefaultCompilerOptions Value="True"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <Title Value="nicegrid3"/>
+ <UseAppBundle Value="False"/>
+ <ResourceType Value="res"/>
+ </General>
+ <i18n>
+ <EnableI18N LFM="False"/>
+ </i18n>
+ <VersionInfo>
+ <StringTable ProductVersion=""/>
+ </VersionInfo>
+ <BuildModes Count="1">
+ <Item1 Name="default" Default="True"/>
+ </BuildModes>
+ <PublishOptions>
+ <Version Value="2"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="/usr/local/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <RequiredPackages Count="1">
+ <Item1>
+ <PackageName Value="fpgui_toolkit"/>
+ </Item1>
+ </RequiredPackages>
+ <Units Count="2">
+ <Unit0>
+ <Filename Value="nicegrid3.lpr"/>
+ <IsPartOfProject Value="True"/>
+ </Unit0>
+ <Unit1>
+ <Filename Value="main3.pas"/>
+ <IsPartOfProject Value="True"/>
+ <UnitName Value="main3"/>
+ </Unit1>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="11"/>
+ <Target>
+ <Filename Value="nicegrid3"/>
+ </Target>
+ <SearchPaths>
+ <IncludeFiles Value="$(ProjOutDir)"/>
+ <OtherUnitFiles Value="."/>
+ <UnitOutputDirectory Value="units/$(TargetCPU)-$(TargetOS)"/>
+ </SearchPaths>
+ <Parsing>
+ <SyntaxOptions>
+ <AllowLabel Value="False"/>
+ </SyntaxOptions>
+ </Parsing>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+</CONFIG>
diff --git a/extras/contributed/nicegrid/nicegrid3.lpr b/extras/contributed/nicegrid/nicegrid3.lpr
index 43266b97..d54eb521 100644
--- a/extras/contributed/nicegrid/nicegrid3.lpr
+++ b/extras/contributed/nicegrid/nicegrid3.lpr
@@ -7,17 +7,26 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
- Classes, fpg_main, main3;
+ Classes, SysUtils,
+ fpg_base, fpg_main,
+ main3;
+
procedure MainProc;
+var
+ frm: TfrmMain;
begin
fpgApplication.Initialize;
- frmMain := TfrmMain.Create(nil);
- frmMain.Show;
- fpgApplication.Run;
- frmMain.Free;
+ frm := TfrmMain.Create(nil);
+ try
+ frm.Show;
+ fpgApplication.Run;
+ finally
+ frm.Free;
+ end;
end;
begin
MainProc;
end.
+