Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

[Sunlight7]

Hallo DPler!

Eigentlich wollt ich nur Wissen, ob meine Idee funktionieren würde, und heraus kam diese Komponente...

Man kann in den Ressourcen die Bitmaps hinterlegen, welche dann als Buttons dargestellt werden.
Auf Deutsch gesagt, man zeichnet die Buttons, und Kompo setzt es um.
Also das ist jetzt schwierig zu beschreiben, am besten, Ihr guckt Euch den Screenshot mal an.

Geschrieben ursprünglich mit Delphi 2, die Komponente zum Download ist jetzt aber für Delphi 5.0+

Neu in V1.5:

• Speed Optimierung, besonders für große Bitmaps
• Eigenschaften:
• EnabledStr & PushedStr: Zur komfortablen Nutzung im OI und zur einfachen Speicherung und Wiederherstellung von Konstellationen für Enabled bzw. Pushed.
• Bugs ausgebügelt.

Neu in V1.4:

• Eigenschaften: PushedButtons & Pushed

V1.3:

• Ressourcen Bitmaps entfernt
• Bitmaps zum OI hinzugefügt, ich hoffe ihr seid jetzt glücklicher

V1.2:

• Eigenschaft Enabled für die Buttons
• Bugfixes im Design-Modus
• Bugfixes mit gedrückter Maustaste
• Timer entfernt (D5+)

V1.1b:

• "Schnelles Maus darüber ziehen Problem behoben"
• TransparentColor:
  • Ein beliebiger Farbwert, oder:
  • clNone: Keine Transparenz
  • clBackground: Die Farbe von Pixels[0, 0] wird verwendet.

Hint:
F: Ist doch eine Standard Eigenschaft?
A: Jein, ich habe aus der Eigenschaft eine StringList gemacht.
Die 0. Zeile bleibt leer, die restlichen Zeilen stehen für den
jeweiligen Button.

ResStandard, .., ResTouchZones
Hier können die Ressourcennamen eingegeben werden, die dann
geladen werden.

Ich weiß, das ist noch nicht das Gewünschte...

Viel Spaß damit!

PS: Wäre schön, wenn Ihr einen Screenshot posten würdet, was ihr damit gemacht habt.

Zitat von Delphi 5.0 Compiler:

interner Fehler C1569

Das hat mich was genervt...

Edit: Demo Exe erneuert.

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