Bevel auf einem Rechteck

[DeddyH]

Frame3D hast Du schon versucht?

[Chris211183]

Nein, das hatter noch nicht gemacht, aber das wird gleich mal gemacht !

Danke, manchmal Hilft nen kleiner Denkanstoß !

[Chris211183]

Okay, hab mir das mal angesehen, wobei ich da nicht so wirklich was mit anfangen kann....

hab mir jetzt eine procedure geschrieben, bloß wie sag ich Ihm jetzt, dass er mir sowas dann auch zur Laufzeit auf den Schirm beamt ?

wie geht sowas ?

Am Ende soll ein 45x145 großes Rechteck zu sehen sein, wo in der Mitte so ein Frame drauf ist...

[DeddyH]

Beispiel (TMyCompo ist von TGraphicControl abgeleitet, es wurde nur die Paint-Methode überschrieben):

Delphi-Quellcode:

procedure TMyCompo.Paint;
var
  R: TRect;
begin
  inherited;
  Canvas.Brush.Color := clYellow;
  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, $00DADADA, clDkGray , 1);
end;

Somit wird das Ding gelb gefüllt, und in der Mitte erscheint so ein Frame mit Kantenlänge 50 Pixel, siehe Screenshot.

[Chris211183]

Alles klar,

super vielen Dank !!!

Chris

[Chris211183]

Hallo,

habe bis jetzt alles gut hinbekommen, bloß auf meinem Testformular wird nichts angezeigt.
kann leider keinen Code posten, da ich von hier grad nicht auf meinen Quellcode zugreifen kann :-/

Wie sah denn deine Testunit aus @DaddyH (damit ich meine vergleichen kann) ?

Habe auch die PaintMethode überschrieben und meine Werte alles gesetzt, auch wenn ich den Rest ausblende, damit mir nur mein Bevel angezeigt wird, machter Compiler nichts...
(egal was ich bis jetzt versucht habe, ...

Chris

[DeddyH]

Das müsste ungefähr so ausgesehen haben:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FTest: TMyCompo;
  end;

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