Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 5 of 5 total
Thread Can't select a one item combobox
Mon, Feb 3 2014 9:20 AMPermanent Link

Sergei Safar

Hi,

try this please:

New project (visual)
Drop a TComboBox
Click Items property and type, for example, 2014 (just one item)
Press F9 - Run
Press backspace to clear the combobox content
Click the down arrow and try to select the an item

The same behavior on IE, Chrome and Fox

Best regards,
Sergei Safar
Mon, Feb 3 2014 10:08 AMPermanent Link

Matthew Jones

> Press backspace to clear the combobox content

Clicking the X does this too, and the clue is that even with more than one item,
you cannot reselect the one that was selected when you cleared it. Thus "one, two,
three", select two, click the X, and you can now select one or three but not two.

/Matthew Jones/
Tue, Feb 4 2014 5:46 AMPermanent Link

Sergei Safar

Hi,

try this one:

Drop a TComboBox
Click Items property and type 2014 (just one item)
Clear the Text property
Press F9 - Run
It's not possible to select the item

Best regards,
Sergei Safar
Tue, Feb 4 2014 8:35 AMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Sergei,

<< try this please: >>

This was a weird one - it was caused by the partial match functionality in
the TStrings.IndexOf method:

WebCore unit:

function TStrings.IndexOf(const Value: String; StartIndex: Integer=0;
                         PartialMatch: Boolean=False): Integer;
var
  I: Integer;
begin
  Result:=-1;
  if PartialMatch and (Value <> '') then  // Add the Value comparison
     begin
     for I:=StartIndex to Count-1 do
        begin
        if SameText(Copy(GetString(I),1,Length(Value)),Value) then
           begin
           Result:=I;
           Break;
           end;
        end;
     end
  else
     begin
     for I:=StartIndex to Count-1 do
        begin
        if SameText(GetString(I),Value) then
           begin
           Result:=I;
           Break;
           end;
        end;
     end;
end;

A fix will be in build 3.

Tim Young
Elevate Software
www.elevatesoft.com
Tue, Feb 4 2014 8:37 AMPermanent Link

Tim Young [Elevate Software]

Elevate Software, Inc.

Avatar

Email timyoung@elevatesoft.com

Sergei,

<< try this one: >>

This is the same issue.

Tim Young
Elevate Software
www.elevatesoft.com
Image