Forum: Sonstige Fragen zu Delphi
by stahli,
23. Okt 2013
Meinst Du so:
R := Rect(10, 10, Width - 10, Height - 10);
Sonst zeig mal einen Screenshot oder Skizze.
(schicke es mal trotz Überschneidung ab, falls doch nochmal Fragen auftauchen)
Forum: Sonstige Fragen zu Delphi
by stahli,
23. Okt 2013
Ich würde es insgesamt etwas aufräumen:
procedure THixBarGraph.Paint;
var
R: TRect;
H, W: Integer;
begin
inherited; // "paint;" KANN entfallen - benötigt wird das nur Funktionen: Result := inherited MyFunction(MyParam);
if (Parent = nil) or (not Visible) then
Exit;
Forum: Sonstige Fragen zu Delphi
by stahli,
15. Okt 2013
Schau Dir doch mal Paint von TPanel an.
Dort wird das ja gemacht.