[HeDiBo]

These are some putters for TsRoundBtn:

Code:

property ImageIndexDisabled:integer index 13 read FImageIndexDisabled write SetInteger default -1;
property ImageIndexSelected:integer index 13 read FImageIndexSelected write SetInteger default -1;

Obviously one of the indexes is wrong.

So, the putters are wrong also.

It should be:

Code:

property ImageIndexDisabled:integer index 13 read FImageIndexDisabled write SetInteger default -1;
property ImageIndexSelected:integer index 14 read FImageIndexSelected write SetInteger default -1;
…..
case Index of
10: ChangeProp(FImageIndex, Value);
11: ChangeProp(FImageIndexHot, Value);
12: ChangeProp(FImageIndexPressed, Value);
13: ChangeProp(FImageIndexDisabled, Value);
// Added:
14: ChangeProp(FImageIndexSelected, Value);

In a way, I'm glad this mistake popped up. It illustrates my aversion of this type of construct. It all compiles well, but in the end it does not work. And these kind of mistakes are easily made with these constructs.

[Support]

Thank you, I will fix it.

[Author]

Posts