View Issue Details

IDProjectCategoryView StatusLast Update
0006509JEDI VCLGeneral APIpublic2016-08-06 13:42
ReporteracgubamgAssigned ToAHUser 
PrioritynormalSeverityblockReproducibilityalways
Status resolvedResolutionfixed 
PlatformMicrosoftOSWindowsOS Version10
Product Version 
Target VersionFixed in Version 
Summary0006509: procedure TJvDBComboEdit.DataChange(Sender: TObject);
DescriptionRad 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 Reproducesee source code
TagsNo tags attached.

Activities

AHUser

2016-08-06 13:41

developer   ~0021349

Fixed in master branch.

Issue History

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