Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[Sunlight7]

Das wäre eigentlich alles oben in der Kompo gestanden

Bitte was ist ausgeklammert? Selected
Das steht doch gar nicht drinnen

Wenn Du das meinst:

Delphi-Quellcode:

// property ResDisabled:String     read FResDisabled
//                                 write SetResDisabled;

Das ist noch in Planung...
Da muß ich mich erst noch mit dem Property-Editor spielen, um ein Array of Boolean einzubauen...


Danke, was alles so entsteht, wenn man wissen will, ob eine Idee auch umsetzbar ist...

PS: Nicht vergessen:

• Einen Screenshot hier posten damit man sehen kann, was daraus gemacht wurde

[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.

[Coder]

hat nich noch einer den Code für Delphi 3 ?

[Sunlight7]

Ich ihn noch für Delphi 2
Aber das nützt Dir nix, würde bei Dir nicht laufen

Kann Delphi 3 noch nicht TBitmap.ScanLine?
Wenn doch, kannst Du die Kompo verwenden.
Ich hab Delphi 5+ geschrieben, weil ich nicht weiß, ab welcher Version ScanLine drinnen ist

[Sunlight7]

Ich hab ihn noch für Delphi 2
Aber das nützt Dir nix, würde bei Dir nicht laufen

Für Delphi 3 kann ihn keiner haben, das wurde von mir nicht veröffentlicht...

Kann Delphi 3 noch nicht TBitmap.ScanLine?
Wenn doch, kannst Du die Kompo verwenden.
Ich hab Delphi 5+ geschrieben, weil ich nicht weiß, ab welcher Version ScanLine drinnen ist

Edit: Also das mit dem Editieren hat ich mir anders vorgestellt
Wenn mal ein Modi vorbeischaut: die beiden Beiträge kann man verschmelzen

[Coder]

mhh, ja Scanline ist ab der 3er wohl drin.

[Sunlight7]

Na dann probier's halt mal...

[Sunlight7]

Zitat von ACE-ppc:

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('');

Warum so umständlich?
Es hätte genügt, das "="-Zeichen raus zu nehmen, das war der Fehler

Zitat von ACE-ppc:

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

Was meinst Du damit "dazubekomme"?
Du bräuchtest da nur MousePressed und LastBtn, einer Eigenschaft zuweisen

Edit: Das mit dem Disabled hab ich eingebaut, aber wie ich das in den Objekt Inspektor rein bringen soll weiß ich noch nicht.

[TKC]

Zitat von Sunlight7:

Zitat von ACE-ppc:

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

Was meinst Du damit "dazubekomme"?
Du bräuchtest da nur MousePressed und LastBtn, einer Eigenschaft zuweisen

Das mit dem Disabled hab ich eingebaut, aber wie ich das in den Objekt Inspektor rein bringen soll weiß ich noch nicht.

Hab ich auch schon überlegt ... evtl mit ner Stringlist (1=SELECTED,5=DOWN) oder so ähnlich.

Hast du den geänderten Quellcode schon im 1. Post ?

[Sunlight7]

Nö, hab ich noch nicht, das möcht' ich erst nochmal durchtesten, nicht das da wieder ein "=" zuviel drinnen steht

Zitat von ACE-ppc:

Hab ich auch schon überlegt ... evtl mit ner Stringlist (1=SELECTED,5=DOWN) oder so ähnlich

Das verstehe ich nicht ganz, wofür?

Welcher Button was macht kann man in den MouseEvents erfahren (Variable BTN).