Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 3 | daniel-mar | 1 | |
| 2 | procedure TForm1.qryBugsAfterScroll(DataSet: TDataSet); |
||
| 3 | begin |
||
| 4 | DateTimePicker1.DateTime := qryBugs.FieldByName('fixdatum').AsDateTime; |
||
| 5 | end; |
||
| 6 | |||
| 7 | procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); |
||
| 8 | begin |
||
| 9 | LockWindowUpdate(DBGrid1.Handle); |
||
| 10 | if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit; |
||
| 11 | qryBugs.FieldByName('fixdatum').AsDateTime := DateTimePicker1.DateTime; |
||
| 12 | LockWindowUpdate(0); |
||
| 13 | end; |
||
| 14 |