[Support]

In the v5.23 code we can see this :

CODE

procedure TsSpeedButton.ActionChange(Sender: TObject; CheckDefaults: Boolean);
begin
  if Glyph.Empty {v4.72} and (TCustomAction(Sender).ActionList.Images nil) and (TCustomAction(Sender).ImageIndex > -1) then Glyph.Assign(nil); // v4.44
  inherited ActionChange(Sender, CheckDefaults);
  if Sender is TCustomAction then DoActionChanging(Self, TCustomAction(Sender));
  FCommonData.Invalidate;
end;

And we hasn't a checking of the TCustomAction(Sender).ActionList there too <img src="style_emoticons//blush.gif” style=”vertical-align:middle” emoid=”:blush:” border=”0″ alt=”blush.gif” />
Seems, you hadn't error in the v5.23 because Glyph property was not empty?

[shadow_tj]

there are images on the speedbuttons yes.

QUOTE (Support @ Apr 21 2009, 06:00 PM)

In the v5.23 code we can see this :

CODE

procedure TsSpeedButton.ActionChange(Sender: TObject; CheckDefaults: Boolean);
begin
  if Glyph.Empty {v4.72} and (TCustomAction(Sender).ActionList.Images nil) and (TCustomAction(Sender).ImageIndex > -1) then Glyph.Assign(nil); // v4.44
  inherited ActionChange(Sender, CheckDefaults);
  if Sender is TCustomAction then DoActionChanging(Self, TCustomAction(Sender));
  FCommonData.Invalidate;
end;

And we hasn't a checking of the TCustomAction(Sender).ActionList there too <img src="style_emoticons//blush.gif” style=”vertical-align:middle” emoid=”:blush:” border=”0″ alt=”blush.gif” />
Seems, you hadn't error in the v5.23 because Glyph property was not empty?

[Author]

Posts