|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Komponente nicht so oft malen
18. Aug 2006, 15:49
Delphi-Quellcode:
procedure TKeyboardTrainer.SetBevelLight(const Value: TColor);
begin
FBevelLight := Value;
Paint;
Invalidate;
end;
procedure TKeyboardTrainer.SetBevelShadow(const Value: TColor);
begin
FBevelShadow := Value;
Paint;
Invalidate;
end;
procedure TKeyboardTrainer.SetFont(const Value: TFont);
begin
FFont.Assign(Value);
Paint;
Invalidate;
end;
... etc
Zu viele Invalidate/Paints?
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|