Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[TKC]

Hallo,

ist irgendwie nicht mein Tag heute ... habe das in der Unit der Kompo doch glatt übersehen.
Mit dem Selected war natürlich Disabled gemeint.

Ein Problem hab ich noch ... bei der 1. schaltfläche bekomme ich ein Index out of Bounds(1) beim Mouseover.

Das sind die Hints ... ich benutze jedoch gar keine momentan !

Hab es jetzt für mich so gelöst:

Delphi-Quellcode:

  if temp > 0 then
    begin
      if (ShowHint) and (FHintList.Count >= temp) then
        ChangeHint(FHintList[temp])
      else
        ChangeHint('');

      if Assigned(FOnMouseMove) then
        FOnMouseMove(Self, temp, Shift, X, Y);
    end
  else
    ChangeHint('');

Ich werde mal sehen ob ich noch ne Eigenschaft Selected(oder Button down) dazubekomme.