Button mit Color und Form -Eigenschaften

[cherry]

EButton V2.0.4 - Button mit Color und Form Eigenschaften (All in One)

Package beinhaltet:

- TEButton -> Button mit vielen Farb- und Formeigenschaften
- THideBox -> Ein- Ausklapbares Label mit diversen Farboptionen
- TSSText -> Automatisch scrollender Text mit vielen Farbeigenschaften (neu)

-> neue Features für EButton: unter anderem kann man die Bilder (normal, over, down) jetzt entweder einmitten oder selber positionieren ...

Delphi-Quellcode:

{------------------------------------------------------------------------------}
{  Borland Delphi Visual Component Library                                     }
{                                                                              }
{  EButton.pas - EnemyleftButton                                               }
{                                                                              }
{  Ein Button abgeleitet von TCustomControl.                                   }
{  TEButton bietet alle Eigenschaften und Ereignisse die                       }
{  wir bereits vom herkömmlichen TButton kennen. Darüber hinaus                }
{  hat man grafisch grössere Freiheiten. Farben, Formen, Schriften...          }
{                                                                              }
{  OpenSource:                                                                 }
{                                                                              }
{  Diese Komponente kann beliebig und frei eingesetzt werden.                  }
{  Sie unterliegt keiner rechtlichen Bestimmung.                               }
{  Auch kannst du die Komponente beliebig anpassen oder weiter entwickeln.     }
{                                                                              }
{  Unter ReleaseNotes kannst du deinen Namen hinschreiben und erklären         }
{  was du gemacht hast. ES WERDEN KEINE NAMEN GELÖSCHT. Es wäre nett, wenn     }
{  du nach deinen Änderungen die Komponente wieder öffentlich zur Verfügung    }
{  stellst und die relevanten Personen darüber informierst.                    }                                                        
{                                                                              }
{------------------------------------------------------------------------------}
///////////////////////////////////////////////////////////////////////////////
// TEButton (OS) 2006, Enemyleft                           [email][e-mail][/email]
///////////////////////////////////////////////////////////////////////////////
// ReleaseNotes:
//
// > v1.0.0     14.06.06 - Enemyleft     > Fertiges **RELEASE 1.0**
//
//                                       RELEASE 1.0 Features By Enemyleft
//                                       ---------------------------------
//                                       . button
//                                       . rounded button
//                                       . arrow button left
//                                       . arrow button right
//                                       . horizontal gradient 4 button
//                                       . vertical gradient 4 button
//                                       . many color propertys 4 all
//
//
// > v1.0.1     19.06.06 - Enemyleft     > Fixes and add's
//                                       ---------------------------------
//                                       . gradient bug removed
//                                       . componentsymbol added (enemyleft.dcr)
//
//
// > v1.0.2     26.06.06 - Enemyleft     > Fixes and add's
//                                       ---------------------------------
//                                       . enabled style added
//                                       . property prefix "E" removed
//
//
// > v1.0.3     03.08.06 - Enemyleft     > Fixes and add's
//                                       ---------------------------------
//                                       . less Units more compatibility
//
//
// > v1.0.4     14.08.06 - Enemyleft     > Fixes and add's
//                                       ---------------------------------
//                                       . procedure Click implemented
//
//
// > v1.0.5    28.08.06 - Enemyleft      > Fixes and add's
//                                       ---------------------------------
//                                       . Caption bug fixed
//                                       . Enabled bug fixed
//
//
// > v1.1.0    29.09.06 - Enemyleft      > New feature
//                                       ---------------------------------
//                                       . picture properties
//
//
// > v2.0.0    19.06.07 - Enemyleft      > New features and Bugfix
//                                       ---------------------------------
//                                       . Gradient property 4 ekRounded
//                                       . Gradient property 4 ekArrowRight
//                                       . Gradient property 4 ekArrowLeft
//
//                                       . CMDialogKey bug fixed
//
//
// > v2.0.1    24.08.07 - Enemyleft      > Fixes and add's
//                                       ---------------------------------
//                                       . Picture property bugfix for TIcon
//
//
// > v2.0.2    23.12.08 - Enemyleft      > New Feature
//                                       ---------------------------------
//                                       . New Property CaptionUseOnlyOne
//
//
// > v2.0.3    13.05.09 - Enemyleft      > Add's
//                                       ---------------------------------
//                                       . You can use System Colors now
//                                         e.g. clWindow ...
//                                       . New property: FontDownOnClick
//                                       . New property: PictureDownOnClick
//
//
// > v2.0.4    28.05.09 - Enemyleft      > New Feature
//                                       ---------------------------------
//                                       . You can place the pictures enywhere
//                                       . New property: PicPosMiddle
//                                       . New property: PicsX
//                                       . New property: PicsY
//
//
///////////////////////////////////////////////////////////////////////////////
                                                        {# SPECIAL THANKS TO : }
                                                    { MaBuSE @ DelphiPraxis.de }

ACHTUNG: für die neue Komponente wird das Graphics32 Package benötigt!

[BrainCracked]

na hier, die seite 1...EButton.pas

http://www.delphipraxis.net/internal...ct.php?t=85812

[cherry]

Zitat von Go2EITS:

Generell: Schön wäre ein Link, wie man eine Komponente installiert. Und was zu tun ist, wenn die *.dcu nicht gefunden wurde. Es wird fast bei jeder Kompo diesbezgl. nachgefragt...

Auf diverse Nachfragen werde ich heute noch eine kleine Anleitung, für das installieren der Komponente schreiben!
(Allerdings nur für D7!)

Zitat von Go2EITS:

Zum Programm:
Super. Ich habe mir den Screenshoot angesehen. 2 eher, (sorry) 'häßliche' Icons fallen mir auf:
Die mit dem Gitter und die unattaktiven Pfeile.
Genial wären
a) plastische Pfeile
und
b) 16x16 Grafiken im Button links neben der Schrift.

a)
plastische Pfeile... einfacher gesagt als getan! Dies benötigt leider wieder viel Zeit!!!
Und da ich dies in der Firma mache, kann ich die im Momente leider nicht aufwenden... (vielleicht komme ich später einmal dazu)

b)
die Grafiken im Button sind schon einfacher zu realisieren, dies werde ich bei Gelegenheit sicher tun!

Zitat von Go2EITS:

Und kann ich eigene Designs/Buttons einfügen? (Dumm gefragt... )

Ich kapier die Frage leider nicht! Kannst du die noch etwas umformulieren bitte?

Zitat von Go2EITS:

@Alle
Sonst eine super Sache, Deine Arbeit, die in der DP noch fehlt.
Go2EITS
Nachtrag:
Läuft ohne Probleme unter D7
Und schon in mein Projekt eingebaut!
Watch 0.6 und höher...

Vielen Dank, fühle mich geehrt!

[Go2EITS]

@Cherry

Mit den eigenen Designs/Bildern meine ich Images in den Button legen. Quasi ein eigenes Design.

Gerne stelle ich ein zwei 16x16 Icons zur freien Verwendung Dir zur Verfügung. PN genügt.
Weitere Icons stelle ich dann hier online, wenn es sich "einfach" in den Button einfügen ließe.

Leider ist "OOP nicht so mein Ding" (schon öfters hier verkündet) zumindestens was die Programmierung von neuen Eigenschaften eines Objektes betrifft, sonst hätte ich Deinen Code schon ergänzt.

Weiterhin viel Erfolg!
Go2EITS

[cherry]

Na also...

Neue Picture Properties implementiert.
Dazu gleich noch meine neue Komponente: HideBox...
Auch da wäre ich froh über euer Feedback...

Die 4-Schritt Anleitung zur installation von Komponenten unter Delphi7
----------------------------------------------------------------------

1. enemyleft package 2.2 herunterladen
2. doppelklick auf enemyleft.dpk
3. installieren Button klicken
4. fertig!

oder:

1. Delphi starten
2. Komponente -> Komponente installieren
3. Suchen -> EButton.pas suchen (So kannst du auch nur die Komponenten installieren die du willst...
4. OK - fertig!

Aja... Die neuen Versionen findest du îmmer aud dem ersten Thread!!!

[Prototypjack]

Moin!
Zuerst:
Du hast sehr gute Arbeit geleistet! Die Buttons gefallen mir ausserordentlich gut!

Dennoch habe ich, denke ich, einen Bug gefunden. Wenn man in der runtime das Bitmap in der Picture Variable verändern möchte und Bitmap.Transparent angeschaltet ist, kommt es zu anzeigefehlern.

Ich wäre dir sehr dankbar, wenn du das noch fixen könntest, ich habe zwar mal eben schnell in den Code geschaut aber nichts gefunden. Nur so viel:
Der Fehler tritt beim zeichnen des Bitmaps auf, denn das Rohimage an sich wird im Button richtig entgegengenommen.

Ich hoffe du kannst das lösen, wenn, dann findet dein Button den direkten Weg in mein Programm

Gruß,
Max

[sparcy]

Über "Komponente/Komponente installieren" sollte es funktionieren.
Da in Register "In neues Package" bei "Name der Unit" die *.pas eintragen
und sich bei "Name des Package" und "Beschreibung" was nettes ausdenken.
Die Komponente wird dann nach, Kompilierung und Installation, hinzugefügt.

[Paul Schmidt]

Hallo allerseits !

Erstmal: Gute Arbeit cherry!


Ich hätte da aber nochmal 'ne Frage:

wenn ich als Typ "ekRounded" auswähle wird die Property Gradient gar nicht angewandt.
Ist das so oder hab ich was übersehen einzustellen, so dass Gradient auch mit "ekRounded" Buttons funzt?

Schöne Grüße,
der Paul

[g0rmed]

Auch erstmal: Super

Das Design geläfft mir sehr gut und es ist das was in Delphi definitiv fehlt.

Aber ich habe noch etwas gefunden was mich stutzig macht:
Wenn ich einen Button in der Entwicklungsumgebung als Enabled := false einstelle und dies zur Laufzeit ändere sieht der zwar so aus als wenn er gehen würde, reagiert aber nich auf Klicks...Bsp im Anhang

Cool währ noch wenn man die runden Buttons auch mit Farbverlauf machen könnte.

[dk3hn]

Ich habe EButtons eben in mein Programm eingebaut, denn das war gerade, was ich suchte. Leider kann ich .enabled nicht aus dem Programm heraus :=True setzen. Habe die Knöppe dann eben mit Show / Hide gezeigt bzw. versteckt.

Das enablen sollte doch noch hinzukriegen sein? Denn sonst ist das alles prima!

P. S.: Ich habe Delphi 5, und nur die neueste Version der EButton-Komponente installiert.

Wo gibt es eigentlich sonstwo fertige Komponenten für farbige Knöpfe mit Verlauf, abrundbaren Ecken usw... - und natürlich für Kostnix und funktionierend?

[cherry]

Vielen Dank für eure Feedbacks und Vorschläge...

Im Moment habe ich meine Abschlussarbeiten, die werden etwas dauern.
Das heisst ich werde mich erst anfangs August07 drum kümmern können...
Termin noriert

LG

enemyleft@cherry