Component Bugs...

I've just started to enter the feild of Component Building(using D2)... The following component is has bugs that I can't figer out on how to get rid of..

Bug1) When The component is the Active Component and the from is not the active form it keeps repainting it self... (Flickers)

Bug2)When anothe form/Window is floating over it and then mover it doen't Refresh it self..

I'm using Compoent Create Program...

Need code for were I'm going wrong...

Thanks
PPaul
{ ****************************************************************** }
{                                                                    }
{   VCL component TSpaceEdit                                         }
{                                                                    }
{   Code generated by Component Create for Delphi                    }
{                                                                    }
{   Generated from source file d:\progra~1\borland\delphi~1.0\lib\pgcomps\spacee~1.cd }
{   on 2 Dec 1999 at 20:37                                           }
{                                                                    }
{   A public domain component by Peter Giroux                        }
{                                                                    }
{ ****************************************************************** }

unit SpaceEdit;

interface

uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,
     Forms, Graphics, Stdctrls;

type
  TSpaceEdit = class(TCustomControl)
    private
      { Private fields of TSpaceEdit }
        FActive : Boolean;
        FActiveBorderColor : TColor;
        FAutoSize : Boolean;
        FBasicHeight : Integer;
        FCaption : String;
        FCaptionBGColor : TColor;
        FDivLine : Integer;
        FEditColor : TColor;
        FInactiveBorderColor : TColor;
        FText : String;
        FTextBGColor : TColor;
        SEdit : Tedit;

      { Private methods of TSpaceEdit }
        { Method to set variable and property values and create objects }
        procedure AutoInitialize;
        { Method to free any objects created by AutoInitialize }
        procedure AutoDestroy;
        function GetActive : Boolean;
        procedure SetActive(Value : Boolean);
        function GetActiveBorderColor : TColor;
        procedure SetActiveBorderColor(Value : TColor);
        function GetAutoSize : Boolean;
        procedure SetAutoSize(Value : Boolean);
        function GetCaption : String;
        procedure SetCaption(Value : String);
        function GetCaptionBGColor : TColor;
        procedure SetCaptionBGColor(Value : TColor);
        function GetDivLine : Integer;
        procedure SetDivLine(Value : Integer);
        function GetEditColor : TColor;
        procedure SetEditColor(Value : TColor);
        function GetInactiveBorderColor : TColor;
        procedure SetInactiveBorderColor(Value : TColor);
        function GetText : String;
        procedure SetText(Value : String);
        function GetTextBGColor : TColor;
        procedure SetTextBGColor(Value : TColor);
        procedure DrawBorder (Colour:Tcolor; Active:Boolean);
        procedure Paint; override;

    protected
      { Protected fields of TSpaceEdit }
        property Active : Boolean read GetActive write SetActive default False;

      { Protected methods of TSpaceEdit }
        procedure DoExit; override;
        procedure KeyPress(var Key : Char); override;
        procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
        procedure Loaded; override;

    public
      { Public fields and properties of TSpaceEdit }

      { Public methods of TSpaceEdit }
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;

    published
      { Published properties of TSpaceEdit }
        property OnClick;
        property OnDblClick;
        property OnDragDrop;
        property OnEnter;
        property OnExit;
        property OnKeyDown;
        property OnKeyPress;
        property OnKeyUp;
        property OnMouseDown;
        property OnMouseMove;
        property OnMouseUp;
        property ActiveBorderColor : TColor
             read GetActiveBorderColor write SetActiveBorderColor
             default clBtnHighlight;
        property AutoSize : Boolean
             read GetAutoSize write SetAutoSize
             default False;
        property BasicHeight : Integer read FBasicHeight write FBasicHeight;
        { Caption }
        property Caption : String read GetCaption write SetCaption;
        property CaptionBGColor : TColor
             read GetCaptionBGColor write SetCaptionBGColor
             default clBtnHighlight;
        property Color;
        property DivLine : Integer read GetDivLine write SetDivLine default 49;
        property EditColor : TColor
             read GetEditColor write SetEditColor
             default ClWindow;
        property Font;
        property Height default 16;
        property InactiveBorderColor : TColor
             read GetInactiveBorderColor write SetInactiveBorderColor
             default clBtnShadow;
        property Text : String read GetText write SetText;
        property TextBGColor : TColor
             read GetTextBGColor write SetTextBGColor
             default clBtnFace;
        property Width default 20;

  end;

procedure Register;

implementation

procedure Register;
begin
     { Register TSpaceEdit with PGComps as its
       default page on the Delphi component palette }
     RegisterComponents('PGComps', [TSpaceEdit]);
end;

{ Method to set variable and property values and create objects }
procedure TSpaceEdit.AutoInitialize;
begin
     SEdit := Tedit.Create(Self);
     SEdit.Parent := Self;
     with SEdit do
          begin
          { Left := }
          { Top := }
          { Width := }
          { Height := }
          BorderStyle:=bsnone;
          Visible := False;
          end;
     FActive := False;
     FActiveBorderColor := clBtnHighlight;
     FAutoSize := False;
     FCaption := 'Caption';
     FCaptionBGColor := clBtnHighlight;
     FDivLine := 49;
     FEditColor := ClWindow;
     Height := 16;
     FInactiveBorderColor := clBtnShadow;
     FText := 'Text';
     FTextBGColor := clBtnFace;
     Width := 20;
end; { of AutoInitialize }

{ Method to free any objects created by AutoInitialize }
procedure TSpaceEdit.AutoDestroy;
begin
     SEdit.Free;
end; { of AutoDestroy }

function TSpaceEdit.GetActive : Boolean;
begin
     Result := FActive;
end;

procedure TSpaceEdit.SetActive(Value : Boolean);
begin
     FActive := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetActiveBorderColor : TColor;
begin
     Result := FActiveBorderColor;
end;

procedure TSpaceEdit.SetActiveBorderColor(Value : TColor);
begin
     FActiveBorderColor := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetAutoSize : Boolean;
begin
     Result := FAutoSize;
end;

procedure TSpaceEdit.SetAutoSize(Value : Boolean);
begin
     FAutoSize := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetCaption : String;
begin
     Result := FCaption;
end;

procedure TSpaceEdit.SetCaption(Value : String);
begin
     FCaption := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
     Invalidate;
end;

function TSpaceEdit.GetCaptionBGColor : TColor;
begin
     Result := FCaptionBGColor;
end;

procedure TSpaceEdit.SetCaptionBGColor(Value : TColor);
begin
     FCaptionBGColor := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetDivLine : Integer;
begin
     Result := FDivLine;
end;

procedure TSpaceEdit.SetDivLine(Value : Integer);
begin
     FDivLine := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
     Invalidate;
end;

function TSpaceEdit.GetEditColor : TColor;
begin
     Result := FEditColor;
end;

procedure TSpaceEdit.SetEditColor(Value : TColor);
begin
     FEditColor := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetInactiveBorderColor : TColor;
begin
     Result := FInActiveBorderColor;
end;

procedure TSpaceEdit.SetInactiveBorderColor(Value : TColor);
begin
     FInActiveBorderColor := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

function TSpaceEdit.GetText : String;
begin
     Result := FText;
end;

procedure TSpaceEdit.SetText(Value : String);
begin
     FText := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
       SEdit.text:=Text;
      Invalidate;
end;

function TSpaceEdit.GetTextBGColor : TColor;
begin
     Result := FTextBGColor;
end;

procedure TSpaceEdit.SetTextBGColor(Value : TColor);
begin
     FTextBGColor := Value;

     { If changing this property affects the appearance of
       the component, call Invalidate here so the image will be
       updated. }
      Invalidate;
end;

{ Override OnExit handler from TCustomControl }
procedure TSpaceEdit.DoExit;
begin
     inherited DoExit;
     text:=SEdit.Text;
     Active:=False;

end;

{ Override OnKeyPress handler from TCustomControl }
procedure TSpaceEdit.KeyPress(var Key : Char);
begin
     { Call method of parent class }
     inherited KeyPress(Key);
end;

{ Override OnMouseDown handler from TCustomControl }
procedure TSpaceEdit.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     inherited MouseDown(Button, Shift, X, Y);
     setfocus;
     Active:=true;
     repaint;
end;

constructor TSpaceEdit.Create(AOwner: TComponent);
begin
     inherited Create(AOwner);
     AutoInitialize;

     { Code to perform other tasks when the component is created }

end;

destructor TSpaceEdit.Destroy;
begin
     AutoDestroy;
     inherited Destroy;
end;

procedure TSpaceEdit.DrawBorder (Colour:Tcolor; Active:Boolean);
var x,y,Hx,Tw1,Tw2:integer;
begin
//Basic data
Hx:=strtoint(floattostr(int(Height/2)));
TW1:=Canvas.TextWidth(Caption);
TW2:=Canvas.TextWidth(Text);

//Left End
Canvas.pen.color:=colour;
canvas.Brush.color:=CaptionBGColor;
canvas.arc(0,0,
           Height,Height,
           round(height/2),0,
           round(height/2),height);


//Right End

canvas.arc(width-Height,0,width,Height,
           Width-Height+Hx,Height,
           Width-Height+Hx,0);

//Lines going across
//top line
Canvas.Moveto(Hx,0);
Canvas.Lineto(width-hx+1,0);
//Bottom Line
Canvas.Moveto(Hx,BasicHeight);
Canvas.Lineto(width-hx+1,BasicHeight);

//Dividing Line
Canvas.Moveto(DivLine,0);
Canvas.LineTo(DivLine,Height);

//Color Left
Canvas.FloodFill(HX,2,canvas.Pixels[Hx,2],fsSurface);
Canvas.TextOut(Hx,2,Caption);

if Active then
begin
Canvas.Brush.color:=EditColor;
Canvas.FloodFill(Width-Hx,2,canvas.Pixels[Width-Hx,2],fsSurface);
Canvas.TextOut(DivLine+2,2,text);
SEdit.Top:=2;
SEdit.Width:=Width-Hx-DivLine-2;
SEdit.Left:=DivLine+2;
SEdit.Color:=EditColor;
//SEdit.BorderStyle:=bsNone;
SEdit.Height:=Height-4;
SEdit.Text:=Text;
SEdit.visible:=True;
end
else
Begin
//Color Right If not Active
canvas.brush.color:=TextBGColor;
Canvas.FloodFill(Width-HX,2,canvas.Pixels[Width-Hx,2],fsSurface);
Canvas.TextOut(DivLine+2,2,text);
SEdit.Top:=Height+1;
end;
end;

procedure TSpaceEdit.Loaded;
begin
     inherited Loaded;

     { Perform any component setup that depends on the property
       values having been set }

end;

procedure TSpaceEdit.Paint;
var x,y,Hx,Tw1,Tw2:integer;
begin
//Basic data
Hx:=strtoint(floattostr(int(Height/2)));
TW1:=Canvas.TextWidth(Caption);
TW2:=Canvas.TextWidth(Text);
if DivLine <(Hx+2+TW1+3) then DivLine:=(Hx+2+TW1+3);
if width <(DivLine+TW2+2+Hx) then Width:=DivLine+TW2+2+Hx;

if AutoSize then width:=DivLine+2+TW2+Hx;

     { Draw the component using the methods supplied by its Canvas
       property (of type TCanvas).  For example: }
     Canvas.font:=Font;
     SEdit.top:=height+1;
     BasicHeight:=Canvas.TextHeight('Oy')+3;

     Height:=BasicHeight+1;
     SEdit.top:=height+1;
if Active then DrawBorder (ActiveBorderColor,Active)
else
DrawBorder (InActiveBorderColor,Active);


end;


end.


I think I got the components Pas file set up right but I'm not sure.