pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Examples updated. Show new calendar component.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2779 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2013-08-29 11:52:06 +00:00
parent a136018e37
commit dfd35e882c
5 changed files with 63 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
components/jujiboutils/examples/example1/main.lfm
View File

@ -1,18 +1,18 @@
object Form1: TForm1 object Form1: TForm1
Left = 576 Left = 379
Height = 332 Height = 340
Top = 272 Top = 214
Width = 366 Width = 411
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 332 ClientHeight = 340
ClientWidth = 366 ClientWidth = 411
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '1.1'
object Label1: TLabel object Label1: TLabel
Left = 13 Left = 13
Height = 18 Height = 17
Top = 16 Top = 16
Width = 150 Width = 149
Caption = 'Testing jujibo db controls' Caption = 'Testing jujibo db controls'
ParentColor = False ParentColor = False
end end
@ -35,9 +35,9 @@ object Form1: TForm1
TabOrder = 4 TabOrder = 4
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 273 Left = 318
Height = 30 Height = 30
Top = 289 Top = 297
Width = 77 Width = 77
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = '&Cerrar' Caption = '&Cerrar'
@ -46,7 +46,7 @@ object Form1: TForm1
TabOrder = 5 TabOrder = 5
end end
object JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit object JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit
Left = 272 Left = 300
Height = 27 Height = 27
Top = 173 Top = 173
Width = 80 Width = 80
@ -59,9 +59,9 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JDBLabeledCurrencyEdit1 EditLabel.AnchorSideRight.Control = JDBLabeledCurrencyEdit1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledCurrencyEdit1 EditLabel.AnchorSideBottom.Control = JDBLabeledCurrencyEdit1
EditLabel.Left = 272 EditLabel.Left = 300
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 152 EditLabel.Top = 153
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Total' EditLabel.Caption = 'Total'
EditLabel.ParentColor = False EditLabel.ParentColor = False
@ -80,8 +80,8 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit1 EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit1
EditLabel.Left = 21 EditLabel.Left = 21
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 153 EditLabel.Top = 154
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Id' EditLabel.Caption = 'Id'
EditLabel.ParentColor = False EditLabel.ParentColor = False
@ -94,20 +94,21 @@ object Form1: TForm1
Width = 80 Width = 80
DataField = 'DATE' DataField = 'DATE'
DataSource = Datasource1 DataSource = Datasource1
ButtonWidth = 23
EditLabel.AnchorSideLeft.Control = JDBLabeledDateEdit1 EditLabel.AnchorSideLeft.Control = JDBLabeledDateEdit1
EditLabel.AnchorSideRight.Control = JDBLabeledDateEdit1 EditLabel.AnchorSideRight.Control = JDBLabeledDateEdit1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledDateEdit1 EditLabel.AnchorSideBottom.Control = JDBLabeledDateEdit1
EditLabel.Left = 106 EditLabel.Left = 106
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 152 EditLabel.Top = 153
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Date' EditLabel.Caption = 'Date'
EditLabel.ParentColor = False EditLabel.ParentColor = False
TabOrder = 1 TabOrder = 1
end end
object JDBLabeledIntegerEdit2: TJDBLabeledIntegerEdit object JDBLabeledIntegerEdit2: TJDBLabeledIntegerEdit
Left = 188 Left = 216
Height = 27 Height = 27
Top = 173 Top = 173
Width = 80 Width = 80
@ -118,9 +119,9 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JDBLabeledIntegerEdit2 EditLabel.AnchorSideRight.Control = JDBLabeledIntegerEdit2
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit2 EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit2
EditLabel.Left = 188 EditLabel.Left = 216
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 152 EditLabel.Top = 153
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Id2' EditLabel.Caption = 'Id2'
EditLabel.ParentColor = False EditLabel.ParentColor = False

10
components/jujiboutils/examples/example1/project1.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -25,7 +25,6 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="4">
@ -52,13 +51,14 @@
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="main"/> <UnitName Value="main"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="project1"/> <Filename Value="project1"/>
</Target> </Target>
@ -67,10 +67,6 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

46
components/jujiboutils/examples/examplenodb/main.lfm
View File

@ -1,17 +1,18 @@
object Form1: TForm1 object Form1: TForm1
Left = 365 Left = 365
Height = 185 Height = 184
Top = 260 Top = 261
Width = 419 Width = 444
Caption = 'Example' Caption = 'Example'
ClientHeight = 185 ClientHeight = 184
ClientWidth = 419 ClientWidth = 444
LCLVersion = '0.9.31' OnCreate = FormCreate
LCLVersion = '1.1'
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 18 Height = 17
Top = 8 Top = 8
Width = 253 Width = 252
Caption = 'Testing non DB-Aware Input Controls' Caption = 'Testing non DB-Aware Input Controls'
Font.Height = 14 Font.Height = 14
Font.Style = [fsBold] Font.Style = [fsBold]
@ -22,10 +23,10 @@ object Form1: TForm1
Left = 24 Left = 24
Height = 82 Height = 82
Top = 40 Top = 40
Width = 375 Width = 400
Caption = 'Labeled controls' Caption = 'Labeled controls'
ClientHeight = 63 ClientHeight = 63
ClientWidth = 371 ClientWidth = 396
TabOrder = 0 TabOrder = 0
object JLabeledIntegerEdit1: TJLabeledIntegerEdit object JLabeledIntegerEdit1: TJLabeledIntegerEdit
Left = 14 Left = 14
@ -39,8 +40,8 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JLabeledIntegerEdit1 EditLabel.AnchorSideBottom.Control = JLabeledIntegerEdit1
EditLabel.Left = 14 EditLabel.Left = 14
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 2 EditLabel.Top = 3
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Integer' EditLabel.Caption = 'Integer'
EditLabel.ParentColor = False EditLabel.ParentColor = False
@ -59,8 +60,8 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JLabeledCurrencyEdit1 EditLabel.AnchorSideBottom.Control = JLabeledCurrencyEdit1
EditLabel.Left = 102 EditLabel.Left = 102
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 2 EditLabel.Top = 3
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Currency' EditLabel.Caption = 'Currency'
EditLabel.ParentColor = False EditLabel.ParentColor = False
@ -73,22 +74,23 @@ object Form1: TForm1
Width = 80 Width = 80
DisplayFormat = 'dd/mm/yy' DisplayFormat = 'dd/mm/yy'
Value = 0 Value = 0
ButtonWidth = 23
EditLabel.AnchorSideLeft.Control = JLabeledDateEdit1 EditLabel.AnchorSideLeft.Control = JLabeledDateEdit1
EditLabel.AnchorSideRight.Control = JLabeledDateEdit1 EditLabel.AnchorSideRight.Control = JLabeledDateEdit1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JLabeledDateEdit1 EditLabel.AnchorSideBottom.Control = JLabeledDateEdit1
EditLabel.Left = 190 EditLabel.Left = 190
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 1 EditLabel.Top = 2
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Date' EditLabel.Caption = 'Date'
EditLabel.ParentColor = False EditLabel.ParentColor = False
TabOrder = 2 TabOrder = 2
end end
object JLabeledFloatEdit1: TJLabeledFloatEdit object JLabeledFloatEdit1: TJLabeledFloatEdit
Left = 280 Left = 302
Height = 27 Height = 27
Top = 23 Top = 22
Width = 80 Width = 80
DisplayFormat = '#,0.00' DisplayFormat = '#,0.00'
Decimals = 2 Decimals = 2
@ -97,8 +99,8 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JLabeledFloatEdit1 EditLabel.AnchorSideRight.Control = JLabeledFloatEdit1
EditLabel.AnchorSideRight.Side = asrBottom EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JLabeledFloatEdit1 EditLabel.AnchorSideBottom.Control = JLabeledFloatEdit1
EditLabel.Left = 280 EditLabel.Left = 302
EditLabel.Height = 18 EditLabel.Height = 17
EditLabel.Top = 2 EditLabel.Top = 2
EditLabel.Width = 80 EditLabel.Width = 80
EditLabel.Caption = 'Float' EditLabel.Caption = 'Float'
@ -107,9 +109,9 @@ object Form1: TForm1
end end
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 308 Left = 333
Height = 30 Height = 30
Top = 139 Top = 138
Width = 91 Width = 91
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = '&Cerrar' Caption = '&Cerrar'

8
components/jujiboutils/examples/examplenodb/main.pas
View File

@ -22,6 +22,7 @@ type
JLabeledIntegerEdit1: TJLabeledIntegerEdit; JLabeledIntegerEdit1: TJLabeledIntegerEdit;
JLabeledIntegerEdit2: TJLabeledIntegerEdit; JLabeledIntegerEdit2: TJLabeledIntegerEdit;
Label1: TLabel; Label1: TLabel;
procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -35,5 +36,12 @@ implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end. end.

11
components/jujiboutils/examples/examplenodb/testnodb.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -18,13 +18,13 @@
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)/testnodb/"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -45,13 +45,14 @@
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="main"/> <UnitName Value="main"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="testnodb"/> <Filename Value="testnodb"/>
</Target> </Target>
@ -60,10 +61,6 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>