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.

[newuser01]

Fehler: RoundButton.res nicht gefunden

[Sunlight7]

Ja die muß man erst machen...

Aber ich könnte mal meine als Beispiel hinzufügen?

[newuser01]

kannst du machen

[Sunlight7]

Hmm, wo hab ich die bloß wieder hingespeichert?

Ach da is sie ja, hier bitte, oben zu finden.

[dino]

wenn man nen button nach dem klick loslässt, ist die Maus doch immernoch drauf...
trotzdem wird der button icht mehr so markiert

[Namenloser]

Zitat von Sunlight7:

PPS: Kann mal wer probieren, ob diese Funktion in neueren Delphi Versionen auch nen internen Fehler verursacht?!

Delphi-Quellcode:

function GetPixel(Bitmap:TBitmap; const x, y:Integer):LongInt;
   var sl:PByteArray;
begin
   sl:=Bitmap.ScanLine[y];
   Result:=RGB(sl[(x * 3)+2],
               sl[(x * 3)+1],
               sl[(x * 3)+0]);
end;

Zitat von Delphi 5.0 Compiler:

interner Fehler C1569

Das hat mich was genervt...

das ist jetzt mehr oder weniger ins Blaue getippt, aber könnte das vielleicht eher etwas mit dem Bitmap-Format zu tun haben?
Außerdem bin ich mir nicht sicher, ob Scanline in diesem Falle tatsächlich schneller ist als Canvas.Pixels

[newuser01]

Funktioniert soweit ganz gut. Der Hit wäre noch wenn man die Komponente einfach auf der Form zieht die eigenen Grafiken einbinden könnte also für ButtonActive,ButtonInctive,ButtonPush und so weiter und die ASnzahl der Schaltflächen bestimmen könnte

Ich weiß ich bin unverschämt

[Sunlight7]

Zitat von NamenLozer:

das ist jetzt mehr oder weniger ins Blaue getippt, aber könnte das vielleicht eher etwas mit dem Bitmap-Format zu tun haben?
Außerdem bin ich mir nicht sicher, ob Scanline in diesem Falle tatsächlich schneller ist als Canvas.Pixels

Das Bitmap Format würde erst bei der Laufzeit nen Fehler machen, und es ist nicht das Problem, es sind 24 Bit.
Canvas.Pixels (Gähn) ist vieeeel langsamer.

Zitat von dino:

wenn man nen button nach dem klick loslässt, ist die Maus doch immernoch drauf...
trotzdem wird der button icht mehr so markiert

Etwas genauer bitte, ich hab da kein Problem

Zitat von newuser01:

Funktioniert soweit ganz gut. Der Hit wäre noch wenn man die Komponente einfach auf der Form zieht die eigenen Grafiken einbinden könnte also für ButtonActive,ButtonInctive,ButtonPush und so weiter und die ASnzahl der Schaltflächen bestimmen könnte.

Ja könnte man, aber dazu mußt Du erst noch überzeugungs Arbeit Leisten.

[Zacherl]

Zitat von dino:

wenn man nen button nach dem klick loslässt, ist die Maus doch immernoch drauf...
trotzdem wird der button icht mehr so markiert

Etwas genauer bitte, ich hab da kein Problem
Er meint, dass der Button grün wird, wenn man die Maus drüberhält, beim Klicken grau wird und nach dem Loslassen grau bleibt, obwohl er wieder grün werden sollte, da die Maus ja immer noch drüber ist.

Florian