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?!

markieren

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

newuser01 Delphi 7 Professional	#2 13. Okt 2006, 21:22 Fehler: RoundButton.res nicht gefunden
	Zitat

Sunlight7 Delphi 5 Standard	#3 13. Okt 2006, 21:37 Ja die muß man erst machen... Aber ich könnte mal meine als Beispiel hinzufügen?
	Zitat

newuser01 Delphi 7 Professional	#4 13. Okt 2006, 21:40 kannst du machen
	Zitat

Sunlight7 Delphi 5 Standard	#5 13. Okt 2006, 21:45 Hmm, wo hab ich die bloß wieder hingespeichert? Ach da is sie ja, hier bitte, oben zu finden.
	Zitat

dino Delphi 5 Professional	#6 13. Okt 2006, 21:59 wenn man nen button nach dem klick loslässt, ist die Maus doch immernoch drauf... trotzdem wird der button icht mehr so markiert
	Zitat

newuser01 Delphi 7 Professional	#8 13. Okt 2006, 22:08 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
	Zitat

Runde, ovale, diagonale, geschwungene oder sonstwie Buttons

Forumregeln