I Add some code at TDateEdit
TDateEdit = class(TCustomEditButton)
private
FDefaultToday: Boolean;
FDialogTitle: TCaption;
FDisplaySettings: TDisplaySettings;
FOnAcceptDate: TAcceptDateEvent;
FOnCustomDate: TCustomDateEvent;
FOKCaption: TCaption;
FCancelCaption: TCaption;
FDateFormat: string;
function GetDate: TDateTime;
function IsStoreTitle: boolean;
procedure SetDate(Value: TDateTime);
procedure CalendarPopupReturnDate(Sender: TObject; const ADate: TDateTime);
protected
function GetDefaultGlyph: TBitmap; override;
function GetDefaultGlyphName: String; override;
procedure DoButtonClick(Sender: TObject); override;
procedure DblClick; override;
procedure DoExit; override; <- This
procedure TDateEdit.DoExit;
var
_date:TDateTime;
begin
if Text<>'' then
if TryStrToDate(Text,_date) then
begin
text:=DateToStr(_date);
exit;
end;
Text:=DateToStr(now);
inherited DoExit;
end;
The main purpose is to make more easy
When you type only "21" at this DateEdit then you tab it's you have complete
date
=============INTOSOFT============
ALEXIO CHAOS
[email protected]
Yahoo Messager
=================================
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
