Skip to content

Commit

Permalink
Configuration samples lazarus #76
Browse files Browse the repository at this point in the history
  • Loading branch information
viniciussanchez committed Dec 28, 2020
1 parent fef11fb commit 6cedd6a
Show file tree
Hide file tree
Showing 9 changed files with 715 additions and 17 deletions.
5 changes: 3 additions & 2 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -68,6 +68,7 @@ __recovery/
# Boss dependency manager vendor folder https://github.com/HashLoad/boss
modules/

# Backup folder Lazarus IDE
# Lazarus
backup/
lib/
lib/
*.lps
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,8 @@ object FrmSamples: TFrmSamples
Align = alTop
BevelOuter = bvNone
TabOrder = 1
ExplicitLeft = 8
ExplicitTop = 22
object Label1: TLabel
Left = 466
Top = 8
Expand Down Expand Up @@ -179,8 +181,6 @@ object FrmSamples: TFrmSamples
Align = alClient
BevelOuter = bvNone
TabOrder = 2
ExplicitTop = 171
ExplicitHeight = 390
object Panel4: TPanel
AlignWithMargins = True
Left = 0
Expand All @@ -194,7 +194,6 @@ object FrmSamples: TFrmSamples
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
ExplicitHeight = 390
object Panel5: TPanel
Left = 0
Top = 0
Expand Down Expand Up @@ -223,7 +222,8 @@ object FrmSamples: TFrmSamples
ItemHeight = 13
TabOrder = 1
OnClick = chbFieldsClick
ExplicitHeight = 365
ExplicitLeft = -3
ExplicitTop = 31
end
end
object Panel6: TPanel
Expand All @@ -239,7 +239,6 @@ object FrmSamples: TFrmSamples
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
ExplicitHeight = 390
object Panel7: TPanel
Left = 0
Top = 0
Expand Down Expand Up @@ -316,7 +315,6 @@ object FrmSamples: TFrmSamples
Caption = 'ToJSONArray'
TabOrder = 2
OnClick = Button1Click
ExplicitTop = 355
end
object DBGrid2: TDBGrid
Left = 0
Expand Down Expand Up @@ -367,7 +365,6 @@ object FrmSamples: TFrmSamples
Align = alClient
BevelOuter = bvNone
TabOrder = 2
ExplicitHeight = 390
object Panel10: TPanel
Left = 0
Top = 0
Expand Down Expand Up @@ -402,7 +399,6 @@ object FrmSamples: TFrmSamples
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
ExplicitHeight = 365
end
end
end
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -88,9 +88,7 @@ procedure TFrmSamples.Button1Click(Sender: TObject);
begin
LJSONArray := mtUsers.ToJSONArray;
try

memoJSON.Lines.Text := {$IFDEF CompilerVersion > 32} LJSONArray.Format {$ELSE} LJSONArray.ToJSON {$ENDIF};

memoJSON.Lines.Text := {$IFDEF CompilerVersion > 32}LJSONArray.Format{$ELSE}LJSONArray.ToJSON{$ENDIF};
finally
LJSONArray.Free;
end;
Expand Down
5 changes: 1 addition & 4 deletions samples/lazarus/basic/basic.lpr
Original file line number Diff line number Diff line change
Expand Up @@ -7,10 +7,7 @@
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, memdslaz, DataSet.Serialize.Samples.Basic,
DataSet.Serialize.UpdatedStatus, DataSet.Serialize.Language,
DataSet.Serialize.Import, DataSet.Serialize.Export, DataSet.Serialize.Config,
DataSet.Serialize.Consts, DataSet.Serialize.Utils, DataSet.Serialize
Forms, memdslaz, DataSet.Serialize.Samples.Basic
{ you can add units after this };

{$R *.res}
Expand Down
Binary file added samples/lazarus/configuration/configuration.ico
Binary file not shown.
87 changes: 87 additions & 0 deletions samples/lazarus/configuration/configuration.lpi
Original file line number Diff line number Diff line change
@@ -0,0 +1,87 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="configuration"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="MemDSLaz"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="configuration.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="src\dataset.serialize.samples.configuration.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="FrmSamples"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="DataSet.Serialize.Samples.Configuration"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="configuration"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="src;..\..\..\src"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
22 changes: 22 additions & 0 deletions samples/lazarus/configuration/configuration.lpr
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
program configuration;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, memdslaz, DataSet.Serialize.Samples.Configuration
{ you can add units after this };

{$R *.res}

begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TFrmSamples, FrmSamples);
Application.Run;
end.

Loading

0 comments on commit 6cedd6a

Please sign in to comment.