View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0001861JEDI VCL00 JVCL Componentspublic2004-06-15 00:022004-06-25 05:00
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityminorReproducibilityrandom
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001861: JvUpDown: Increment value is not kept, and resets to 1
DescriptionUsing the Object inspector and setting TjvUpDown.Increment to a large value ec. 15000. It is lost during a F9, ctrl+F9 and resets to 1.
Setting the value in code gives the same result, not as often though.
TagsNo tags attached.

Activities

anonymous

2004-06-15 00:15

viewer   ~0004558

If used on TabSheets, it is reproduceable.

Updowns(UD) on different Tabs, The UD on the Tab showing at compiletime will keep the value. The UD on another Tab will lose the information and have increment=1

user72

2004-06-16 05:20

  ~0004570

Fix:

procedure TJvCustomUpDown.CreateWnd;
const
  cBase: array [TJvUpDownFormat] of Integer = (10, 16);
var
  OrigWidth: Integer;
  AccelArray: array [0..0] of TUDAccel;
begin
  OrigWidth := Width;
  inherited CreateWnd;
  Width := OrigWidth;
  if FAssociate <> nil then
  begin
    UndoAutoResizing(Associate);
    SendMessage(Handle, UDM_SETBUDDY, FAssociate.Handle, 0);
  end;
  SendMessage(Handle, UDM_SETRANGE32, FMin, FMax);
  SendMessage(Handle, UDM_SETBASE, cBase[Format], 0);
  SendMessage(Handle, UDM_GETACCEL, 1, Longint(@AccelArray));
  AccelArray[0].nInc := FIncrement;
  SendMessage(Handle, UDM_SETACCEL, 1, Longint(@AccelArray));
  SetPosition(Position);
  SetAssociate(FAssociate);
end;

user72

2004-06-25 05:00

  ~0004623

No reply, so assuming it works (already in CVS)

Issue History

Date Modified Username Field Change
2004-06-15 00:02 anonymous New Issue
2004-06-15 00:15 anonymous Note Added: 0004558
2004-06-16 05:20 user72 Note Added: 0004570
2004-06-16 05:20 user72 Status new => assigned
2004-06-16 05:20 user72 Assigned To => user72
2004-06-16 05:21 user72 Status assigned => feedback
2004-06-16 05:21 user72 Summary jvUpDown Increment value is not kept, and resets to 1 => JvUpDown: Increment value is not kept, and resets to 1
2004-06-25 05:00 user72 Status feedback => resolved
2004-06-25 05:00 user72 Resolution open => fixed
2004-06-25 05:00 user72 Note Added: 0004623