Createing a Custom Border on a form

Calinutz,

Thanks for the hard work helping me out.  I have accepted your answer since you kind of inspired me to just draw it myself and make it work the way it needs to.  I did it a little different by drawing  a box around the form and then drawing the cross lines on the border.  Anyway here is the code I ended up with.  Thanks to all for the help.

Rich

object Form1: TForm1
  Left = 507
  Top = 484
  BorderStyle = bsNone
  Caption = 'Skinned Form'
  ClientHeight = 453
  ClientWidth = 688
  Color = 12233895
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel5: TPanel
    Left = 6
    Top = 6
    Width = 677
    Height = 20
    BevelOuter = bvNone
    Color = 7683508
    TabOrder = 0
    OnMouseDown = Panel5MouseDown
    object Label1: TLabel
      Left = 20
      Top = 0
      Width = 618
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Caption = 'Qckvu'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnMouseDown = Panel5MouseDown
    end
    object Panel6: TPanel
      Left = 657
      Top = -2
      Width = 20
      Height = 23
      Anchors = [akTop, akRight, akBottom]
      Color = 7683508
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Panel6Click
      object Panel3: TPanel
        Left = 4
        Top = 6
        Width = 12
        Height = 12
        Color = 7683508
        TabOrder = 0
        OnClick = Panel6Click
      end
    end
    object Panel7: TPanel
      Left = 636
      Top = -2
      Width = 20
      Height = 23
      Anchors = [akTop, akRight, akBottom]
      Color = 7683508
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Panel7Click
      object Panel2: TPanel
        Left = 8
        Top = 10
        Width = 5
        Height = 5
        Color = 7683508
        TabOrder = 0
        OnClick = Panel7Click
      end
    end
    object Panel8: TPanel
      Left = -1
      Top = -2
      Width = 20
      Height = 23
      Anchors = [akLeft, akTop, akBottom]
      BevelInner = bvSpace
      BevelOuter = bvLowered
      Color = 7683508
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Panel8Click
      object Panel1: TPanel
        Left = 6
        Top = 10
        Width = 10
        Height = 3
        Color = 7683508
        TabOrder = 0
        OnClick = Panel8Click
      end
    end
  end
end



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel5: TPanel;
    Label1: TLabel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Panel5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel6Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Panel8Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Panel5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);
end;

procedure TForm1.Panel6Click(Sender: TObject);
begin
  If Form1.WindowState=wsNormal then
    begin
      Form1.WindowState:=wsMaximized;
      Form1.Repaint;
    end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
   C: TCanvas;
   R: TRect;
begin
   GetWindowRect(Handle, R);
   C := TCanvas.Create;
   C.Handle := GetWindowDC(Handle);
   C.Pen.Color := $00753DB4;
   C.Pen.Width := 7;
   C.Brush.Style := bsClear;
   C.Rectangle(1, 1, R.Right - R.Left, R.Bottom - R.Top);
   C.Pen.Color := clActiveBorder;
   C.Pen.Width := 1;
   Panel5.Width := Form1.Width - 11;
   Label1.Width := Panel5.Width - 60;

   C.Polyline([Point(24, 0), Point(24, 5)]);
   C.Polyline([Point(0, 26), Point(6, 26)]);
   C.Polyline([Point(R.Right - R.Left - 25, 0), Point(R.Right - R.Left - 25, 21)]);
   C.Polyline([Point(R.Right - R.Left - 5, 26), Point(R.Right - R.Left, 26)]);
   C.PolyLine([Point(0, R.Bottom - R.Top - 26), Point(5, R.Bottom - R.Top - 26)]);
   C.PolyLine([Point(25, R.Bottom - R.Top), Point(25, R.Bottom - R.Top - 5)]);
   C.PolyLine([Point(R.Right - R.Left - 5, R.Bottom - R.Top - 26), Point(R.Right - R.Left, R.Bottom - R.Top - 26)]);
   C.PolyLine([Point(R.Right - R.Left - 25, R.Bottom - R.Top), Point(R.Right - R.Left - 25, R.Bottom - R.Top - 5)]);
   C.Free;
end;

procedure TForm1.Panel8Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Panel7Click(Sender: TObject);
begin
  If Form1.WindowState=wsMaximized then
    begin
      Form1.WindowState:=wsNormal;
      Form1.Repaint;
    end;
end;

end.