Komponente ändern von Eigenschaftswerten und (re-)paint

[TiGü]

Delphi-Quellcode:

property Breite : integer read SetBreite write FBreite default 20;
property Hoehe : integer read SetHoehe write FHoehe default 300;

...

procedure TElevator.SetBreite(const Value: Integer);
begin
  if FBreite <> Value then
  begin
    FBreite := Value;
    Repaint;
  end;
end;

procedure TElevator.SetHoehe(const Value: Integer);
begin
  if FHoehe <> Value then
  begin
    FHoehe := Value;
    Repaint;
  end;
end;