Bevel auf einem Rechteck

[himitsu]

Zitat von DeddyH:

Das versteht sich ja wohl von selbst.

Das hatte ich auch mal gedacht, aber wurde eines Besseren belehrt.

[Chris211183]

Hab da mal zusammenkopiert und dennoch nix (bin ich zu dämlich ?)

Istbestimmt wieder ein Anfängerfehler

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, ExtCtrls;

Type
TMyCompo = class(TGraphicControl)


protected
   procedure Paint; override;
end;



TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private
   FTest: TMyCompo;
end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TMyCompo.Paint;
var
R: TRect;


begin
inherited;
Canvas.Brush.Color := clred;
Canvas.FillRect(Rect(0, 0, Width, Height));
R := Rect((Width - 50) div 2, (Height - 50) div 2,
(Width + 50) div 2, (Height + 50) div 2);
Frame3D(Canvas, R, clblack ,clyellow , 3);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FTest := TMyCompo.Create(self);
FTest.Width := 200;
FTest.Height := 200;
FTest.Parent := self;

end; 

end.

[DeddyH]

Vielleicht hat himitsu doch Recht. Ist das OnCreate-Ereignis des Formulars auch mit der FormCreate-Methode verknüpft (Objektinspektor)?

[Chris211183]

jetzt ja




ohhh mannnn eyyyyyyyyyy


Danke

[Chris211183]

Sodele, alles funzt in meier Komponente, nur wenn ich meinen Rahmen größer ziehe, bleibt mein Bevel in der Größe und vergrößert sich nicht mit...

Delphi-Quellcode:

procedure THixBarGraph.Paint;
var
   R: TRect;

begin
  inherited paint;
  if (Parent = NIL) or not visible
  then exit;
  
  Canvas.Brush.Color := clBtnFace;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  R := Rect((Width - 9) div 2, (Height - 133) div 2,
  (Width + 9) div 2, (Height + 133) div 2);
  Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);

kann ich das einfach lösen (mit if else Anweisungen) oder muss ich da noch ewig rumdoktern

[baumina]

Rechne einfach nicht wie wild die Koordinaten für dein Rectangle aus, sondern nimm einfach nur

R := Rect(1, 1, Width - 1, Height - 1);

[DeddyH]

Du könntest SetBounds überschreiben und darin Invalidate aufrufen.

[Chris211183]

@Baumina, dann hätte ich ja nur ein Rahmen den ich verändern kann, ich habe aber einen Rahmen auf einem Rechteck, welcher sich mit vergrößerung des Rechteckes auh proportional verändern soll.

@DeddyH, nein habe ich nicht, das sagt mir auch nichts

[baumina]

Meiner Meinung nach verhält sich ist mein Vorschlag proportional zur Größe des Rechtecks:

Delphi-Quellcode:

procedure THixBarGraph.Paint;
var
   R: TRect;

begin
  inherited paint;
  if (Parent = NIL) or not visible
  then exit;
  
  Canvas.Brush.Color := clBtnFace;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  // so hast du es im Moment :
             // Links = (Width - 9) div 2
                               // Oben = (Height - 133) div 2
  R := Rect((Width - 9) div 2, (Height - 133) div 2,
             // Rechts = (Width + 9) div 2
                               // Unten = (Height + 133) div 2
            (Width + 9) div 2, (Height + 133) div 2);
  // und so wäre mein Vorschlag:
            // 1 Links innerhalb vom Rechteck
               // 1 Oben innerhalb vom Rechteck
                  // Rechts die Breite vom Rechteck-1
                            // Unten die Höhe von vom Rechteck-1
  R := Rect(1, 1, Width - 1, Height - 1); 
  Frame3D(Canvas, R, clBtnShadow ,clBtnHighlight , 1);

[Chris211183]

Probiers mal aus !

Vielen Dank euch Beiden !!!