Eigene Buttons in Delphi einfügen

[mrschaf]

Hey,
ich würde meine langweiligen Buttons gerne zu besser aussehenderen, neuen Buttons aus dem Internet austauschen. Jemand eine Idee wie ich das am besten mache?
(Hab schon von der Image OnKlick Methode gehört, weiß dabei allerdings die Befehle für MouseOver und Mouse klick (oder so ähnlich =D) nicht; es soll sich ja verhalten wie ein normaler Button...

danke
lg

[mkinzler]

Was für Buttons meinst du?

[mrschaf]

TButton -> irgendeiner aus dem Inet^^

[mkinzler]

Pack die Images in eine ImageList, diese im Button.Images auswählen und den ImageIndex setzen

[hans ditter]

hm, ich kenn mich damit nicht so genau aus, aber ich würde einfach ein Bild nehmen, es in TImage packen und dann die OnClick Methode des TImage auswerten.
Ansonsten meine ich mal etwas von repainten des TButtons gehört zu haben. Dass du irgendwie beim zeichnen des Buttons das ganze übermalst...
Da müsstest du dann aber mal Leute mit mehr Ahnung fragen.(Die sich ja sowieso schon beteiligt haben... ;))

LG hans ditter

[mrschaf]

Zitat:

Zitat von mkinzler (Beitrag 1049590)

Pack die Images in eine ImageList, diese im Button.Images auswählen und den ImageIndex setzen

was Genau ist imaGeindex? :x sry =D

[mkinzler]

Ist eine Eigenschaft, welche den Index des Bildes innerhalb der Imagelist angibt

[Luckie]

Wie wäre es mit Skins?

[mrschaf]

alles klar klappt, danke =)
wie geanu funktioniert das jetzt, wenn ich bewirken will, dass es mir anzeigt, wenn ich mit der maus drüber fahre? (leuchtender rand oder so)

[lbccaleb]

Der User DeddyH hat hier bei DP die GDI+ Buttons veröffentlicht, suche die mal hier im Forum, die sind bestimmt das richtige für dich ;)

[Luckie]

Warum keine Skins?

[Sir Rufo]

Zitat:

Zitat von Luckie (Beitrag 1049651)

Warum keine Skins?

Weil die keine Haare haben :mrgreen:

[mrschaf]

Zitat:

Zitat von Luckie (Beitrag 1049651)

Warum keine Skins?

wenn du mir sagst, wie ich wo skins einfüge, würde ich das versuchen :D

ps: mit der imagelist klappts, ich finde aber einfach keine passenden Buttons im inet :/ alle schlechte qualität oder kostenpflichtig...kennt jemand zufällig eine Seite mit tollen Button die ich (evtl. auch mit Paint oder so)beschriften kann?
danke schonmal

[mkinzler]

Zu den Skins: Z.B. http://www.alphaskins.com/ (Lite Version ist frei)

[DeddyH]

Und zu den Icons/Grafiken: http://www.delphipraxis.net/85498-wo...-software.html

[mrschaf]

danke aber das hat sich erledigt ;)
hab mir ne trial version von nem progrmm geholt, die buttons erstellt, ausgeschnitten und mit gimp als dmp gespeichert ;)

aber nochmal zurück zur anderen frage:
wioe stell ich die mouseover funktion ein? also dass es beim drüber fahren leuchtet?

[DeddyH]

Fange die Messages CM_MOUSEENTER und CM_MOUSELEAVE ab.

[cookie22]

wenn du icons klaust und dein programm veröffentlichen willst, handelst du dir unter umständen ne menge ärger ein. ;)

[mrschaf]

wills nicht veröffentlichen ;)
...
wie fange ich die denn ab?

[DeddyH]

Delphi-Quellcode:

type
  TMyButton = class(TButton)
  ...
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  ...
  end;

procedure TMyButton.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  //weiterer Code
end;

[mrschaf]

oke das is mir viel zu kompliziert :D
hab erst vor paar tagen mit delphi angefangen :P

[mrschaf]

also wenns keinen einfachereren Weg gibt lass ichs jetzt ;) aber trotzdem danke für die mühe =D

[DeddyH]

Bei den AlphaControls gibt es Buttons, die das automatisch machen. Ich weiß allerdings nicht, ob die bei der Lite-Edition dabei sind.

[mrschaf]

alpha controls?

[mkinzler]

Zitat:

Zitat von mrschaf (Beitrag 1049785)

alpha controls?

http://www.delphipraxis.net/1049749-post14.html

[DeddyH]

http://www.alphaskins.com/
Ganz unten auf der Startseite gibt es die Lite-Edition zum frei verfügbaren Download.

[mrschaf]

das sieht ja ganz toll aus auf der demo, aber wie krieg ich solche buttons jetz in meine programm? :D

[mkinzler]

Nimm TsButton statt TButton

[mrschaf]

ja wie implementier ich die denn? also in der liste ist nichts automatisch neu gekommen

[mkinzler]

Sollte aber

[mrschaf]

nope sry ... wodran könnts liegen?
muss ich das vllt irgendwo ins delphi verzeichnis entpacken/installieren?

[DeddyH]

Wozu werden Installationsanleitungen geschrieben, wenn sie dann nicht gelesen werden?

Zitat:

Zitat von INSTALL.txt

Install for Delphi :

1. Start by unpacking the acnt*.zip files into a folder of your own choice.
2. This directory must be registered in system search path. And add, (if need)
AlphaControls directory in Delphi (Tools->Environment Options->Library->Library
Path).
3. Use "File\Open..." menu item of Delphi IDE to open the AlphaControls
run-time package acntX_r.dpk (x - version of Delphi). In the "Package..."
window click "Compile" button to compile run-time library.
4. Use "File\Open..." menu item of Delphi IDE to open the AlphaControls
design-time package acntX.dpk. In the "Package..." window click "Install"
button to install the library.
5. DB-aware components users can install AlphaDB pack by copying AlphaDB files
to AlphaControls directory and AlphaDB.dpk file installing.

[mrschaf]

Zitat:

Zitat von DeddyH (Beitrag 1049807)

Wozu werden Installationsanleitungen geschrieben, wenn sie dann nicht gelesen werden?

Zitat:

Zitat von INSTALL.txt

Install for Delphi :

1. Start by unpacking the acnt*.zip files into a folder of your own choice.
2. This directory must be registered in system search path. And add, (if need)
AlphaControls directory in Delphi (Tools->Environment Options->Library->Library
Path).
3. Use "File\Open..." menu item of Delphi IDE to open the AlphaControls
run-time package acntX_r.dpk (x - version of Delphi). In the "Package..."
window click "Compile" button to compile run-time library.

also bis dahin bin ich gekommen(hoffentlich). Bei Schritt 3 fehlt mir jetzt dieses Package... so eins gibts bei mir im entpackten ordner leider garnicht.
Und in Schritt 2 bin ich mir auch schon nicht mehr sicher, ob ich das Verzeichnis richtig angegeben hab... also muss ich das nur bis in den "askindemo" ordner angeben oder weiter bis in "skins" und/oder "skins2"?

[mkinzler]

Versuch es mit denen für D2010 wenn noch keine XE Version verfügbar ist

[mrschaf]

nein ich hab einfach überhaupt keine davon, keine einzige .dpk datei

[Die Muhkuh]

Eine Architect-Version und kein Plan von nichts. :roll:

Im Ordner "D2010" sind zwei Dateien:

- acnt2010.dpk
- acnt2010_R.dpk

Nimmst Du zuerst die acnt2010_R.dpk und danach die acnt2010.dpk

[mkinzler]

Die 1. kompillieren und die 2. installieren

[mrschaf]

sry hatte die flasche version gedownloaded =x hatte nur die "demo" weil ich dachte das wäre die einzige kostenfreie... scheine jetzt die richtige zu haben, ich probiers jetz ma

[mrschaf]

[DCC Fataler Fehler] acnt2010_R.dpk(31): E2202 Package 'dbx' wird benötigt, konnte aber nicht gefunden werden

[DeddyH]

Zitat:

Zitat von DeddyH (Beitrag 1049787)

http://www.alphaskins.com/
Ganz unten auf der Startseite gibt es die Lite-Edition zum frei verfügbaren Download.

Zitat:

Zitat von mrschaf (Beitrag 1049834)

sry hatte die flasche version gedownloaded =x hatte nur die "demo" weil ich dachte das wäre die einzige kostenfreie... scheine jetzt die richtige zu haben, ich probiers jetz ma

Junge Junge :roll: