DBDateEdit
lazarus / 7-LCL

----------------------------------------------------------------------
wOvAN · 2009-11-13 05:34

Hello, everyone.

I did a very little job, wrote TDBDateEdit component inherited from
TDateEdit and based on implementation of TDBEdit, made some
corrections and it seems to work.

I would be glad if someone could  do the rest and place it into LCL.

TO DO:

LCL Changes:

procedure "CalendarPopupReturnDate" of class "TDateEdit" in unit
"editbtn" moved to, at least  "protected" section, and must be
declared "virtual".


Code: [Select]protected
    procedure CalendarPopupReturnDate(Sender: TObject; const ADate:
TDateTime); virtual;
Draw the component's icon.Make a part of LCL

----------------------------------------------------------------------
wOvAN · 2009-11-15 17:58

just yet tested TDateEdit on "StayOnTop" form and cought a bug, the
calendar window (of course) popups behind the parent form.
in CalendarPopup unit, since that, i suggest change procedure
"ShowCalendarPopup" by setting 
PopupForm.FormStyle always to fsStayOnTop.


something like this:
Code: [Select]procedure ShowCalendarPopup(const Position: TPoint;
ADate: TDateTime;
                            OnReturnDate: TReturnDateEvent);
var
  PopupForm: TCalendarPopupForm;
begin
  PopupForm := TCalendarPopupForm.Create(nil);
  PopupForm.Initialize(Position, ADate);
  PopupForm.FOnReturnDate := OnReturnDate;
 
{Let it be on TOP}
  PopupForm.FormStyle:=fsStayOnTop;
 
  //TODO: Change to PopupForm.Show when gtk supports non modal forms
on top of
  //modal forms.
  {$IFDEF windows}
  PopupForm.Show;
  {$ELSE}
  PopupForm.ShowModal;
  {$ENDIF}
end;      

Also: i'm not an expert in GTK, but maybe the solution might resolve
the showmodal case
Code: [Select]
{$ELSE}
PopupForm.ShowModal;
{$ENDIF}

Thanks for your attention

----------------------------------------------------------------------
LacaK · 2009-11-16 07:16

I think, you should post Feature request in bug tracker (and attach
there your code), to not lost this one ...

----------------------------------------------------------------------
LacaK · 2009-11-23 08:14

Any news in this case ?
Is this FR already in bug tracker ?
or should I post it ?

----------------------------------------------------------------------
LacaK · 2009-11-26 06:38

http://bugs.freepascal.org/view.php?id=15189