AW: Bevel auf einem Rechteck
Ich würde es insgesamt etwas aufräumen:
Delphi-Quellcode:
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. ;-)
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); |
AW: Bevel auf einem Rechteck
Zitat:
|
AW: Bevel auf einem Rechteck
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 |
AW: Bevel auf einem Rechteck
Delphi-Quellcode:
d.h. der letzte Parameter erwartet die Breite
procedure Frame3D(Canvas: TCanvas; var Rect: TRect; TopColor, BottomColor: TColor; Width: Integer);
|
AW: Bevel auf einem Rechteck
ja aber die Breite des Rahmens und nicht die Breite (also die Breite der beiden BevelBegrenzungen), aber nicht die Breite Zwischen denen
|
AW: Bevel auf einem Rechteck
:?: :?: :?: Nochmal bitte Code posten, ich komm nicht mit :stupid:
|
AW: Bevel auf einem Rechteck
:stupid:
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 |
AW: Bevel auf einem Rechteck
Habs :stupid::stupid::stupid:, trotzdem Danke für Deine Mühe :thumb:
|
AW: Bevel auf einem Rechteck
Meinst Du so:
Delphi-Quellcode:
Sonst zeig mal einen Screenshot oder Skizze.
R := Rect(10, 10, Width - 10, Height - 10);
(schicke es mal trotz Überschneidung ab, falls doch nochmal Fragen auftauchen) |
AW: Bevel auf einem Rechteck
hab Dir ne PN gesendet !
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz