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

Sanity checks

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1946 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-14 10:03:43 +00:00
parent 72f61a6b91
commit 51b9dc13a6
3 changed files with 39 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/jujiboutils/changes.txt
View File

@ -5,4 +5,5 @@ JUJIBOUTILS
Version pre-1.0 Version pre-1.0
-------------------------------------------------- --------------------------------------------------
2011-09-14 Add Non Database input controls example
2011-09-13 Initial commit to lazarus-ccr 2011-09-13 Initial commit to lazarus-ccr

32
components/jujiboutils/examples/testmemdataset/jdbutils.pas
View File

@ -34,7 +34,6 @@ type
theValue: currency; theValue: currency;
fDecimales: integer; fDecimales: integer;
function getDecimales: integer; function getDecimales: integer;
procedure myEditOnEnter(Sender: TObject);
procedure myEditOnEditingDone(Sender: TObject); procedure myEditOnEditingDone(Sender: TObject);
procedure setDecimales(const AValue: integer); procedure setDecimales(const AValue: integer);
procedure OnKeyPress(Sender: TObject; var key: char); procedure OnKeyPress(Sender: TObject; var key: char);
@ -96,11 +95,6 @@ begin
Result := fDecimales; Result := fDecimales;
end; end;
procedure TJDBCurrencyCtrl.myEditOnEnter(Sender: TObject);
begin
end;
procedure TJDBCurrencyCtrl.myEditOnEditingDone(Sender: TObject); procedure TJDBCurrencyCtrl.myEditOnEditingDone(Sender: TObject);
var var
bufCaption: string; bufCaption: string;
@ -159,11 +153,19 @@ end;
procedure TJDBCurrencyCtrl.Enter(widget: TDBEdit); procedure TJDBCurrencyCtrl.Enter(widget: TDBEdit);
begin begin
myEdit := widget; myEdit := widget;
if myEdit.DataSource.DataSet.Active then
begin
myEdit.OnEditingDone := @myEditOnEditingDone; myEdit.OnEditingDone := @myEditOnEditingDone;
myEdit.OnKeyPress := @OnKeyPress; myEdit.OnKeyPress := @OnKeyPress;
fDecimales := 2; // default 2 decimals fDecimales := 2; // default 2 decimals
theValue := myEdit.Field.AsCurrency; theValue := myEdit.Field.AsCurrency;
myEdit.SelectAll; myEdit.SelectAll;
end
else
begin
myEdit.OnEditingDone := nil;
myEdit.OnKeyPress := nil;
end;
end; end;
@ -204,10 +206,18 @@ end;
procedure TJDBIntegerCtrl.Enter(widget: TDBEdit); procedure TJDBIntegerCtrl.Enter(widget: TDBEdit);
begin begin
myEdit := widget; myEdit := widget;
if myEdit.DataSource.DataSet.Active then
begin
myEdit.OnEditingDone := @myEditOnEditingDone; myEdit.OnEditingDone := @myEditOnEditingDone;
myEdit.OnKeyPress := @OnKeyPress; myEdit.OnKeyPress := @OnKeyPress;
theValue := myEdit.Field.AsInteger; theValue := myEdit.Field.AsInteger;
myEdit.SelectAll; myEdit.SelectAll;
end
else
begin
myEdit.OnEditingDone := nil;
myEdit.OnKeyPress := nil;
end;
end; end;
{ TJDBDateCtrl } { TJDBDateCtrl }
@ -274,11 +284,19 @@ end;
procedure TJDBDateCtrl.Enter(widget: TDBEdit); procedure TJDBDateCtrl.Enter(widget: TDBEdit);
begin begin
myEdit := widget; myEdit := widget;
if myEdit.DataSource.DataSet.Active then
begin
myEdit.OnEditingDone := @myEditOnEditingDone; myEdit.OnEditingDone := @myEditOnEditingDone;
myEdit.OnKeyPress := @OnKeyPress; myEdit.OnKeyPress := @OnKeyPress;
format := 'dd/mm/yyyy'; format := ShortDateFormat;
theValue := myEdit.Field.AsDateTime; theValue := myEdit.Field.AsDateTime;
myEdit.SelectAll; myEdit.SelectAll;
end
else
begin
myEdit.OnEditingDone := nil;
myEdit.OnKeyPress := nil;
end;
end; end;
procedure CreateResources; procedure CreateResources;

1
components/jujiboutils/examples/testmemdataset/testmemdataset.lpi
View File

@ -6,7 +6,6 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>