Farbiger Button

[Gerhard Duerr]

ich möchte gerne die hintergrundfarbe eine TButton
ändern. die property color habe ich in den objektinspektor
installiert, jedoch wird die ausgewählte farbe nicht auf den
button übertragen.

über canvas, brush etc. habe ich auch keinen erfolg gehabt.

hat jemand eine idee, wie ich mein vorhaben realisieren kann ?

[Jörg Prepadnik]

Nimm den SpeedButton und überschreib die Methode Paint (protected).<br>

<PRE>
unit NeuButton;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TNeuButton = class(TSpeedButton)
protected
procedure Paint; override;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Test', [TNeuButton]);
end;

procedure TNeuButton.Paint;
begin
// Hier kommt der Code fürs Malen rein. Siehe Unit Buttons.pas
end;

end.
</PRE&gt

[Klaus Kasner]

Hallo ich habe es so gemacht, aber die Komponente ist in der VCL nicht
zu sehen, obwohl beim compilieren keine Fehlermeldung kam. Es kam sogar die Bestätigung, daß die Komponente aufgenommen wurde. Aber wo
ist sie ?? Ich weiß nicht weiter, wer gibt mir einen Tipp ??

[Klaus Kasner]

Eigenes Palettensymbol-
ich habe mit dem Bildeditor ein Symbol entworfen und eine *.dcr Datei
erzeugt, die im gleichen Verzeichnis liegt. Beim compilieren wird
in dem Package die Datei eingetragen. Das Symbol wird aber nicht verwendet, stattdessen eins von Delphi5 selbst. Was kann ich tun,
damit mein eigenes Symbol verwendet wird

[Jens Schumann]

Hallo Klaus,<br>die dcr Datei muß den gleichen Namen haben wie die unit, in der die Komponente steckt. Jetzt kommt das wichtigste:<br>Der Name der Bitmap in der dcr Datei muß dem <b>Klassennamen</b> entsprechen und zwar <b>in Großbuchstaben !!!</b&gt