diff --git a/components/lazbarcodes/demo/LazBarcodeDemo.lpi b/components/lazbarcodes/examples/demo/LazBarcodeDemo.lpi similarity index 100% rename from components/lazbarcodes/demo/LazBarcodeDemo.lpi rename to components/lazbarcodes/examples/demo/LazBarcodeDemo.lpi diff --git a/components/lazbarcodes/demo/LazBarcodeDemo.lpr b/components/lazbarcodes/examples/demo/LazBarcodeDemo.lpr similarity index 100% rename from components/lazbarcodes/demo/LazBarcodeDemo.lpr rename to components/lazbarcodes/examples/demo/LazBarcodeDemo.lpr diff --git a/components/lazbarcodes/demo/main.lfm b/components/lazbarcodes/examples/demo/main.lfm similarity index 100% rename from components/lazbarcodes/demo/main.lfm rename to components/lazbarcodes/examples/demo/main.lfm diff --git a/components/lazbarcodes/demo/main.pas b/components/lazbarcodes/examples/demo/main.pas similarity index 100% rename from components/lazbarcodes/demo/main.pas rename to components/lazbarcodes/examples/demo/main.pas diff --git a/components/lazbarcodes/examples/qrclock/main.lfm b/components/lazbarcodes/examples/qrclock/main.lfm new file mode 100644 index 000000000..dd10f4d58 --- /dev/null +++ b/components/lazbarcodes/examples/qrclock/main.lfm @@ -0,0 +1,29 @@ +object MainForm: TMainForm + Left = 327 + Height = 260 + Top = 130 + Width = 260 + AutoSize = True + BorderStyle = bsDialog + Caption = 'QRClock' + ClientHeight = 260 + ClientWidth = 260 + OnCreate = FormCreate + object BarcodeQR: TBarcodeQR + Left = 0 + Height = 260 + Top = 0 + Width = 260 + ParentColor = False + Text = 'TBarcodeQR' + Scale = 12 + AutoSize = True + RecommendedSymbolSize = False + end + object Timer: TTimer + Interval = 250 + OnTimer = TimerTimer + Left = 106 + Top = 101 + end +end diff --git a/components/lazbarcodes/examples/qrclock/main.pas b/components/lazbarcodes/examples/qrclock/main.pas new file mode 100644 index 000000000..ec703e402 --- /dev/null +++ b/components/lazbarcodes/examples/qrclock/main.pas @@ -0,0 +1,59 @@ +unit main; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ubarcodes; + +type + + { TMainForm } + + TMainForm = class(TForm) + BarcodeQR: TBarcodeQR; + Timer: TTimer; + procedure FormCreate(Sender: TObject); + procedure TimerTimer(Sender: TObject); + private + + public + + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.lfm} + +{ TMainForm } + +procedure TMainForm.TimerTimer(Sender: TObject); +var + dt: TDateTime; + sd, st: String; +begin + dt := Now(); + sd := FormatDateTime('dddddd', dt); + st := FormatDateTime('hh:nn:ss', dt); + Caption := 'QRClock: ' + sd + ' - ' + st; + BarcodeQR.Text := sd + LineEnding + st; +end; + +procedure TMainForm.FormCreate(Sender: TObject); +var + w: Integer = 0; + h: Integer = 0; +begin + // Avoid switching to final form size while form is already visible + TimerTimer(nil); + BarcodeQR.GetPreferredSize(w, h); + Width := w; + Height := h; +end; + +end. + diff --git a/components/lazbarcodes/examples/qrclock/qrclock.ico b/components/lazbarcodes/examples/qrclock/qrclock.ico new file mode 100644 index 000000000..10c5fc1a3 Binary files /dev/null and b/components/lazbarcodes/examples/qrclock/qrclock.ico differ diff --git a/components/lazbarcodes/examples/qrclock/qrclock.lpi b/components/lazbarcodes/examples/qrclock/qrclock.lpi new file mode 100644 index 000000000..44db70f52 --- /dev/null +++ b/components/lazbarcodes/examples/qrclock/qrclock.lpi @@ -0,0 +1,85 @@ + + + + + + + + + + + + <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"/> + </RunParams> + <RequiredPackages Count="2"> + <Item1> + <PackageName Value="lazbarcodes"/> + </Item1> + <Item2> + <PackageName Value="LCL"/> + </Item2> + </RequiredPackages> + <Units Count="2"> + <Unit0> + <Filename Value="qrclock.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + <Unit1> + <Filename Value="main.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="MainForm"/> + <ResourceBaseClass Value="Form"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <Target> + <Filename Value="qrclock"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf3"/> + </Debugging> + <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> diff --git a/components/lazbarcodes/examples/qrclock/qrclock.lpr b/components/lazbarcodes/examples/qrclock/qrclock.lpr new file mode 100644 index 000000000..9ee5ea76d --- /dev/null +++ b/components/lazbarcodes/examples/qrclock/qrclock.lpr @@ -0,0 +1,25 @@ +program qrclock; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX} + cthreads, + {$ENDIF} + {$IFDEF HASAMIGA} + athreads, + {$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, main + { you can add units after this }; + +{$R *.res} + +begin + RequireDerivedFormResource:=True; + Application.Scaled:=True; + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. +