You've already forked lazarus-ccr
Remove old example code
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2028 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
@ -1,155 +0,0 @@
|
|||||||
{ jcontrolutils
|
|
||||||
|
|
||||||
Copyright (C) 2011 Julio Jiménez Borreguero
|
|
||||||
Contact: jujibo at gmail dot com
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or modify it
|
|
||||||
under the same terms as the Lazarus Component Library (LCL)
|
|
||||||
|
|
||||||
See the file license-jujiboutils.txt and COPYING.LGPL, included in this distribution,
|
|
||||||
for details about the license.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
unit jcontrolutils;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, Dialogs;
|
|
||||||
|
|
||||||
function CountChar(const s: string; ch: char): integer;
|
|
||||||
procedure Split(const Delimiter: char; Input: string; Strings: TStrings);
|
|
||||||
function NormalizeDate(const Value: string; theValue: TDateTime;
|
|
||||||
const theFormat: string = ''): string;
|
|
||||||
function NormalizeDateSeparator(const s: string): string;
|
|
||||||
function IsValidDateString(const Value: string): boolean;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
function CountChar(const s: string; ch: char): integer;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
for i := 1 to length(s) do
|
|
||||||
if s[i] = ch then
|
|
||||||
Inc(Result);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure Split(const Delimiter: char; Input: string; Strings: TStrings);
|
|
||||||
begin
|
|
||||||
Assert(Assigned(Strings));
|
|
||||||
Strings.Clear;
|
|
||||||
Strings.Delimiter := Delimiter;
|
|
||||||
Strings.DelimitedText := Input;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function NormalizeDate(const Value: string; theValue: TDateTime;
|
|
||||||
const theFormat: string): string;
|
|
||||||
var
|
|
||||||
texto: string;
|
|
||||||
i: integer;
|
|
||||||
d, m, y: word;
|
|
||||||
ds, ms, ys: string;
|
|
||||||
aDate: TDateTime;
|
|
||||||
tokens: TStringList;
|
|
||||||
aDateFormat: string;
|
|
||||||
aChar: char;
|
|
||||||
|
|
||||||
procedure LittleEndianForm;
|
|
||||||
begin
|
|
||||||
// Note: only numeric input allowed (months names not implemented)
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ds := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ms := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ys := tokens[2];
|
|
||||||
texto := ds + DateSeparator + ms + DateSeparator + ys;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure MiddleEndianForm;
|
|
||||||
begin
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ms := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ds := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ys := tokens[2];
|
|
||||||
texto := ms + DateSeparator + ds + DateSeparator + ys;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure BigEndianForm;
|
|
||||||
begin
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ys := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ms := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ds := tokens[2];
|
|
||||||
texto := ys + DateSeparator + ms + DateSeparator + ds;
|
|
||||||
end;
|
|
||||||
|
|
||||||
begin
|
|
||||||
if theFormat = '' then
|
|
||||||
aDateFormat := ShortDateFormat
|
|
||||||
else
|
|
||||||
aDateFormat := theFormat;
|
|
||||||
if theValue = 0 then
|
|
||||||
DecodeDate(Now, y, m, d)
|
|
||||||
else
|
|
||||||
decodedate(theValue, y, m, d);
|
|
||||||
ds := IntToStr(d);
|
|
||||||
ms := IntToStr(m);
|
|
||||||
ys := IntToStr(y);
|
|
||||||
texto := Value;
|
|
||||||
texto := NormalizeDateSeparator(texto);
|
|
||||||
Result := texto; // default value
|
|
||||||
i := countchar(texto, DateSeparator);
|
|
||||||
tokens := TStringList.Create;
|
|
||||||
Split(DateSeparator, texto, tokens);
|
|
||||||
if tokens.Count > 0 then
|
|
||||||
begin
|
|
||||||
aChar := aDateFormat[1];
|
|
||||||
case aChar of
|
|
||||||
'd', 'D': LittleEndianForm;
|
|
||||||
'm', 'M': MiddleEndianForm;
|
|
||||||
'y', 'Y': BigEndianForm;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if IsValidDateString(texto) then
|
|
||||||
begin
|
|
||||||
aDate := StrToDate(texto);
|
|
||||||
Result := FormatDateTime(aDateFormat, aDate);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
tokens.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function NormalizeDateSeparator(const s: string): string;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
Result := s;
|
|
||||||
for i := 1 to length(Result) do
|
|
||||||
if Result[i] in ['.', ',', '/', '-'] then // valid date separators
|
|
||||||
Result[i] := DateSeparator;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function IsValidDateString(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToDateDef(Value, MaxDateTime) = MaxDateTime then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,505 +0,0 @@
|
|||||||
{ jdbgridutils
|
|
||||||
|
|
||||||
Copyright (C) 2011 Julio Jiménez Borreguero
|
|
||||||
Contact: jujibo at gmail dot com
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or modify it
|
|
||||||
under the same terms as the Lazarus Component Library (LCL)
|
|
||||||
|
|
||||||
See the file license-jujiboutils.txt and COPYING.LGPL, included in this distribution,
|
|
||||||
for details about the license.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
unit jdbgridutils;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, Grids, Dialogs, LCLType, DBGrids, Controls, DB,
|
|
||||||
jcontrolutils;
|
|
||||||
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TJDbGridDateCtrl }
|
|
||||||
|
|
||||||
TJDbGridDateCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
Field: TField;
|
|
||||||
updated: boolean;
|
|
||||||
theValue: TDateTime;
|
|
||||||
fFormat: string;
|
|
||||||
function getFormat: string;
|
|
||||||
procedure myEditEnter(Sender: TObject);
|
|
||||||
procedure myEditOnEditingDone(Sender: TObject);
|
|
||||||
procedure formatInput;
|
|
||||||
procedure setFormat(const AValue: string);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
procedure OnKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
|
|
||||||
public
|
|
||||||
CellEditor: TStringCellEditor;
|
|
||||||
theGrid: TDBGrid;
|
|
||||||
function isNull: boolean;
|
|
||||||
property format: string read getFormat write setFormat;
|
|
||||||
constructor Create;
|
|
||||||
destructor Destroy; override;
|
|
||||||
function Editor(aGrid: TDBGrid): TStringCellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDbGridIntegerCtrl }
|
|
||||||
|
|
||||||
TJDbGridIntegerCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
theValue: integer;
|
|
||||||
updated: boolean;
|
|
||||||
Field: TField;
|
|
||||||
procedure myEditOnEnter(Sender: TObject);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
procedure OnKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
|
|
||||||
procedure myEditOnEditingDone(Sender: TObject);
|
|
||||||
function IsValidInteger(const Value: string): boolean;
|
|
||||||
public
|
|
||||||
CellEditor: TStringCellEditor;
|
|
||||||
theGrid: TDBGrid;
|
|
||||||
constructor Create;
|
|
||||||
destructor Destroy; override;
|
|
||||||
function Editor(aGrid: TDBGrid): TStringCellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDbGridCurrencyCtrl }
|
|
||||||
|
|
||||||
TJDbGridCurrencyCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
Field: TField;
|
|
||||||
updated: boolean;
|
|
||||||
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);
|
|
||||||
procedure OnKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
|
|
||||||
function redondear(const AValue: currency; const NDecimales: integer): currency;
|
|
||||||
function IsValidFloat(const Value: string): boolean;
|
|
||||||
public
|
|
||||||
CellEditor: TStringCellEditor;
|
|
||||||
theGrid: TDBGrid;
|
|
||||||
property decimales: integer read getDecimales write setDecimales;
|
|
||||||
constructor Create;
|
|
||||||
destructor Destroy; override;
|
|
||||||
function Editor(aGrid: TDBGrid; aDecimals: integer = 2): TStringCellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
dateDbGridControl: TJDbGridDateCtrl;
|
|
||||||
integerDbGridControl: TJDbGridIntegerCtrl;
|
|
||||||
currencyDbGridControl: TJDbGridCurrencyCtrl;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
Math, dateutils;
|
|
||||||
|
|
||||||
{ TJDbGridDateCtrl }
|
|
||||||
|
|
||||||
function TJDbGridDateCtrl.getFormat: string;
|
|
||||||
begin
|
|
||||||
Result := fFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.myEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Field := theGrid.SelectedField;
|
|
||||||
CellEditor.BoundsRect := theGrid.SelectedFieldRect;
|
|
||||||
CellEditor.Text := Field.AsString;
|
|
||||||
CellEditor.OnKeyPress := @OnKeyPress; // Recuperamos el control :-p
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
theValue := Field.AsDateTime;
|
|
||||||
updated := False;
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
begin
|
|
||||||
CellEditor.Caption:= NormalizeDate(CellEditor.Caption, theValue);
|
|
||||||
if Length(CellEditor.Caption) = 0 then
|
|
||||||
theValue := 0
|
|
||||||
else
|
|
||||||
if IsValidDateString(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
if (not updated) then
|
|
||||||
begin
|
|
||||||
theValue := StrToDate(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
Field.AsDateTime := theValue;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es una fecha válida');
|
|
||||||
CellEditor.Text := FormatDateTime(format, theValue);
|
|
||||||
end;
|
|
||||||
//formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.formatInput;
|
|
||||||
begin
|
|
||||||
if theValue <> 0 then
|
|
||||||
CellEditor.Caption := FormatDateTime(format, theValue);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.setFormat(const AValue: string);
|
|
||||||
begin
|
|
||||||
fFormat := AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9', #8, #9, '.', '-', '/']) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridDateCtrl.OnKeyDown(Sender: TObject; var Key: word;
|
|
||||||
Shift: TShiftState);
|
|
||||||
begin
|
|
||||||
if Length(CellEditor.Caption) <> 0 then
|
|
||||||
if (Key in [VK_RETURN, VK_TAB, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) and
|
|
||||||
(not IsValidDateString(NormalizeDate(CellEditor.Caption, theValue))) then
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es una fecha válida');
|
|
||||||
CellEditor.Text := FormatDateTime(format, theValue);
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if key = VK_ESCAPE then
|
|
||||||
begin
|
|
||||||
if Field.IsNull then
|
|
||||||
CellEditor.Text := ''
|
|
||||||
else
|
|
||||||
CellEditor.Text := FormatDateTime(format, Field.AsDateTime);
|
|
||||||
updated := True;
|
|
||||||
theGrid.SetFocus; // No perder el foco
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if Key in [VK_UP, VK_DOWN] then
|
|
||||||
begin
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if Key in [VK_RETURN, VK_TAB, VK_RIGHT, VK_LEFT] then
|
|
||||||
begin
|
|
||||||
CellEditor.Caption:= NormalizeDate(CellEditor.Caption, theValue);
|
|
||||||
if Length(CellEditor.Caption) = 0 then
|
|
||||||
theValue := 0
|
|
||||||
else
|
|
||||||
if IsValidDateString(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToDate(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
Field.AsDateTime := theValue;
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
updated := True;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function TJDbGridDateCtrl.isNull: boolean;
|
|
||||||
begin
|
|
||||||
Result := theValue = 0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJDbGridDateCtrl.Create;
|
|
||||||
begin
|
|
||||||
inherited Create;
|
|
||||||
CellEditor := TStringCellEditor.Create(nil);
|
|
||||||
CellEditor.OnEnter := @myEditEnter;
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
CellEditor.OnEditingDone := @myEditOnEditingDone;
|
|
||||||
CellEditor.OnKeyPress := @OnKeyPress; // se sobreescribe por el Grid :(
|
|
||||||
format := ShortDateFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TJDbGridDateCtrl.Destroy;
|
|
||||||
begin
|
|
||||||
CellEditor.Free;
|
|
||||||
inherited Destroy;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridDateCtrl.Editor(aGrid: TDBGrid): TStringCellEditor;
|
|
||||||
begin
|
|
||||||
theGrid := aGrid;
|
|
||||||
Result := CellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDbGridCurrencyCtrl }
|
|
||||||
|
|
||||||
function TJDbGridCurrencyCtrl.getDecimales: integer;
|
|
||||||
begin
|
|
||||||
Result := fDecimales;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridCurrencyCtrl.myEditOnEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Field := theGrid.SelectedField;
|
|
||||||
CellEditor.BoundsRect := theGrid.SelectedFieldRect;
|
|
||||||
CellEditor.Text := Field.AsString;
|
|
||||||
CellEditor.OnKeyPress := @OnKeyPress; // Recuperamos el control :-p
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
theValue := Field.AsCurrency;
|
|
||||||
updated := False;
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridCurrencyCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if IsValidFloat(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
if (not updated) then
|
|
||||||
begin
|
|
||||||
theValue := StrToCurr(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
theValue := redondear(theValue, fDecimales);
|
|
||||||
Field.AsCurrency := theValue;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es un número válido');
|
|
||||||
CellEditor.Text := FloatToStr(theValue);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridCurrencyCtrl.setDecimales(const AValue: integer);
|
|
||||||
begin
|
|
||||||
if (AValue >= 0) and (AValue < 5) then
|
|
||||||
fDecimales := AValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridCurrencyCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if (Key in ['.', ',']) then
|
|
||||||
Key := Decimalseparator;
|
|
||||||
if (key = DecimalSeparator) and (Pos(key, CellEditor.Caption) > 0) then
|
|
||||||
key := #0;
|
|
||||||
if not (Key in ['0'..'9', DecimalSeparator, '+', '-', #8, #9]) then
|
|
||||||
Key := #0;
|
|
||||||
if (Key = DecimalSeparator) and (fDecimales = 0) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridCurrencyCtrl.OnKeyDown(Sender: TObject; var Key: word;
|
|
||||||
Shift: TShiftState);
|
|
||||||
begin
|
|
||||||
if (Key in [VK_RETURN, VK_TAB, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) and
|
|
||||||
(not IsValidFloat(CellEditor.Caption)) then
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es número válido');
|
|
||||||
CellEditor.Text := FloatToStr(theValue);
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if key = VK_ESCAPE then
|
|
||||||
begin
|
|
||||||
if Field.IsNull then
|
|
||||||
CellEditor.Text := ''
|
|
||||||
else
|
|
||||||
CellEditor.Text := CurrToStr(redondear(Field.AsCurrency, fDecimales));
|
|
||||||
updated:= True;
|
|
||||||
theGrid.SetFocus; // No perder el foco
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if key in [VK_UP, VK_DOWN] then
|
|
||||||
begin
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if Key in [VK_RETURN, VK_TAB] then
|
|
||||||
begin
|
|
||||||
if IsValidFloat(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToCurr(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
Field.AsCurrency := redondear(theValue, fDecimales);
|
|
||||||
CellEditor.Text:= Field.AsString;
|
|
||||||
updated := True;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridCurrencyCtrl.redondear(const AValue: currency;
|
|
||||||
const NDecimales: integer): currency;
|
|
||||||
begin
|
|
||||||
redondear := round(AValue * power(10, NDecimales)) / power(10, NDecimales);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridCurrencyCtrl.IsValidFloat(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToCurrDef(Value, MaxCurrency) = MaxCurrency then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJDbGridCurrencyCtrl.Create;
|
|
||||||
begin
|
|
||||||
inherited Create;
|
|
||||||
CellEditor := TStringCellEditor.Create(nil);
|
|
||||||
CellEditor.OnEnter := @myEditOnEnter;
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
CellEditor.OnEditingDone := @myEditOnEditingDone;
|
|
||||||
fDecimales := 2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TJDbGridCurrencyCtrl.Destroy;
|
|
||||||
begin
|
|
||||||
CellEditor.Free;
|
|
||||||
inherited Destroy;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridCurrencyCtrl.Editor(aGrid: TDBGrid;
|
|
||||||
aDecimals: integer): TStringCellEditor;
|
|
||||||
begin
|
|
||||||
decimales := aDecimals;
|
|
||||||
theGrid := aGrid;
|
|
||||||
Result := CellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDbGridIntegerCtrl }
|
|
||||||
|
|
||||||
procedure TJDbGridIntegerCtrl.myEditOnEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Field := theGrid.SelectedField;
|
|
||||||
CellEditor.BoundsRect := theGrid.SelectedFieldRect;
|
|
||||||
CellEditor.Text := Field.AsString;
|
|
||||||
CellEditor.OnKeyPress := @OnKeyPress; // Recuperamos el control :-p
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
theValue := Field.AsInteger;
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
updated := False;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridIntegerCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9', #8, #9, '-']) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridIntegerCtrl.OnKeyDown(Sender: TObject; var Key: word;
|
|
||||||
Shift: TShiftState);
|
|
||||||
begin
|
|
||||||
if (Key in [VK_RETURN, VK_TAB, VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) and
|
|
||||||
(not IsValidInteger(CellEditor.Caption)) then
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es un número válido');
|
|
||||||
CellEditor.Text := IntToStr(theValue);
|
|
||||||
CellEditor.SelectAll;
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if (Key = VK_ESCAPE) then
|
|
||||||
begin
|
|
||||||
if Field.IsNull then
|
|
||||||
CellEditor.Text := ''
|
|
||||||
else
|
|
||||||
CellEditor.Text := IntToStr(Field.AsInteger);
|
|
||||||
updated := True;
|
|
||||||
theGrid.SetFocus; // No perder el foco
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if key in [VK_UP, VK_DOWN] then
|
|
||||||
begin
|
|
||||||
Key := VK_UNKNOWN;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
if Key in [VK_RETURN, VK_TAB] then
|
|
||||||
begin
|
|
||||||
if IsValidInteger(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToInt(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
Field.AsInteger := theValue;
|
|
||||||
updated := True;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDbGridIntegerCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if IsValidInteger(CellEditor.Caption) then
|
|
||||||
begin
|
|
||||||
if (not updated) then
|
|
||||||
begin
|
|
||||||
theValue := StrToInt(CellEditor.Caption);
|
|
||||||
Field.DataSet.Edit;
|
|
||||||
Field.AsInteger := theValue;
|
|
||||||
end;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(CellEditor.Caption + ' no es un número válido');
|
|
||||||
CellEditor.Text := IntToStr(theValue);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridIntegerCtrl.IsValidInteger(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToIntDef(Value, MaxInt) = MaxInt then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJDbGridIntegerCtrl.Create;
|
|
||||||
begin
|
|
||||||
inherited Create;
|
|
||||||
CellEditor := TStringCellEditor.Create(nil);
|
|
||||||
CellEditor.OnEnter := @myEditOnEnter;
|
|
||||||
CellEditor.OnKeyDown := @OnKeyDown;
|
|
||||||
CellEditor.OnEditingDone := @myEditOnEditingDone;
|
|
||||||
CellEditor.OnKeyPress := @OnKeyPress; // se sobreescribe por el Grid :(
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor TJDbGridIntegerCtrl.Destroy;
|
|
||||||
begin
|
|
||||||
CellEditor.Free;
|
|
||||||
inherited Destroy;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDbGridIntegerCtrl.Editor(aGrid: TDBGrid): TStringCellEditor;
|
|
||||||
begin
|
|
||||||
theGrid := aGrid;
|
|
||||||
Result := CellEditor;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CreateResources;
|
|
||||||
begin
|
|
||||||
dateDbGridControl := TJDbGridDateCtrl.Create;
|
|
||||||
integerDbGridControl := TJDbGridIntegerCtrl.Create;
|
|
||||||
currencyDbGridControl := TJDbGridCurrencyCtrl.Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CleanResources;
|
|
||||||
begin
|
|
||||||
dateDbGridControl.Free;
|
|
||||||
integerDbGridControl.Free;
|
|
||||||
currencyDbGridControl.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
CreateResources;
|
|
||||||
|
|
||||||
finalization
|
|
||||||
CleanResources;
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,312 +0,0 @@
|
|||||||
{ jdbutils
|
|
||||||
|
|
||||||
Copyright (C) 2011 Julio Jiménez Borreguero
|
|
||||||
Contact: jujibo at gmail dot com
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or modify it
|
|
||||||
under the same terms as the Lazarus Component Library (LCL)
|
|
||||||
|
|
||||||
See the file license-jujiboutils.txt and COPYING.LGPL, included in this distribution,
|
|
||||||
for details about the license.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
unit jdbutils;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, DBCtrls, jcontrolutils;
|
|
||||||
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TJDBCurrencyCtrl }
|
|
||||||
|
|
||||||
TJDBCurrencyCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TDBEdit;
|
|
||||||
theValue: currency;
|
|
||||||
fDecimales: integer;
|
|
||||||
function getDecimales: integer;
|
|
||||||
procedure myEditOnEditingDone(Sender: TObject);
|
|
||||||
procedure setDecimales(const AValue: integer);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
function redondear(const AValue: currency; const NDecimales: integer): currency;
|
|
||||||
function IsValidFloat(const Value: string): boolean;
|
|
||||||
public
|
|
||||||
property decimales: integer read getDecimales write setDecimales;
|
|
||||||
procedure Enter(widget: TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDBIntegerCtrl }
|
|
||||||
|
|
||||||
TJDBIntegerCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TDBEdit;
|
|
||||||
theValue: integer;
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
procedure myEditOnEditingDone(Sender: TObject);
|
|
||||||
function IsValidInteger(const Value: string): boolean;
|
|
||||||
public
|
|
||||||
procedure Enter(widget: TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDBDateCtrl }
|
|
||||||
|
|
||||||
TJDBDateCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TDBEdit;
|
|
||||||
theValue: TDateTime;
|
|
||||||
fFormat: string;
|
|
||||||
function getFormat: string;
|
|
||||||
procedure myEditOnEditingDone(Sender: TObject);
|
|
||||||
procedure formatInput;
|
|
||||||
procedure setFormat(const AValue: string);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
public
|
|
||||||
function isNull: boolean;
|
|
||||||
property format: string read getFormat write setFormat;
|
|
||||||
procedure Enter(widget: TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
dateDbControl: TJDBDateCtrl;
|
|
||||||
integerDbControl: TJDBIntegerCtrl;
|
|
||||||
currencyDbControl: TJDBCurrencyCtrl;
|
|
||||||
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
Math, dateutils, Graphics, Dialogs;
|
|
||||||
|
|
||||||
|
|
||||||
{ TJDBCurrencyCtrl }
|
|
||||||
|
|
||||||
function TJDBCurrencyCtrl.getDecimales: integer;
|
|
||||||
begin
|
|
||||||
Result := fDecimales;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBCurrencyCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
var
|
|
||||||
bufCaption: string;
|
|
||||||
begin
|
|
||||||
if IsValidFloat(myEdit.Caption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToCurr(myEdit.Caption);
|
|
||||||
theValue := redondear(theValue, fDecimales);
|
|
||||||
myEdit.Caption := CurrToStr(theValue);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
bufCaption := myEdit.Caption;
|
|
||||||
myEdit.Caption := myEdit.Field.AsString;
|
|
||||||
ShowMessage(bufCaption + ' no es un número válido');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
procedure TJDBCurrencyCtrl.setDecimales(const AValue: integer);
|
|
||||||
begin
|
|
||||||
if AValue >= 0 then
|
|
||||||
fDecimales := AValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TJDBCurrencyCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if (Key in ['.', ',']) then
|
|
||||||
Key := Decimalseparator;
|
|
||||||
if (key = DecimalSeparator) and (Pos(key, myEdit.Caption) > 0) then
|
|
||||||
key := #0;
|
|
||||||
if not (Key in ['0'..'9', DecimalSeparator, '+', '-', #8, #9]) then
|
|
||||||
Key := #0;
|
|
||||||
if (Key = DecimalSeparator) and (fDecimales = 0) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDBCurrencyCtrl.redondear(const AValue: currency;
|
|
||||||
const NDecimales: integer): currency;
|
|
||||||
begin
|
|
||||||
redondear := round(AValue * power(10, NDecimales)) / power(10, NDecimales);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDBCurrencyCtrl.IsValidFloat(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToCurrDef(Value, MaxCurrency) = MaxCurrency then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TJDBCurrencyCtrl.Enter(widget: TDBEdit);
|
|
||||||
begin
|
|
||||||
myEdit := widget;
|
|
||||||
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;
|
|
||||||
|
|
||||||
|
|
||||||
{ TJDBIntegerCtrl }
|
|
||||||
|
|
||||||
procedure TJDBIntegerCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9', #8, #9, '-']) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBIntegerCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
var
|
|
||||||
bufCaption: string;
|
|
||||||
begin
|
|
||||||
if IsValidInteger(myEdit.Caption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToInt(myEdit.Caption);
|
|
||||||
myEdit.Caption := IntToStr(theValue);
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
bufCaption := myEdit.Caption;
|
|
||||||
myEdit.Caption := myEdit.Field.AsString;
|
|
||||||
ShowMessage(bufCaption + ' no es un número válido');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDBIntegerCtrl.IsValidInteger(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToIntDef(Value, MaxInt) = MaxInt then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBIntegerCtrl.Enter(widget: TDBEdit);
|
|
||||||
begin
|
|
||||||
myEdit := widget;
|
|
||||||
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 }
|
|
||||||
|
|
||||||
function TJDBDateCtrl.getFormat: string;
|
|
||||||
begin
|
|
||||||
Result := fFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBDateCtrl.myEditOnEditingDone(Sender: TObject);
|
|
||||||
var
|
|
||||||
bufCaption: string;
|
|
||||||
begin
|
|
||||||
bufCaption := NormalizeDate(myEdit.Caption, theValue);
|
|
||||||
if Length(myEdit.Caption) = 0 then
|
|
||||||
theValue := 0
|
|
||||||
else
|
|
||||||
if IsValidDateString(bufCaption) then
|
|
||||||
begin
|
|
||||||
theValue := StrToDate(bufCaption);
|
|
||||||
myEdit.Caption := bufCaption;
|
|
||||||
end
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
myEdit.Caption := myEdit.Field.AsString;
|
|
||||||
ShowMessage(bufCaption + ' no es una fecha válida');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
//formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBDateCtrl.formatInput;
|
|
||||||
begin
|
|
||||||
if theValue <> 0 then
|
|
||||||
myEdit.Caption := FormatDateTime(format, theValue);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBDateCtrl.setFormat(const AValue: string);
|
|
||||||
begin
|
|
||||||
fFormat := AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBDateCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9', #8, #9, '.', '-', '/']) then
|
|
||||||
Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDBDateCtrl.isNull: boolean;
|
|
||||||
begin
|
|
||||||
Result := theValue = 0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDBDateCtrl.Enter(widget: TDBEdit);
|
|
||||||
begin
|
|
||||||
myEdit := widget;
|
|
||||||
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;
|
|
||||||
begin
|
|
||||||
dateDbControl := TJDBDateCtrl.Create;
|
|
||||||
integerDbControl := TJDBIntegerCtrl.Create;
|
|
||||||
currencyDbControl := TJDBCurrencyCtrl.Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure CleanResources;
|
|
||||||
begin
|
|
||||||
dateDbControl.Free;
|
|
||||||
integerDbControl.Free;
|
|
||||||
currencyDbControl.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
CreateResources;
|
|
||||||
|
|
||||||
finalization
|
|
||||||
CleanResources;
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,193 +0,0 @@
|
|||||||
object Form1: TForm1
|
|
||||||
Left = 285
|
|
||||||
Height = 435
|
|
||||||
Top = 159
|
|
||||||
Width = 500
|
|
||||||
Caption = 'Form1'
|
|
||||||
ClientHeight = 435
|
|
||||||
ClientWidth = 500
|
|
||||||
OnCreate = FormCreate
|
|
||||||
LCLVersion = '0.9.31'
|
|
||||||
object DBGrid1: TDBGrid
|
|
||||||
Left = 26
|
|
||||||
Height = 153
|
|
||||||
Top = 119
|
|
||||||
Width = 416
|
|
||||||
Color = clWindow
|
|
||||||
Columns = <
|
|
||||||
item
|
|
||||||
Title.Caption = 'ID'
|
|
||||||
Title.PrefixOption = poNone
|
|
||||||
FieldName = 'ID'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Title.Caption = 'DATE'
|
|
||||||
Title.PrefixOption = poNone
|
|
||||||
FieldName = 'DATE'
|
|
||||||
DisplayFormat = 'dd/mm/yyyy'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Title.Caption = 'ID2'
|
|
||||||
Title.PrefixOption = poNone
|
|
||||||
FieldName = 'ID2'
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Title.Caption = 'TOTAL'
|
|
||||||
Title.PrefixOption = poNone
|
|
||||||
FieldName = 'TOTAL'
|
|
||||||
DisplayFormat = '#,0.00'
|
|
||||||
end>
|
|
||||||
DataSource = Datasource1
|
|
||||||
TabOrder = 0
|
|
||||||
OnSelectEditor = DBGrid1SelectEditor
|
|
||||||
end
|
|
||||||
object DBNavigator1: TDBNavigator
|
|
||||||
Left = 26
|
|
||||||
Height = 25
|
|
||||||
Top = 87
|
|
||||||
Width = 241
|
|
||||||
BevelOuter = bvNone
|
|
||||||
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
||||||
ChildSizing.EnlargeVertical = crsScaleChilds
|
|
||||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
||||||
ChildSizing.ControlsPerLine = 100
|
|
||||||
ClientHeight = 25
|
|
||||||
ClientWidth = 241
|
|
||||||
DataSource = Datasource1
|
|
||||||
Options = []
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object GroupBox1: TGroupBox
|
|
||||||
Left = 24
|
|
||||||
Height = 105
|
|
||||||
Top = 280
|
|
||||||
Width = 418
|
|
||||||
Caption = 'TDBEdit usage example'
|
|
||||||
ClientHeight = 86
|
|
||||||
ClientWidth = 414
|
|
||||||
TabOrder = 2
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 14
|
|
||||||
Height = 18
|
|
||||||
Top = 7
|
|
||||||
Width = 15
|
|
||||||
Caption = 'ID'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
Left = 102
|
|
||||||
Height = 18
|
|
||||||
Top = 7
|
|
||||||
Width = 31
|
|
||||||
Caption = 'DATE'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label3: TLabel
|
|
||||||
Left = 195
|
|
||||||
Height = 18
|
|
||||||
Top = 7
|
|
||||||
Width = 22
|
|
||||||
Caption = 'ID2'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label4: TLabel
|
|
||||||
Left = 288
|
|
||||||
Height = 18
|
|
||||||
Top = 9
|
|
||||||
Width = 39
|
|
||||||
Caption = 'TOTAL'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object DBEdit1: TDBEdit
|
|
||||||
Left = 14
|
|
||||||
Height = 27
|
|
||||||
Top = 31
|
|
||||||
Width = 80
|
|
||||||
DataField = 'ID'
|
|
||||||
DataSource = Datasource1
|
|
||||||
CharCase = ecNormal
|
|
||||||
MaxLength = 0
|
|
||||||
TabOrder = 0
|
|
||||||
OnEnter = OnIntegerDBControlEnter
|
|
||||||
end
|
|
||||||
object DBEdit2: TDBEdit
|
|
||||||
Left = 102
|
|
||||||
Height = 27
|
|
||||||
Top = 31
|
|
||||||
Width = 80
|
|
||||||
DataField = 'DATE'
|
|
||||||
DataSource = Datasource1
|
|
||||||
CharCase = ecNormal
|
|
||||||
MaxLength = 0
|
|
||||||
TabOrder = 1
|
|
||||||
OnEnter = OnDateDBControlEnter
|
|
||||||
end
|
|
||||||
object DBEdit3: TDBEdit
|
|
||||||
Left = 195
|
|
||||||
Height = 27
|
|
||||||
Top = 31
|
|
||||||
Width = 80
|
|
||||||
DataField = 'ID2'
|
|
||||||
DataSource = Datasource1
|
|
||||||
CharCase = ecNormal
|
|
||||||
MaxLength = 0
|
|
||||||
TabOrder = 2
|
|
||||||
OnEnter = OnIntegerDBControlEnter
|
|
||||||
end
|
|
||||||
object DBEdit4: TDBEdit
|
|
||||||
Left = 288
|
|
||||||
Height = 27
|
|
||||||
Top = 31
|
|
||||||
Width = 80
|
|
||||||
DataField = 'TOTAL'
|
|
||||||
DataSource = Datasource1
|
|
||||||
CharCase = ecNormal
|
|
||||||
MaxLength = 0
|
|
||||||
TabOrder = 3
|
|
||||||
OnEnter = OnCurrencyDBControlEnter
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object Label5: TLabel
|
|
||||||
Left = 24
|
|
||||||
Height = 18
|
|
||||||
Top = 56
|
|
||||||
Width = 142
|
|
||||||
Caption = 'TDBGrid usage example'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object MemDataset1: TMemDataset
|
|
||||||
Active = True
|
|
||||||
FieldDefs = <
|
|
||||||
item
|
|
||||||
Name = 'ID'
|
|
||||||
DataType = ftInteger
|
|
||||||
Precision = 0
|
|
||||||
Size = 0
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'DATE'
|
|
||||||
DataType = ftDate
|
|
||||||
Precision = 0
|
|
||||||
Size = 0
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'TOTAL'
|
|
||||||
DataType = ftFloat
|
|
||||||
Precision = 0
|
|
||||||
Size = 0
|
|
||||||
end
|
|
||||||
item
|
|
||||||
Name = 'ID2'
|
|
||||||
DataType = ftInteger
|
|
||||||
Precision = 0
|
|
||||||
Size = 0
|
|
||||||
end>
|
|
||||||
left = 40
|
|
||||||
end
|
|
||||||
object Datasource1: TDatasource
|
|
||||||
DataSet = MemDataset1
|
|
||||||
left = 128
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,94 +0,0 @@
|
|||||||
unit main;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, memds, DB, FileUtil, Forms, Controls, Graphics, Dialogs,
|
|
||||||
DBGrids, DBCtrls, StdCtrls, LCLType, jdbgridutils, jdbutils;
|
|
||||||
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TForm1 }
|
|
||||||
|
|
||||||
TForm1 = class(TForm)
|
|
||||||
Datasource1: TDatasource;
|
|
||||||
DBEdit1: TDBEdit;
|
|
||||||
DBEdit2: TDBEdit;
|
|
||||||
DBEdit3: TDBEdit;
|
|
||||||
DBEdit4: TDBEdit;
|
|
||||||
DBGrid1: TDBGrid;
|
|
||||||
DBNavigator1: TDBNavigator;
|
|
||||||
GroupBox1: TGroupBox;
|
|
||||||
Label1: TLabel;
|
|
||||||
Label2: TLabel;
|
|
||||||
Label3: TLabel;
|
|
||||||
Label4: TLabel;
|
|
||||||
Label5: TLabel;
|
|
||||||
MemDataset1: TMemDataset;
|
|
||||||
procedure DBGrid1SelectEditor(Sender: TObject; Column: TColumn;
|
|
||||||
var Editor: TWinControl);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure OnCurrencyDBControlEnter(Sender: TObject);
|
|
||||||
procedure OnDateDBControlEnter(Sender: TObject);
|
|
||||||
procedure OnIntegerDBControlEnter(Sender: TObject);
|
|
||||||
private
|
|
||||||
{ private declarations }
|
|
||||||
public
|
|
||||||
{ public declarations }
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
Form1: TForm1;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.lfm}
|
|
||||||
|
|
||||||
{ TForm1 }
|
|
||||||
|
|
||||||
procedure TForm1.DBGrid1SelectEditor(Sender: TObject; Column: TColumn;
|
|
||||||
var Editor: TWinControl);
|
|
||||||
begin
|
|
||||||
case Column.DesignIndex of
|
|
||||||
0, 2: Editor := integerDbGridControl.Editor(Sender as TDBGrid);
|
|
||||||
1: Editor := dateDbGridControl.Editor(Sender as TDBGrid);
|
|
||||||
3: Editor := currencyDbGridControl.Editor(Sender as TDBGrid);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.FormCreate(Sender: TObject);
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
// populate the memDataset
|
|
||||||
for i := 1 to 10 do
|
|
||||||
begin
|
|
||||||
MemDataset1.Append;
|
|
||||||
MemDataset1.FieldByName('ID').AsInteger := i;
|
|
||||||
MemDataset1.FieldByName('DATE').AsDateTime := Now;
|
|
||||||
MemDataset1.FieldByName('ID2').AsInteger := i * i;
|
|
||||||
MemDataset1.FieldByName('TOTAL').AsFloat := i * i * i;
|
|
||||||
MemDataset1.Post;
|
|
||||||
end;
|
|
||||||
MemDataset1.First;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.OnCurrencyDBControlEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
currencyDbControl.Enter(Sender as TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.OnDateDBControlEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
dateDbControl.Enter(Sender as TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.OnIntegerDBControlEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
integerDbControl.Enter(Sender as TDBEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,85 +0,0 @@
|
|||||||
<?xml version="1.0"?>
|
|
||||||
<CONFIG>
|
|
||||||
<ProjectOptions>
|
|
||||||
<Version Value="9"/>
|
|
||||||
<General>
|
|
||||||
<MainUnit Value="0"/>
|
|
||||||
<ResourceType Value="res"/>
|
|
||||||
<UseXPManifest Value="True"/>
|
|
||||||
</General>
|
|
||||||
<i18n>
|
|
||||||
<EnableI18N LFM="False"/>
|
|
||||||
</i18n>
|
|
||||||
<VersionInfo>
|
|
||||||
<StringTable ProductVersion=""/>
|
|
||||||
</VersionInfo>
|
|
||||||
<BuildModes Count="1">
|
|
||||||
<Item1 Name="Default" Default="True"/>
|
|
||||||
</BuildModes>
|
|
||||||
<PublishOptions>
|
|
||||||
<Version Value="2"/>
|
|
||||||
<DestinationDirectory Value="$(TestDir)/testmemdataset/"/>
|
|
||||||
<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="3">
|
|
||||||
<Item1>
|
|
||||||
<PackageName Value="FCL"/>
|
|
||||||
</Item1>
|
|
||||||
<Item2>
|
|
||||||
<PackageName Value="MemDSLaz"/>
|
|
||||||
</Item2>
|
|
||||||
<Item3>
|
|
||||||
<PackageName Value="LCL"/>
|
|
||||||
</Item3>
|
|
||||||
</RequiredPackages>
|
|
||||||
<Units Count="3">
|
|
||||||
<Unit0>
|
|
||||||
<Filename Value="testmemdataset.lpr"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="testmemdataset"/>
|
|
||||||
</Unit0>
|
|
||||||
<Unit1>
|
|
||||||
<Filename Value="main.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<ComponentName Value="Form1"/>
|
|
||||||
<ResourceBaseClass Value="Form"/>
|
|
||||||
<UnitName Value="main"/>
|
|
||||||
</Unit1>
|
|
||||||
<Unit2>
|
|
||||||
<Filename Value="jcontrolutils.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="jcontrolutils"/>
|
|
||||||
</Unit2>
|
|
||||||
</Units>
|
|
||||||
</ProjectOptions>
|
|
||||||
<CompilerOptions>
|
|
||||||
<Version Value="10"/>
|
|
||||||
<Target>
|
|
||||||
<Filename Value="testmemdataset"/>
|
|
||||||
</Target>
|
|
||||||
<SearchPaths>
|
|
||||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
|
||||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
|
||||||
</SearchPaths>
|
|
||||||
<Linking>
|
|
||||||
<Options>
|
|
||||||
<Win32>
|
|
||||||
<GraphicApplication Value="True"/>
|
|
||||||
</Win32>
|
|
||||||
</Options>
|
|
||||||
</Linking>
|
|
||||||
<Other>
|
|
||||||
<CompilerMessages>
|
|
||||||
<UseMsgFile Value="True"/>
|
|
||||||
</CompilerMessages>
|
|
||||||
<CompilerPath Value="$(CompPath)"/>
|
|
||||||
</Other>
|
|
||||||
</CompilerOptions>
|
|
||||||
</CONFIG>
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
program testmemdataset;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
uses
|
|
||||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
||||||
cthreads,
|
|
||||||
{$ENDIF}
|
|
||||||
clocale,
|
|
||||||
{$ENDIF}
|
|
||||||
Interfaces, // this includes the LCL widgetset
|
|
||||||
Forms, main, memdslaz
|
|
||||||
{ you can add units after this };
|
|
||||||
|
|
||||||
{$R *.res}
|
|
||||||
|
|
||||||
begin
|
|
||||||
RequireDerivedFormResource := True;
|
|
||||||
Application.Initialize;
|
|
||||||
Application.CreateForm(TForm1, Form1);
|
|
||||||
Application.Run;
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,155 +0,0 @@
|
|||||||
{ jcontrolutils
|
|
||||||
|
|
||||||
Copyright (C) 2011 Julio Jiménez Borreguero
|
|
||||||
Contact: jujibo at gmail dot com
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or modify it
|
|
||||||
under the same terms as the Lazarus Component Library (LCL)
|
|
||||||
|
|
||||||
See the file license-jujiboutils.txt and COPYING.LGPL, included in this distribution,
|
|
||||||
for details about the license.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
unit jcontrolutils;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, Dialogs;
|
|
||||||
|
|
||||||
function CountChar(const s: string; ch: char): integer;
|
|
||||||
procedure Split(const Delimiter: char; Input: string; Strings: TStrings);
|
|
||||||
function NormalizeDate(const Value: string; theValue: TDateTime;
|
|
||||||
const theFormat: string = ''): string;
|
|
||||||
function NormalizeDateSeparator(const s: string): string;
|
|
||||||
function IsValidDateString(const Value: string): boolean;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
function CountChar(const s: string; ch: char): integer;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
Result := 0;
|
|
||||||
for i := 1 to length(s) do
|
|
||||||
if s[i] = ch then
|
|
||||||
Inc(Result);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure Split(const Delimiter: char; Input: string; Strings: TStrings);
|
|
||||||
begin
|
|
||||||
Assert(Assigned(Strings));
|
|
||||||
Strings.Clear;
|
|
||||||
Strings.Delimiter := Delimiter;
|
|
||||||
Strings.DelimitedText := Input;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function NormalizeDate(const Value: string; theValue: TDateTime;
|
|
||||||
const theFormat: string): string;
|
|
||||||
var
|
|
||||||
texto: string;
|
|
||||||
i: integer;
|
|
||||||
d, m, y: word;
|
|
||||||
ds, ms, ys: string;
|
|
||||||
aDate: TDateTime;
|
|
||||||
tokens: TStringList;
|
|
||||||
aDateFormat: string;
|
|
||||||
aChar: char;
|
|
||||||
|
|
||||||
procedure LittleEndianForm;
|
|
||||||
begin
|
|
||||||
// Note: only numeric input allowed (months names not implemented)
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ds := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ms := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ys := tokens[2];
|
|
||||||
texto := ds + DateSeparator + ms + DateSeparator + ys;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure MiddleEndianForm;
|
|
||||||
begin
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ms := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ds := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ys := tokens[2];
|
|
||||||
texto := ms + DateSeparator + ds + DateSeparator + ys;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure BigEndianForm;
|
|
||||||
begin
|
|
||||||
if tokens[0] <> '' then
|
|
||||||
ys := tokens[0];
|
|
||||||
if (tokens.Count > 1) and (tokens[1] <> '') then
|
|
||||||
ms := tokens[1];
|
|
||||||
if (tokens.Count > 2) and (tokens[2] <> '') then
|
|
||||||
ds := tokens[2];
|
|
||||||
texto := ys + DateSeparator + ms + DateSeparator + ds;
|
|
||||||
end;
|
|
||||||
|
|
||||||
begin
|
|
||||||
if theFormat = '' then
|
|
||||||
aDateFormat := ShortDateFormat
|
|
||||||
else
|
|
||||||
aDateFormat := theFormat;
|
|
||||||
if theValue = 0 then
|
|
||||||
DecodeDate(Now, y, m, d)
|
|
||||||
else
|
|
||||||
decodedate(theValue, y, m, d);
|
|
||||||
ds := IntToStr(d);
|
|
||||||
ms := IntToStr(m);
|
|
||||||
ys := IntToStr(y);
|
|
||||||
texto := Value;
|
|
||||||
texto := NormalizeDateSeparator(texto);
|
|
||||||
Result := texto; // default value
|
|
||||||
i := countchar(texto, DateSeparator);
|
|
||||||
tokens := TStringList.Create;
|
|
||||||
Split(DateSeparator, texto, tokens);
|
|
||||||
if tokens.Count > 0 then
|
|
||||||
begin
|
|
||||||
aChar := aDateFormat[1];
|
|
||||||
case aChar of
|
|
||||||
'd', 'D': LittleEndianForm;
|
|
||||||
'm', 'M': MiddleEndianForm;
|
|
||||||
'y', 'Y': BigEndianForm;
|
|
||||||
end;
|
|
||||||
|
|
||||||
if IsValidDateString(texto) then
|
|
||||||
begin
|
|
||||||
aDate := StrToDate(texto);
|
|
||||||
Result := FormatDateTime(aDateFormat, aDate);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
tokens.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function NormalizeDateSeparator(const s: string): string;
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
Result := s;
|
|
||||||
for i := 1 to length(Result) do
|
|
||||||
if Result[i] in ['.', ',', '/', '-'] then // valid date separators
|
|
||||||
Result[i] := DateSeparator;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function IsValidDateString(const Value: string): boolean;
|
|
||||||
begin
|
|
||||||
if StrToDateDef(Value, MaxDateTime) = MaxDateTime then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,358 +0,0 @@
|
|||||||
{ jinpututils
|
|
||||||
|
|
||||||
Copyright (C) 2011 Julio Jiménez Borreguero
|
|
||||||
Contact: jujibo at gmail dot com
|
|
||||||
|
|
||||||
This library is free software; you can redistribute it and/or modify it
|
|
||||||
under the same terms as the Lazarus Component Library (LCL)
|
|
||||||
|
|
||||||
See the file license-jujiboutils.txt and COPYING.LGPL, included in this distribution,
|
|
||||||
for details about the license.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
unit jinpututils;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, StdCtrls, SysUtils, jcontrolutils;
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TJCurrencyCtrl }
|
|
||||||
|
|
||||||
TJCurrencyCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TCustomEdit;
|
|
||||||
theValue: Currency;
|
|
||||||
fFormat : String;
|
|
||||||
fDecimales : Integer;
|
|
||||||
function getDecimales: integer;
|
|
||||||
function getFormat: string;
|
|
||||||
function getValue: Currency;
|
|
||||||
procedure myEditEnter(Sender: TObject);
|
|
||||||
procedure myEditExit(Sender: TObject);
|
|
||||||
procedure formatInput;
|
|
||||||
procedure setDecimales(const AValue: integer);
|
|
||||||
procedure setFormat(const AValue: string);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key : char);
|
|
||||||
function redondear(const AValue: Currency; const NDecimales: Integer) : Currency;
|
|
||||||
function IsValidFloat(const Value: string): Boolean;
|
|
||||||
procedure setValue(const AValue: Currency);
|
|
||||||
public
|
|
||||||
property format : String read getFormat write setFormat;
|
|
||||||
property decimales : Integer read getDecimales write setDecimales;
|
|
||||||
property value : Currency read getValue write setValue;
|
|
||||||
constructor Create(widget : TCustomEdit);
|
|
||||||
constructor Create(widget : TCustomEdit ;aDecimals : Integer; aFormat : String);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJIntegerCtrl }
|
|
||||||
|
|
||||||
TJIntegerCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TCustomEdit;
|
|
||||||
theValue: Integer;
|
|
||||||
fFormat : String;
|
|
||||||
function getFormat: string;
|
|
||||||
function getValue: Integer;
|
|
||||||
procedure myEditEnter(Sender: TObject);
|
|
||||||
procedure myEditExit(Sender: TObject);
|
|
||||||
procedure formatInput;
|
|
||||||
procedure setFormat(const AValue: string);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key : char);
|
|
||||||
function IsValidInteger(const Value: string): Boolean;
|
|
||||||
procedure setValue(const AValue: Integer);
|
|
||||||
public
|
|
||||||
property format : String read getFormat write setFormat;
|
|
||||||
property value : Integer read getValue write setValue;
|
|
||||||
constructor Create(widget : TCustomEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDateCtrl }
|
|
||||||
|
|
||||||
TJDateCtrl = class(TObject)
|
|
||||||
private
|
|
||||||
myEdit: TCustomEdit;
|
|
||||||
theValue: TDateTime;
|
|
||||||
fFormat : String;
|
|
||||||
function getFormat: string;
|
|
||||||
function getValue: TDateTime;
|
|
||||||
procedure myEditEnter(Sender: TObject);
|
|
||||||
procedure myEditExit(Sender: TObject);
|
|
||||||
procedure formatInput;
|
|
||||||
procedure setFormat(const AValue: string);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var key : char);
|
|
||||||
procedure setValue(const AValue: TDateTime);
|
|
||||||
public
|
|
||||||
function isNull : Boolean;
|
|
||||||
property format : String read getFormat write setFormat;
|
|
||||||
property value : TDateTime read getValue write setValue;
|
|
||||||
constructor Create(widget : TCustomEdit);
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses
|
|
||||||
math,dateutils,Graphics,Dialogs;
|
|
||||||
|
|
||||||
|
|
||||||
{ TJCurrencyCtrl }
|
|
||||||
|
|
||||||
function TJCurrencyCtrl.getDecimales: integer;
|
|
||||||
begin
|
|
||||||
result:= fDecimales;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJCurrencyCtrl.getFormat: string;
|
|
||||||
begin
|
|
||||||
result := fFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJCurrencyCtrl.getValue: Currency;
|
|
||||||
begin
|
|
||||||
result := theValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.myEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
myEdit.Caption:= FloatToStr(theValue);
|
|
||||||
myEdit.SelectAll;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.myEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if IsValidFloat(myEdit.Caption) then
|
|
||||||
theValue:= StrToCurr(myEdit.Caption)
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(myEdit.Caption + ' no es un valor válido');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
theValue:= redondear(theValue, fDecimales);
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.formatInput;
|
|
||||||
begin
|
|
||||||
myEdit.Caption:= FormatFloat(format, theValue);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.setDecimales(const AValue: integer);
|
|
||||||
begin
|
|
||||||
// Poner decimales, redondear valor y mostrarlo
|
|
||||||
if AValue >= 0 then
|
|
||||||
fDecimales:= AValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.setFormat(const AValue: string);
|
|
||||||
begin
|
|
||||||
fFormat:= AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if (Key in ['.',',']) then Key := Decimalseparator;
|
|
||||||
if (key = DecimalSeparator) and (Pos(key, myEdit.Caption) >0) then key := #0;
|
|
||||||
if not (Key in ['0'..'9',DecimalSeparator,'+','-',#8,#9]) then Key := #0;
|
|
||||||
if (Key = DecimalSeparator) and (fDecimales = 0) then Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJCurrencyCtrl.redondear(const AValue: Currency;
|
|
||||||
const NDecimales: Integer): Currency;
|
|
||||||
begin
|
|
||||||
redondear := round(AValue * power(10, NDecimales)) / power(10, NDecimales);
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJCurrencyCtrl.IsValidFloat(const Value: string): Boolean;
|
|
||||||
begin
|
|
||||||
if StrToCurrDef(value, MaxCurrency) = MaxCurrency then Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJCurrencyCtrl.setValue(const AValue: Currency);
|
|
||||||
begin
|
|
||||||
theValue:= redondear(AValue, fDecimales);
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJCurrencyCtrl.Create(widget: TCustomEdit);
|
|
||||||
begin
|
|
||||||
myEdit:= widget;
|
|
||||||
myEdit.OnEnter:= @myEditEnter;
|
|
||||||
myEdit.OnExit:= @myEditExit;
|
|
||||||
myEdit.OnKeyPress:= @OnKeyPress;
|
|
||||||
myEdit.caption:= ''; // avoid prev input
|
|
||||||
format:= '#,0.00 €';
|
|
||||||
fDecimales:= 2;
|
|
||||||
end;
|
|
||||||
constructor TJCurrencyCtrl.Create(widget: TCustomEdit; aDecimals: Integer;
|
|
||||||
aFormat: String);
|
|
||||||
begin
|
|
||||||
myEdit:= widget;
|
|
||||||
myEdit.OnEnter:= @myEditEnter;
|
|
||||||
myEdit.OnExit:= @myEditExit;
|
|
||||||
myEdit.OnKeyPress:= @OnKeyPress;
|
|
||||||
myEdit.caption:= ''; // avoid prev input
|
|
||||||
format:= aFormat;
|
|
||||||
fDecimales:= aDecimals;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
{ TJIntegerCtrl }
|
|
||||||
|
|
||||||
function TJIntegerCtrl.getFormat: string;
|
|
||||||
begin
|
|
||||||
Result := fFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJIntegerCtrl.getValue: Integer;
|
|
||||||
begin
|
|
||||||
Result := theValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.myEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
myEdit.Caption:= IntToStr(theValue);
|
|
||||||
myEdit.SelectAll;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.myEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if IsValidInteger(myEdit.Caption) then
|
|
||||||
theValue:= StrToInt(myEdit.Caption)
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(myEdit.Caption + ' no es un valor válido');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.formatInput;
|
|
||||||
begin
|
|
||||||
myEdit.Caption:= FormatFloat(format, theValue);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.setFormat(const AValue: string);
|
|
||||||
begin
|
|
||||||
fFormat:= AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9',#8,#9,'-']) then Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJIntegerCtrl.IsValidInteger(const Value: string): Boolean;
|
|
||||||
begin
|
|
||||||
if StrToIntDef(value, MaxInt) = MaxInt then
|
|
||||||
Result := False
|
|
||||||
else
|
|
||||||
Result := True;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJIntegerCtrl.setValue(const AValue: Integer);
|
|
||||||
begin
|
|
||||||
theValue:= AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJIntegerCtrl.Create(widget: TCustomEdit);
|
|
||||||
begin
|
|
||||||
myEdit:= widget;
|
|
||||||
myEdit.OnEnter:= @myEditEnter;
|
|
||||||
myEdit.OnExit:= @myEditExit;
|
|
||||||
myEdit.OnKeyPress:= @OnKeyPress;
|
|
||||||
myEdit.caption:= ''; // avoid prev input
|
|
||||||
format:= '0';
|
|
||||||
end;
|
|
||||||
|
|
||||||
{ TJDateCtrl }
|
|
||||||
|
|
||||||
function TJDateCtrl.getFormat: string;
|
|
||||||
begin
|
|
||||||
result := fFormat;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDateCtrl.getValue: TDateTime;
|
|
||||||
begin
|
|
||||||
Result := theValue;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.myEditEnter(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if theValue <> 0 then
|
|
||||||
myEdit.Caption:= FormatDateTime(format, theValue)
|
|
||||||
else
|
|
||||||
myEdit.Caption := '';
|
|
||||||
myEdit.SelectAll;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.myEditExit(Sender: TObject);
|
|
||||||
begin
|
|
||||||
myEdit.Caption:= NormalizeDate(myEdit.Caption, theValue);
|
|
||||||
if Length(myEdit.Caption) = 0 then
|
|
||||||
theValue := 0
|
|
||||||
else
|
|
||||||
if IsValidDateString(myEdit.Caption) then
|
|
||||||
theValue:= StrToDate(myEdit.Caption)
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
ShowMessage(myEdit.Caption + ' no es una fecha válida');
|
|
||||||
myEdit.SetFocus;
|
|
||||||
end;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.formatInput;
|
|
||||||
begin
|
|
||||||
if theValue <> 0 then
|
|
||||||
myEdit.Caption:= FormatDateTime(format, theValue);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.setFormat(const AValue: string);
|
|
||||||
begin
|
|
||||||
fFormat:= AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.OnKeyPress(Sender: TObject; var key: char);
|
|
||||||
begin
|
|
||||||
if not (Key in ['0'..'9',#8,#9, '.', '-', '/']) then Key := #0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TJDateCtrl.setValue(const AValue: TDateTime);
|
|
||||||
begin
|
|
||||||
theValue:= AValue;
|
|
||||||
formatInput;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function TJDateCtrl.isNull: Boolean;
|
|
||||||
begin
|
|
||||||
Result := theValue = 0;
|
|
||||||
end;
|
|
||||||
|
|
||||||
constructor TJDateCtrl.Create(widget: TCustomEdit);
|
|
||||||
begin
|
|
||||||
myEdit:= widget;
|
|
||||||
myEdit.OnEnter:= @myEditEnter;
|
|
||||||
myEdit.OnExit:= @myEditExit;
|
|
||||||
myEdit.OnKeyPress:= @OnKeyPress;
|
|
||||||
myEdit.caption:= ''; // avoid prev input
|
|
||||||
theValue:= now;
|
|
||||||
format:= 'dd/mm/yyyy';
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,128 +0,0 @@
|
|||||||
object Form1: TForm1
|
|
||||||
Left = 334
|
|
||||||
Height = 300
|
|
||||||
Top = 239
|
|
||||||
Width = 400
|
|
||||||
ActiveControl = Edit2
|
|
||||||
Caption = 'Form1'
|
|
||||||
ClientHeight = 300
|
|
||||||
ClientWidth = 400
|
|
||||||
OnCreate = FormCreate
|
|
||||||
OnDestroy = FormDestroy
|
|
||||||
LCLVersion = '0.9.31'
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 8
|
|
||||||
Height = 18
|
|
||||||
Top = 40
|
|
||||||
Width = 92
|
|
||||||
Caption = 'Currency Input'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Edit2: TEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 37
|
|
||||||
Width = 104
|
|
||||||
Alignment = taRightJustify
|
|
||||||
TabOrder = 0
|
|
||||||
Text = 'Edit2'
|
|
||||||
end
|
|
||||||
object Edit3: TEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 64
|
|
||||||
Width = 104
|
|
||||||
Alignment = taRightJustify
|
|
||||||
TabOrder = 1
|
|
||||||
Text = 'Edit3'
|
|
||||||
end
|
|
||||||
object Edit4: TEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 91
|
|
||||||
Width = 104
|
|
||||||
Alignment = taRightJustify
|
|
||||||
TabOrder = 2
|
|
||||||
Text = 'Edit4'
|
|
||||||
end
|
|
||||||
object BitBtn1: TBitBtn
|
|
||||||
Left = 304
|
|
||||||
Height = 34
|
|
||||||
Top = 256
|
|
||||||
Width = 88
|
|
||||||
Caption = '&Close'
|
|
||||||
Kind = bkClose
|
|
||||||
OnClick = BitBtn1Click
|
|
||||||
TabOrder = 4
|
|
||||||
end
|
|
||||||
object LabeledEdit1: TLabeledEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 118
|
|
||||||
Width = 104
|
|
||||||
Alignment = taRightJustify
|
|
||||||
EditLabel.AnchorSideLeft.Control = LabeledEdit1
|
|
||||||
EditLabel.AnchorSideTop.Control = LabeledEdit1
|
|
||||||
EditLabel.AnchorSideTop.Side = asrCenter
|
|
||||||
EditLabel.AnchorSideRight.Control = LabeledEdit1
|
|
||||||
EditLabel.AnchorSideBottom.Control = LabeledEdit1
|
|
||||||
EditLabel.Left = 9
|
|
||||||
EditLabel.Height = 18
|
|
||||||
EditLabel.Top = 122
|
|
||||||
EditLabel.Width = 124
|
|
||||||
EditLabel.Caption = 'TLabeledEdit control'
|
|
||||||
EditLabel.ParentColor = False
|
|
||||||
LabelPosition = lpLeft
|
|
||||||
TabOrder = 3
|
|
||||||
Text = '123'
|
|
||||||
end
|
|
||||||
object LabeledEdit2: TLabeledEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 144
|
|
||||||
Width = 104
|
|
||||||
Alignment = taRightJustify
|
|
||||||
EditLabel.AnchorSideLeft.Control = LabeledEdit2
|
|
||||||
EditLabel.AnchorSideTop.Control = LabeledEdit2
|
|
||||||
EditLabel.AnchorSideTop.Side = asrCenter
|
|
||||||
EditLabel.AnchorSideRight.Control = LabeledEdit2
|
|
||||||
EditLabel.AnchorSideBottom.Control = LabeledEdit2
|
|
||||||
EditLabel.Left = 37
|
|
||||||
EditLabel.Height = 18
|
|
||||||
EditLabel.Top = 148
|
|
||||||
EditLabel.Width = 96
|
|
||||||
EditLabel.Caption = 'Integer number'
|
|
||||||
EditLabel.ParentColor = False
|
|
||||||
LabelPosition = lpLeft
|
|
||||||
TabOrder = 5
|
|
||||||
end
|
|
||||||
object LabeledEdit3: TLabeledEdit
|
|
||||||
Left = 136
|
|
||||||
Height = 27
|
|
||||||
Top = 176
|
|
||||||
Width = 104
|
|
||||||
EditLabel.AnchorSideLeft.Control = LabeledEdit3
|
|
||||||
EditLabel.AnchorSideTop.Control = LabeledEdit3
|
|
||||||
EditLabel.AnchorSideTop.Side = asrCenter
|
|
||||||
EditLabel.AnchorSideRight.Control = LabeledEdit3
|
|
||||||
EditLabel.AnchorSideBottom.Control = LabeledEdit3
|
|
||||||
EditLabel.Left = 69
|
|
||||||
EditLabel.Height = 18
|
|
||||||
EditLabel.Top = 180
|
|
||||||
EditLabel.Width = 64
|
|
||||||
EditLabel.Caption = 'Date input'
|
|
||||||
EditLabel.ParentColor = False
|
|
||||||
LabelPosition = lpLeft
|
|
||||||
TabOrder = 6
|
|
||||||
end
|
|
||||||
object Button1: TButton
|
|
||||||
Left = 248
|
|
||||||
Height = 27
|
|
||||||
Top = 176
|
|
||||||
Width = 44
|
|
||||||
AutoSize = True
|
|
||||||
Caption = 'Date?'
|
|
||||||
OnClick = Button1Click
|
|
||||||
TabOrder = 7
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,42 +0,0 @@
|
|||||||
LazarusResources.Add('TForm1','FORMDATA',[
|
|
||||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'N'#1#6'Height'#3','#1#3'Top'#3#239#0#5'Wi'
|
|
||||||
+'dth'#3#144#1#13'ActiveControl'#7#5'Edit2'#7'Caption'#6#5'Form1'#12'ClientHe'
|
|
||||||
+'ight'#3','#1#11'ClientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#9'OnDestr'
|
|
||||||
+'oy'#7#11'FormDestroy'#10'LCLVersion'#6#6'0.9.31'#0#6'TLabel'#6'Label1'#4'Le'
|
|
||||||
+'ft'#2#8#6'Height'#2#18#3'Top'#2'('#5'Width'#2'\'#7'Caption'#6#14'Currency I'
|
|
||||||
+'nput'#11'ParentColor'#8#0#0#5'TEdit'#5'Edit2'#4'Left'#3#136#0#6'Height'#2#27
|
|
||||||
+#3'Top'#2'%'#5'Width'#2'h'#9'Alignment'#7#14'taRightJustify'#8'TabOrder'#2#0
|
|
||||||
+#4'Text'#6#5'Edit2'#0#0#5'TEdit'#5'Edit3'#4'Left'#3#136#0#6'Height'#2#27#3'T'
|
|
||||||
+'op'#2'@'#5'Width'#2'h'#9'Alignment'#7#14'taRightJustify'#8'TabOrder'#2#1#4
|
|
||||||
+'Text'#6#5'Edit3'#0#0#5'TEdit'#5'Edit4'#4'Left'#3#136#0#6'Height'#2#27#3'Top'
|
|
||||||
+#2'['#5'Width'#2'h'#9'Alignment'#7#14'taRightJustify'#8'TabOrder'#2#2#4'Text'
|
|
||||||
+#6#5'Edit4'#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#3'0'#1#6'Height'#2'"'#3'Top'#3
|
|
||||||
+#0#1#5'Width'#2'X'#7'Caption'#6#6'&Close'#4'Kind'#7#7'bkClose'#7'OnClick'#7
|
|
||||||
+#12'BitBtn1Click'#8'TabOrder'#2#4#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Le'
|
|
||||||
+'ft'#3#136#0#6'Height'#2#27#3'Top'#2'v'#5'Width'#2'h'#9'Alignment'#7#14'taRi'
|
|
||||||
+'ghtJustify EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit1'#31'EditLabe'
|
|
||||||
+'l.AnchorSideTop.Control'#7#12'LabeledEdit1'#28'EditLabel.AnchorSideTop.Side'
|
|
||||||
+#7#9'asrCenter!EditLabel.AnchorSideRight.Control'#7#12'LabeledEdit1"EditLabe'
|
|
||||||
+'l.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Left'#2#9#16'Ed'
|
|
||||||
+'itLabel.Height'#2#18#13'EditLabel.Top'#2'z'#15'EditLabel.Width'#2'|'#17'Edi'
|
|
||||||
+'tLabel.Caption'#6#20'TLabeledEdit control'#21'EditLabel.ParentColor'#8#13'L'
|
|
||||||
+'abelPosition'#7#6'lpLeft'#8'TabOrder'#2#3#4'Text'#6#3'123'#0#0#12'TLabeledE'
|
|
||||||
+'dit'#12'LabeledEdit2'#4'Left'#3#136#0#6'Height'#2#27#3'Top'#3#144#0#5'Width'
|
|
||||||
+#2'h'#9'Alignment'#7#14'taRightJustify EditLabel.AnchorSideLeft.Control'#7#12
|
|
||||||
+'LabeledEdit2'#31'EditLabel.AnchorSideTop.Control'#7#12'LabeledEdit2'#28'Edi'
|
|
||||||
+'tLabel.AnchorSideTop.Side'#7#9'asrCenter!EditLabel.AnchorSideRight.Control'
|
|
||||||
+#7#12'LabeledEdit2"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit2'#14
|
|
||||||
+'EditLabel.Left'#2'%'#16'EditLabel.Height'#2#18#13'EditLabel.Top'#3#148#0#15
|
|
||||||
+'EditLabel.Width'#2'`'#17'EditLabel.Caption'#6#14'Integer number'#21'EditLab'
|
|
||||||
+'el.ParentColor'#8#13'LabelPosition'#7#6'lpLeft'#8'TabOrder'#2#5#0#0#12'TLab'
|
|
||||||
+'eledEdit'#12'LabeledEdit3'#4'Left'#3#136#0#6'Height'#2#27#3'Top'#3#176#0#5
|
|
||||||
+'Width'#2'h EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit3'#31'EditLabe'
|
|
||||||
+'l.AnchorSideTop.Control'#7#12'LabeledEdit3'#28'EditLabel.AnchorSideTop.Side'
|
|
||||||
+#7#9'asrCenter!EditLabel.AnchorSideRight.Control'#7#12'LabeledEdit3"EditLabe'
|
|
||||||
+'l.AnchorSideBottom.Control'#7#12'LabeledEdit3'#14'EditLabel.Left'#2'E'#16'E'
|
|
||||||
+'ditLabel.Height'#2#18#13'EditLabel.Top'#3#180#0#15'EditLabel.Width'#2'@'#17
|
|
||||||
+'EditLabel.Caption'#6#10'Date input'#21'EditLabel.ParentColor'#8#13'LabelPos'
|
|
||||||
+'ition'#7#6'lpLeft'#8'TabOrder'#2#6#0#0#7'TButton'#7'Button1'#4'Left'#3#248#0
|
|
||||||
+#6'Height'#2#27#3'Top'#3#176#0#5'Width'#2','#8'AutoSize'#9#7'Caption'#6#5'Da'
|
|
||||||
+'te?'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#7#0#0#0
|
|
||||||
]);
|
|
||||||
@ -1,86 +0,0 @@
|
|||||||
unit main;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
||||||
StdCtrls, jinpututils, Buttons, ExtCtrls, Spin, LCLType, EditBtn;
|
|
||||||
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TForm1 }
|
|
||||||
|
|
||||||
TForm1 = class(TForm)
|
|
||||||
BitBtn1: TBitBtn;
|
|
||||||
Button1: TButton;
|
|
||||||
Edit2: TEdit;
|
|
||||||
Edit3: TEdit;
|
|
||||||
Edit4: TEdit;
|
|
||||||
Label1: TLabel;
|
|
||||||
LabeledEdit1: TLabeledEdit;
|
|
||||||
LabeledEdit2: TLabeledEdit;
|
|
||||||
LabeledEdit3: TLabeledEdit;
|
|
||||||
procedure BitBtn1Click(Sender: TObject);
|
|
||||||
procedure Button1Click(Sender: TObject);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure FormDestroy(Sender: TObject);
|
|
||||||
private
|
|
||||||
{ private declarations }
|
|
||||||
campoImporte : TJCurrencyCtrl;
|
|
||||||
campoLitros : TJCurrencyCtrl;
|
|
||||||
campoGrados : TJCurrencyCtrl;
|
|
||||||
campoEntero : TJIntegerCtrl;
|
|
||||||
campoFecha : TJDateCtrl;
|
|
||||||
public
|
|
||||||
{ public declarations }
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
Form1: TForm1;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
|
|
||||||
{ TForm1 }
|
|
||||||
|
|
||||||
procedure TForm1.FormCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
campoImporte:= TJCurrencyCtrl.Create(Edit2);
|
|
||||||
campoLitros:= TJCurrencyCtrl.Create(Edit3, 2, '#,0.0000 L');
|
|
||||||
campoGrados:= TJCurrencyCtrl.Create(LabeledEdit1);
|
|
||||||
campoGrados.format:= '#,0.00 º';
|
|
||||||
campoEntero:= TJIntegerCtrl.Create(LabeledEdit2);
|
|
||||||
campoEntero.format := ',0 º';
|
|
||||||
campoFecha := TJDateCtrl.Create(LabeledEdit3);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.BitBtn1Click(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Application.Terminate;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TForm1.Button1Click(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if campoFecha.isNull then
|
|
||||||
ShowMessage('No Date')
|
|
||||||
else
|
|
||||||
ShowMessage('has Date');
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TForm1.FormDestroy(Sender: TObject);
|
|
||||||
begin
|
|
||||||
campoImporte.Free;
|
|
||||||
campoLitros.Free;
|
|
||||||
campoGrados.Free;
|
|
||||||
campoEntero.Free;
|
|
||||||
campoFecha.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
{$I main.lrs}
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,81 +0,0 @@
|
|||||||
<?xml version="1.0"?>
|
|
||||||
<CONFIG>
|
|
||||||
<ProjectOptions>
|
|
||||||
<Version Value="9"/>
|
|
||||||
<General>
|
|
||||||
<MainUnit Value="0"/>
|
|
||||||
<UseXPManifest Value="True"/>
|
|
||||||
</General>
|
|
||||||
<VersionInfo>
|
|
||||||
<Language Value=""/>
|
|
||||||
<CharSet Value=""/>
|
|
||||||
<StringTable ProductVersion=""/>
|
|
||||||
</VersionInfo>
|
|
||||||
<BuildModes Count="1">
|
|
||||||
<Item1 Name="default" Default="True"/>
|
|
||||||
</BuildModes>
|
|
||||||
<PublishOptions>
|
|
||||||
<Version Value="2"/>
|
|
||||||
<DestinationDirectory Value="$(TestDir)/testnodbinput/"/>
|
|
||||||
<IgnoreBinaries Value="False"/>
|
|
||||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
|
||||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
|
||||||
</PublishOptions>
|
|
||||||
<RunParams>
|
|
||||||
<local>
|
|
||||||
<FormatVersion Value="1"/>
|
|
||||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
|
||||||
</local>
|
|
||||||
</RunParams>
|
|
||||||
<RequiredPackages Count="1">
|
|
||||||
<Item1>
|
|
||||||
<PackageName Value="LCL"/>
|
|
||||||
</Item1>
|
|
||||||
</RequiredPackages>
|
|
||||||
<Units Count="4">
|
|
||||||
<Unit0>
|
|
||||||
<Filename Value="testnuminput.lpr"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="testnuminput"/>
|
|
||||||
</Unit0>
|
|
||||||
<Unit1>
|
|
||||||
<Filename Value="main.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<ComponentName Value="Form1"/>
|
|
||||||
<ResourceBaseClass Value="Form"/>
|
|
||||||
<UnitName Value="main"/>
|
|
||||||
</Unit1>
|
|
||||||
<Unit2>
|
|
||||||
<Filename Value="jinpututils.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="jinpututils"/>
|
|
||||||
</Unit2>
|
|
||||||
<Unit3>
|
|
||||||
<Filename Value="jcontrolutils.pas"/>
|
|
||||||
<IsPartOfProject Value="True"/>
|
|
||||||
<UnitName Value="jcontrolutils"/>
|
|
||||||
</Unit3>
|
|
||||||
</Units>
|
|
||||||
</ProjectOptions>
|
|
||||||
<CompilerOptions>
|
|
||||||
<Version Value="10"/>
|
|
||||||
<SearchPaths>
|
|
||||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
|
||||||
</SearchPaths>
|
|
||||||
<Parsing>
|
|
||||||
<SyntaxOptions>
|
|
||||||
<UseAnsiStrings Value="False"/>
|
|
||||||
</SyntaxOptions>
|
|
||||||
</Parsing>
|
|
||||||
<Linking>
|
|
||||||
<Options>
|
|
||||||
<Win32>
|
|
||||||
<GraphicApplication Value="True"/>
|
|
||||||
</Win32>
|
|
||||||
</Options>
|
|
||||||
</Linking>
|
|
||||||
<Other>
|
|
||||||
<CompilerPath Value="$(CompPath)"/>
|
|
||||||
</Other>
|
|
||||||
</CompilerOptions>
|
|
||||||
</CONFIG>
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
program testnuminput;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
uses
|
|
||||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
||||||
cthreads,
|
|
||||||
{$ENDIF}
|
|
||||||
clocale,
|
|
||||||
{$ENDIF}
|
|
||||||
Interfaces, // this includes the LCL widgetset
|
|
||||||
Forms
|
|
||||||
{ you can add units after this }, main, jcontrolutils, LResources;
|
|
||||||
|
|
||||||
{$IFDEF WINDOWS}{$R testnuminput.rc}{$ENDIF}
|
|
||||||
|
|
||||||
begin
|
|
||||||
{$I testnuminput.lrs}
|
|
||||||
Application.Initialize;
|
|
||||||
Application.CreateForm(TForm1, Form1);
|
|
||||||
Application.Run;
|
|
||||||
end.
|
|
||||||
|
|
||||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user