Oh man wie dumm.
Augen auf beim Eierkauf.
Delphi-Quellcode:
procedure TPanelWrapper.Paint;
begin
inherited;
// Das hat in der Paint procedure nichts zu suchen!
// Da es sonst immer wieder ein Paint auslöst!
{case FPanelState of
psUp:
begin
Self.BevelInner := bvRaised;
Self.BevelOuter := bvRaised;
end;
psDown:
begin
Self.BevelInner := bvLowered;
Self.BevelOuter := bvLowered;
end;
psDefault:
begin
Self.BevelInner := bvNone;
Self.BevelOuter := bvRaised;
end;
end;}
end;
Aber wo soll ich das dann hintun? Ich meine ich muss doch das beim Zeichnen einfügen. Oder meinst du ich soll es in einer extra procedure sein die beim write der property aufgerufen wird und dann mittels Invalidate; das neuzeichnen auslöst?
Grüße Ben