Komponente wird nur zur Designzeit gezeichnet

[Sunlight7]

Zitat von BenjaminHelbig:

Oh man wie dumm.

Nicht so schlimm, ist mir auch schon passiert, aber laß das mit dem , das macht nur Kopfschmerzen

Zitat von BenjaminHelbig:

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?

Jupp, oder wenns nicht anders geht:

Delphi-Quellcode:

 procedure TPanelWrapper.Paint; 
begin 
  inherited; 

  // Wenn es schon unbedingt im Paint sein muß, dann aber so:
  case FPanelState of 
       psUp: 
         begin 
           If Self.BevelInner<>bvRaised then Self.BevelInner := bvRaised; 
           If Self.BevelOuter<>bvRaised then Self.BevelOuter := bvRaised; 
         end; 
       ...
  end;
  // Damit wird Paint nur bei ner Änderung aufgerufen
end;