Bevel auf einem Rechteck

[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;

[himitsu]

Zitat:

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

Bei der Deklaration der Methode hast du natürlich auch nicht das override vergessen?

[DeddyH]

Oder das Setzen des Parents? Das wäre mein erster Verdacht.

[Chris211183]

Hi deddyH,

danke !
Nein habe ich nicht !
Meins sieht aber auch so aus, ich schnüffel da heute Abend nochmal durch, irgendwie is das komisch !
Melde mich dann nochmal, obs klappt oder wo der Fehler lag

[Chris211183]

ne den Parent habe ich auch !
Daher ja meine Verzweiflungen

[DeddyH]

Nochmal im Ganzen:

Delphi-Quellcode:

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

...

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; 
  
procedure TForm1.FormCreate(Sender: TObject);
begin
  FTest := TMyCompo.Create(self);
  FTest.Width := 200;
  FTest.Height := 200;
  FTest.Parent := self;
end;

Damit sollte in etwa das Bild aus meinem Screenshot erscheinen. Allerdings habe ich das jetzt gerade schnell im Editor zusammenkopiert, daher ohne Gewähr.