Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0006509 [JEDI VCL] General API block always 2016-04-25 15:14 2016-08-06 13:42
Reporter acgubamg View Status public  
Assigned To AHUser
Priority normal Resolution fixed  
Status resolved   Product 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;
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0021349)
AHUser (developer)
2016-08-06 13:41

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-04-25 15:15 acgubamg Issue Monitored: acgubamg
2016-04-25 15:15 acgubamg Issue End Monitor: acgubamg
2016-05-27 13:45 acgubamg Issue Monitored: acgubamg
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


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker