Hi, wieder ich
mein "Balken" dreht sich nicht...
Delphi-Quellcode:
Private
FKind : TscrollBarKind;
procedure SetKind(const Value: TscrollbarKind);
published
Property Kind : TScrollbarKind read FKind write SetKind;
…
procedure THixBarGraph.SetKind(const Value: TScrollbarKind);
begin
if FKind <> Value then
begin
FKind := Value;
Invalidate;
end;
end;
ich kann zwar zwischen horizontal und vertical wählen, aber es passiert nichts...