Bevel auf einem Rechteck

[stahli]

Ich würde es insgesamt etwas aufräumen:

Delphi-Quellcode:

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;
   
   Canvas.Brush.Color := clBtnFace;
   Canvas.FillRect(Rect(0, 0, Width, Height));

   H := (Height div 10) div 2; // wenn die Bevelhöhe z.B. 1/10 sein soll
   W := (Width div 10) div 2;
   R := Rect((Width div 2) - W, (Height div 2) - H,
             (Width div 2) + W, (Height div 2) + H);

   Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);

Dann hast Du zwar zwei Variablen mehr, aber das Ganze wird m.E. etwas übersichtlicher und bei späteren Änderungen versteht man den eigenen Code besser.

[DeddyH]

Zitat von stahli:

inherited; // "paint;" KANN entfallen - benötigt wird das nur Funktionen: Result := inherited MyFunction(MyParam);

Das kann dann entfallen, wenn man die geerbte Routine aus irgendwelchen Gründen nicht durchlaufen will, das hat aber mit Funktionsergebnissen nichts zu tun.

[Chris211183]

soweit alles schick, er macht bloß Zicken mit der eigentlichen Breite des Rahmens (nicht die Ränder)
hab ne Property mitBarWidth deklariert und im Create auch den festen Wert 10 zugewiesen.
Rückgabewert Integer und als Procedure F... := Value;

er macht das aber nicht

er soll immer 10 breit bleiben, egal was ich tue, aber irgendwie willer nicht

[baumina]

procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer); d.h. der letzte Parameter erwartet die Breite

[Chris211183]

ja aber die Breite des Rahmens und nicht die Breite (also die Breite der beiden BevelBegrenzungen), aber nicht die Breite Zwischen denen

[baumina]

Nochmal bitte Code posten, ich komm nicht mit

[Chris211183]

es geht nur um die Breite zwischen den Rahmen, das was du meinst, ist die Breite des Rahmens.
Also z.B. ein Fotorahmen ist 25cm Breit, davon sind 5cm Rahmen (das ist die BevelWidth), dazwischen passt ein Foto von 15cm das soll meine (BarWidth) sein

[Chris211183]

Habs , trotzdem Danke für Deine Mühe

[stahli]

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)

[Chris211183]

hab Dir ne PN gesendet !