Réponse acceptée !
voila , c'etait pourtant pas tres compliqué ...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
const
LARGEUR = 15;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var
x,y:integer;
begin
// couleur de bord
Canvas.Pen.Color := ClRed;
// couleur interieure
Canvas.Brush.Color := ClRed;
// dessinne
// celui du dessus
// form1.ClientHeight
// form1.ClientWidth
Canvas.Rectangle(0,0,ClientWidth,LARGEUR);
// du dessous
Canvas.Rectangle(0,ClientHeight-LARGEUR,ClientWidth,ClientHeight);
// gauche
Canvas.Rectangle(0,LARGEUR,LARGEUR,ClientHeight-LARGEUR);
// droite
Canvas.Rectangle(ClientWidth-LARGEUR,LARGEUR,ClientWidth,ClientHeight-LARGEUR);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
invalidate();
end;
end.
|