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

Added: Non DB-Aware input controls example

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1978 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-20 15:27:54 +00:00
parent 4a519e3b66
commit 948952a30e
4 changed files with 269 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

132
components/jujiboutils/jujibo-utils/examplenodb/main.lfm Normal file
View File

@ -0,0 +1,132 @@
object Form1: TForm1
Left = 378
Height = 295
Top = 196
Width = 332
Caption = 'Example'
ClientHeight = 295
ClientWidth = 332
LCLVersion = '0.9.31'
object Label1: TLabel
Left = 8
Height = 18
Top = 8
Width = 253
Caption = 'Testing non DB-Aware Input Controls'
Font.Height = 14
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 24
Height = 82
Top = 40
Width = 288
Caption = 'Labeled controls'
ClientHeight = 63
ClientWidth = 284
TabOrder = 0
object JLabeledIntegerEdit1: TJLabeledIntegerEdit
Left = 14
Height = 27
Top = 23
Width = 80
DisplayFormat = '0'
Value = 0
EditLabel.AnchorSideLeft.Control = JLabeledIntegerEdit1
EditLabel.AnchorSideBottom.Control = JLabeledIntegerEdit1
EditLabel.Left = 14
EditLabel.Height = 18
EditLabel.Top = 2
EditLabel.Width = 45
EditLabel.Caption = 'Integer'
EditLabel.ParentColor = False
TabOrder = 0
end
object JLabeledCurrencyEdit1: TJLabeledCurrencyEdit
Left = 102
Height = 27
Top = 23
Width = 80
DisplayFormat = '#,0.00 €'
Decimals = 2
Value = 0
EditLabel.AnchorSideLeft.Control = JLabeledCurrencyEdit1
EditLabel.AnchorSideBottom.Control = JLabeledCurrencyEdit1
EditLabel.Left = 102
EditLabel.Height = 18
EditLabel.Top = 2
EditLabel.Width = 55
EditLabel.Caption = 'Currency'
EditLabel.ParentColor = False
TabOrder = 1
end
object JLabeledDateEdit1: TJLabeledDateEdit
Left = 190
Height = 27
Top = 22
Width = 80
DisplayFormat = 'dd/mm/yy'
Value = 0
EditLabel.AnchorSideLeft.Control = JLabeledDateEdit1
EditLabel.AnchorSideBottom.Control = JLabeledDateEdit1
EditLabel.Left = 190
EditLabel.Height = 18
EditLabel.Top = 1
EditLabel.Width = 29
EditLabel.Caption = 'Date'
EditLabel.ParentColor = False
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 24
Height = 105
Top = 128
Width = 288
Caption = 'Normal Controls'
ClientHeight = 86
ClientWidth = 284
TabOrder = 1
object JIntegerEdit1: TJIntegerEdit
Left = 14
Height = 27
Top = 23
Width = 80
DisplayFormat = '0º'
Value = 0
TabOrder = 0
end
object JCurrencyEdit1: TJCurrencyEdit
Left = 102
Height = 27
Top = 23
Width = 80
DisplayFormat = '$ #,0.00'
Decimals = 2
Value = 0
TabOrder = 1
end
object JDateEdit1: TJDateEdit
Left = 190
Height = 27
Top = 23
Width = 80
DisplayFormat = 'dd/mm/yy'
Value = 0
TabOrder = 2
end
end
object BitBtn1: TBitBtn
Left = 221
Height = 30
Top = 249
Width = 91
Anchors = [akRight, akBottom]
Caption = '&Cerrar'
Kind = bkClose
ModalResult = 11
TabOrder = 2
end
end

42
components/jujiboutils/jujibo-utils/examplenodb/main.pas Normal file
View File

@ -0,0 +1,42 @@
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, JIntegerEdit, JLabeledIntegerEdit, JCurrencyEdit,
JLabeledCurrencyEdit, JDateEdit, JLabeledDateEdit;
type
{ TForm1 }
TForm1 = class(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
JCurrencyEdit1: TJCurrencyEdit;
JDateEdit1: TJDateEdit;
JIntegerEdit1: TJIntegerEdit;
JLabeledCurrencyEdit1: TJLabeledCurrencyEdit;
JLabeledDateEdit1: TJLabeledDateEdit;
JLabeledIntegerEdit1: TJLabeledIntegerEdit;
JLabeledIntegerEdit2: TJLabeledIntegerEdit;
Label1: TLabel;
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
end.

74
components/jujiboutils/jujibo-utils/examplenodb/testnodb.lpi Normal file
View File

@ -0,0 +1,74 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</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/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="jujibocontrols"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="testnodb.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="testnodb"/>
</Unit0>
<Unit1>
<Filename Value="main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="main"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Target>
<Filename Value="testnodb"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

21
components/jujiboutils/jujibo-utils/examplenodb/testnodb.lpr Normal file
View File

@ -0,0 +1,21 @@
program testnodb;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}clocale, {$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, main
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource := True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.