View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0006509 | JEDI VCL | General API | public | 2016-04-25 15:14 | 2016-08-06 13:42 |
| Reporter | acgubamg | Assigned To | AHUser | ||
| Priority | normal | Severity | block | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Platform | Microsoft | OS | Windows | OS Version | 10 |
| Product Version | |||||
| Target Version | Fixed in Version | ||||
| Summary | 0006509: procedure TJvDBComboEdit.DataChange(Sender: TObject); | ||||
| Description | Rad Studio XE2 On procedure below: in line: if (FDataLink.Field.DataType = ftString) and (MaxLength = 0) then I think that correct is: with "ftWideString" if (FDataLink.Field.DataType in [ftString, ftWideString]) and (MaxLength = 0) then ********************************************************************** ---- See the procedure from last buil 2016-04-25 08:32:42 UTC procedure TJvDBComboEdit.DataChange(Sender: TObject); begin if FDataLink.Field <> nil then begin if Alignment <> FDataLink.Field.Alignment then begin EditText := ''; {forces update} Alignment := FDataLink.Field.Alignment; end; EditMask := FDataLink.Field.EditMask; if not (csDesigning in ComponentState) then if (FDataLink.Field.DataType = ftString) and (MaxLength = 0) then MaxLength := FDataLink.Field.Size; if FFocused and FDataLink.CanModify then Text := FDataLink.Field.Text else begin EditText := FDataLink.Field.DisplayText; {if FDataLink.Editing then Modified := True;} end; end else begin Alignment := taLeftJustify; EditMask := ''; if csDesigning in ComponentState then EditText := Name else EditText := ''; end; end; | ||||
| Steps To Reproduce | see source code | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2016-04-25 15:14 | acgubamg | New Issue | |
| 2016-04-25 15:14 | acgubamg | Status | new => assigned |
| 2016-04-25 15:14 | acgubamg | Assigned To | => ChristianWimmer |
| 2016-08-06 13:41 | AHUser | Note Added: 0021349 | |
| 2016-08-06 13:41 | AHUser | Status | assigned => resolved |
| 2016-08-06 13:41 | AHUser | Resolution | open => fixed |
| 2016-08-06 13:41 | AHUser | Assigned To | ChristianWimmer => |
| 2016-08-06 13:41 | AHUser | Status | resolved => feedback |
| 2016-08-06 13:41 | AHUser | Resolution | fixed => reopened |
| 2016-08-06 13:41 | AHUser | Project | JEDI API & WSC Library => JEDI VCL |
| 2016-08-06 13:42 | AHUser | Status | feedback => resolved |
| 2016-08-06 13:42 | AHUser | Resolution | reopened => fixed |
| 2016-08-06 13:42 | AHUser | Assigned To | => AHUser |
