Guten Morgen,
hab die Lösung von SirThornberry auch ausprobiert, klappt prima!
Da muss man ja glatt auch die Idee kommen, das auch für andere Komponenten anzuwenden.
Aber da hakts dann auch gleich an der Listview.
Wollte das folgendermaßen umbauen:
Delphi-Quellcode:
unit uAlphaLabel;
// naja, der Name soll erstmal nicht das Problem sein....
interface
uses
windows, graphics, classes, StdCtrls, ComCtrls;
// <-- Änderung
type
TListview =
class(ComCtrls.Tlistview)
// <-- Änderung
private
fAlphaVal: Byte;
procedure FSetAlphaVal(AAlpha: Byte);
public
constructor Create(AOwner: TComponent);
override;
procedure Paint;
override;
// <-- hier hängt´s
published
property AlphaVal: Byte
read fAlphaVal
write FSetAlphaVal
default 255;
end;
Bei
procedure Paint; override;
hängt´s, weil die Methode Paint nicht in der Basisklasse existiert, sagt der Compiler.
Was ich jetzt nicht verstehe, die Komponente muss doch auch irgendwie gezeichnet werden ?!
Hat jemand ne Idee,
wäre doch echt toll, wenn man das bei ner Listview auch anwenden könnte....
Gruß
Padavan