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!

[juelin]

Hallo,
ich bin begeistert vom EButton.
Das ist genau was ich brauche.
Ich benutze Windows10 und Dekphi 10.3.3
Nur ein Bug:
wenn ich den Button anklicke wird der Hintergrund vom Button schwarz.
Obwohl ich ALLE Colors (Color1+2,ColorDown1+2,ColorOver1+2) auf clYellow gesetzt habe.
Kannst Du mal schauen?
Danke und Gruß
Jürgen

[himitsu]

Ich glaub nicht, dass er in nächster Zeit danach mal schauen wird. (die Chance daß er es ließt ist gering)

Zitat:

Letzte Aktivität: 18. Jan 2017 22:32

Im Profil sieht man keine Mail oder Webseite.
Noch k.A. ob im Quellcode was steht. [add] Mail steht im Code [/add]
Du kannst auch versuchen ihm eine PN zu schicken, hoffen er hat die Mailbenachrichtung aktiv und liest sie auch noch.

Zitat:

Anklicke

Wann passiert es?
Schon beim Drücken oder erst beim Loslassen?

Du kannst in MouseDown und/oder MouseUp einen Haltepunkt setzen,
oder in PaintButton einen bedingten Haltepnkt mit FMouseDown ,

und dann debuggen.
Schauen was in PaintButton/PaintRounded/PaintArrowRight/PaintArrowLeft passiert (je nach Einstellung).

[himitsu]

[doppelpost]

[himitsu]

So, wegen https://www.delphipraxis.net/215513-...enemyleft.html nochmal ein flüchtigen Blick drauf geworfen,
bezüglich des Alters der Komponente (2006).

• Unicode (ab Delphi 2009) : nichts Schlimmes gesehn und sieht in so weit OK aus
• 64 Bit (ab Delphi XE2) : definitiv NICHT, da Pointer/Objektzeiger nach LongInt gecastet (und wer weiß was noch)
• VCL-Styles (XE3 und neuer) : keine Ahnung, aber Ohne scheint zumindest zu gehn
• Delphi 12 : mit der neuen Typ-Behandlung wird es nochmal spannend, da hier im Code schon bissl mit den Typen geschludert wurde.
  z.B. siehe https://www.delphipraxis.net/215434-...ei-events.html