Hallo #,

ich stehe wohl gerade auf dem Schlauch.
Ich will doch nur um mein Panel einen schwarzen Rand haben (so als Trennung),
aber komplett, nicht dieses komische "nur links und oben".

Wie mache ich das denn ?

Danke


#Update:#
Hm, habe mir Funktion geschrieben, die im OnPaint des Forms aufgerufen wird
und die Linien selber malt.


Heiko

Quick and Dirty

zusammenfalten · markieren

Delphi-Quellcode:

interface

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

type
   TPanel= Class(ExtCtrls.TPanel)
    Procedure Paint; override;
  End;

  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TPanel }

procedure TPanel.Paint;
begin
  inherited;
  if Tag = -1 then
    begin
      Canvas.RectAngle(ClientRect);
    end;
end;

end.