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
--------------------------------------------------
2011-09-14 Add Non Database input controls example
2011-09-13 Initial commit to lazarus-ccr

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

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

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

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